Aus Delphi neues Programm öffnen

[mkinzler]

Welchen Statuscode liefert ShellExecute zurück?

Zitat:

Wie mache ich das wenn ich anstatt eine .exe z.B. eine .bat öffnen möchte?

Genauso. Du kannst auch andere Dateien übergeben, dann wird das verknüpfte Programm gestartet.

[DelphiE46]

Jetzt muss ich nur noch wissen, warum das in dem anderen blöden Programm nicht geht

[mkinzler]

Welchen Code gibt die Funktion denn zurück
http://support.microsoft.com/kb/238245

[argonix]

So:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Exe: string;i: Integer;
begin
Exe := 'd:\windows\system32\notepad.exe';
if not FileExists(Exe) then begin ShowMessage('Die Anwendung existiert nicht!');
end else begin
//Ausführen und Fehlercode anzeigen
i:=ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
if i<=32 then
ShowMessage('Es ist ein Fehler aufgetreten!'#13'Fehlercode: '+IntToStr(i));
end;
end;

end.

Probiere den Code mal aus. Mit der Fehlermeldung kannst du dann die Fehlerursache finden.

[IBExpert]

Zitat von DelphiE46:

Jetzt muss ich nur noch wissen, warum das in dem anderen blöden Programm nicht geht

auch wenn ich mich bemühe kann ich deinen Ausführungen nicht wirklich folgen, falls du das in AvERP in eine Maske einbauen willst, dann wird dafür der AvERP interne Pascal Interpreter benutzt, der zwar die Pascal sprache benutzt, aber mit Delphi nun wirklich gar nichts zu tun hat, mal abgesehen von der Tatsache das dieser ursprünglich in Delphi erstellt wurde.

Es würde allen im Forum und insbesondere dir helfen, wenn du

1. Sachlich beschreibst womit du arbeitest
2. Sachlich beschreibst und mit vollständigen Quellcodeausschnitten und ggf. Screenshots dokumentierst, was du bereits gemacht gast
3. Sachlich beschreibst was daran denn nun angeblich nicht funktioniert

Es gibt keine blöden Programme, höchstens blöde Programmierer.

Ganz nebenbei ist diese Frage, wenn die sich wirklich auf die AvERP interne programmierung bezieht, im Synerpy Forum besser aufgehoben, es sei denn du hast dir den kompletten AvERP Quellcode in Delphi geladen (mehrere hunderttausend zeilen alleine für den AvERP Browser) und konkrete Fragen dazu. Ich weiss ja auch nicht wer dir die Aufgabe gestellt hat, aber derjenige sollte durchaus erst mal sicherstellen, das du die AvERP Entwickler Doku durcharbeitest. Diese ist kostenpflichtig bei Synerpy erhätlich, hilft aber immens, um nicht tagelang im Nebel rumzustochern

Gruß
Holger
www.ibexpert.com