Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
14. Jun 2002
var ChildExitCode: Cardinal;
begin
ChildExitCode := WinExec32AndWait('"Lw:\Path\File.exe" Parameters', SW_NORMAL);
if Integer(ChildExitCode) = -1 then
ShowMessage('Das Programm konnte nicht gestartet werden.');
end;
Kontretisiert:
var ChildExitCode: Cardinal;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
14. Jun 2002
Vielleicht enthält der Pfad, den du über ExtractFilePath(ParamStr(0)); ermittelst Leerzeichen. Dann musst du nämlich den Programmnamen in Anführungszeichen setzen.
if Pos(' ', sSetupAufruf) > 0 then sSetupAufruf := '"' + sSetupAufruf + '"';
-----------------------
Wenn Result den Wert $FFFFFFFF liefert, dann trat ein Fehler auf. Entweder ist die Anwendung gar nicht erst gestartet worden,...