Bitte den Quelltext mal ändern:
Delphi-Quellcode:
procedure Formular.SnippingToolClick(Sender: TObject);
var
iError : Integer;
begin
iError := ShellExecute(Application.Handle, 'open', pchar('c:\windows\system32\SnippingTool.exe'), nil, nil, sw_show);
if iError < 33 then begin
ShowMessage(Format('Fehler: %d',[iError]));
end;
end;
Der Rückgabewert von ShellExecute könnte hilfreich sein
Fehlermeldungen/Rückgabewerte siehe:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx