Ext. Programm starten, aber wie?

[bruno01]

Hallo,
ich möchte aus einem Programm heraus mit einem ButtonClick ein anderes Programm starten.
Die Hinweise aus diesem Forum brachten mich jedoch nicht zum Erfolg.

ich habe es mit dem Folgenden Code versucht, was ist falsch?
ShellExecute(0, 'open', 'c:\Delphi\db_packer\dbpack.exe', nil, nil, SW_NORMAL); [edit=sakura] [delphi]Tags korrigiert Mfg, sakura[/edit]

[flomei]

ShellExecute

Da steht alles was du über diesen Befehl wissen musst...

MfG Florian

[Dani]

Hi,

Du musst die Unit 'ShellApi' in deine Uses-Liste aufnehmen. Außerdem solltest du bei solchen Nachfragen ("was ist falsch?") die genaue Fehlermeldung mitgeben

Grüße,
Dani

[bruno01]

Die ShellApi habe ich natürlich eingebunden, es gibt keine Fehlermeldung, beim Click geschieht nichts.

[himitsu]

Mach mal folgendes und sag uns was in Status zurückgegeben wird (da es nicht geht, sollte dort ein Fehlercode drinstehen)

Delphi-Quellcode:

Var Status: Integer;

...
Status := ShellExecute(0, 'open', 'c:\Delphi\db_packer\dbpack.exe', nil, nil, SW_NORMAL);

[Dani]

Asche auf mein Haupt... du kannst dir den Fehler auch gleich anzeigen lassen:

Delphi-Quellcode:

var errcode: Integer;
begin
 errcode := ShellExecute(0, 'open', 'c:\Delphi\db_packer\dbpack.exe', nil, nil, SW_NORMAL);
 If errcode <= 32 then
  ShowMessage(SyserrorMessage(errcode));
end;

[bruno01]

Die Fehlermeldung lautet jetzt "Das System kann die Datei nicht finden." Die Pfadangabe und der Dateiname stimmen aber.

[Dani]

Also führt Startmenü->Ausführen : 'c:\Delphi\db_packer\dbpack.exe' zum Erfolg, der Aufruf von ShellExecute aber nicht?

[bruno01]

So ist es.

[himitsu]

Sowas bringt dann wohl auch nichts?

Code:

ShellExecute(0, 'open', [color=red]PChar([/color]...[color=red])[/color], nil, nil, SW_Show);