Hi Leute!
Ich habe hiermit...
Delphi-Quellcode:
function CreateLink(Source,Target,Beschreibung:string):Boolean;
var psl : IShellLink;
ppf : IPersistFile;
const
IID_IPersistFile:
TGUID = (D1:$0000010B;
D2:$0000;
D3:$0000;
D4:($C0,$00,$00,$00,$00,$00,$00,$46));
begin
result := False;
if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl)) then begin
psl.SetPath(PChar(Source));
psl.SetDescription(PChar(Beschreibung));
if SUCCEEDED(psl.QueryInterface(IID_IPersistFile,ppf)) then begin
ppf.Save(StringToOLEStr(Target),TRUE);
Result := true;
end;
end;
end;
CreateLink('Datei.exe','Verknüpfung.lnk','Kommentar') ;
erfolgreich eine Verknüpfung erstellt.
Nun möchte ich aber, dass das angegebene Programm mit einem bestimmten Parameter gestartet wird.
Die Frage. Wi bekomme ich diesen Parametr hinter den Pfad meiner auszuführenden Datei bzw. Wie kann ich das beim Erstellen der Verknüpfung beeinflussen?
Danke schonmal.
Grüße BF