Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.111 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Verrücktes Problem mit Delphi7 und ShellExecute

  Alt 23. Feb 2016, 17:04
Bist du dir sicher dass 'open' das richtige Verb ist? Ich hätte, beim Ausführen von Anwendungen, einfach Nil genommen:
Zitat:
The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.
Analog die Parameter (nach dem 'Notepad.exe'): Auch hier würde ich Nil und keinen leeren String übergeben.

Weiterhin verstehe ich dein "Wenn ich das auskommentiere ..." nicht. Sieht dein Quellcode wirklich so aus wie gezeigt? Ein ShellExecute an sich wirft keine Fehler, sondern gibt nur eine Zahl zurück. Oder hast du es so?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
   if ShellExecute(Handle,'open','notepsd.exe','', nil, SW_SHOWNORMAL) <= 32 then
      RaiseLastOSError();
end;
  Mit Zitat antworten Zitat