Parameter einer Verknüpfung bestimmen

[blackfoxx]

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