Mir is grad auf gefallen es geht trotzdem so
Delphi-Quellcode:
begin ShellExecute(
Handle, '
open', PChar(pfadg),
nil,
nil, SW_NORMAL);
if
ShellExecute(
Handle, '
open', PChar(pfads),
nil,
nil, SW_NORMAL) > 32
then
Application.MessageBox('
Datei ist nicht vorhanden oder beschädigt', '
Fehler', MB_OK)
else
Application.Terminate
end
ich hatte nur Apllication.Terminate und Mesage Box verdreht
sry
