Hier kommt ein Beispiel, wie es bei mir nicht funktioniert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var path:
String;
rueckgabewert: integer;
begin
path:='
C:\Dokumente und Einstellungen\max\Desktop\XP-Clean.lnk';
rueckgabewert:=ShellExecute(
handle, '
open', PChar(path),
nil,
nil,SW_SHOWNORMAL);
label1.Caption:=IntToStr(rueckgabewert);
end;
Als Rückgabewert zeigt label1.caption immer "5" an, also "SE_ERR_ACCESSDENIED".
Bei anderen lnk-Dateien funktioniert die Geschichte.
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]