Verknüpfung erstellen bei Win NT

[Rasmus Weigel]

Hallo!
Vor einiger zeit habe ich angefragt (Siehe weiter unten unter 'Verknüpfung erstellen') wie eine Verknüpfung auf dem Desktop erstellt wird.
Klappt toll aber nicht auf einem NT-System.
Kann mir da jemand helfen.

Danke bis bald
rassi

[Patrick Sack]

<br>Hi,...
<br>
<br>kann das was mit deinene Berechtigungen zu tuen haben?
<br>
<br>ansonsten probier das:
<br>
<br>uses activeX,comobj,shlobj;
<br>
<br>const
<br> IID_IPersistFile: TGUID = (D1:$0000010B;D2:$0000;D3:$0000;D4:<br><br>($C0,$0 0,$00,$00,$00,$00,$00,$46));
<br>
<br>
<br>function CreateLink(lpszPathObj,lpszPathLink,lpszDesc:strin g):Boolean;
<br>var psl : IShellLink;
<br> ppf : IPersistFile;
<br>
<br>begin
<br> result := False;
<br> if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil, <br>CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl)) then begin
<br> psl.SetPath(PChar(lpszPathObj));
<br> psl.SetDescription(PChar(lpszDesc));
<br> if SUCCEEDED(psl.QueryInterface(IID_IPersistFile,ppf) ) then <br>begin
<br> ppf.Save(StringToOLEStr(lpszPathLink),TRUE);
<br> Result := true;
<br>// ppf._Release; ---> Runtime-Error wenn aktiv
<br> end;
<br> end;
<br>// psl._Release; ---> Runtime-Error wenn aktiv
<br>end;
<br>
<br>MfG
<br>P