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

[SirThornberry]

schreib doch die parameter einfach mit hinter "Datei.exe".
Also so
CreateLink('Datei.exe parameter','Verknüpfung.lnk','Kommentar'); denn letztendlich wird die funktion nix anderes machen als die parameter an den passenden stellen der verknüpfungsdatei einzufügen

[MosiXXL]

psl.SetArguments('Parameter');

[blackfoxx]

Das Problem ist, dass dann in meiner Verknüpfung als Ziel "C:\Datei.bla Parameter" steht.
Um als Parametr erkannt zu werden muss der Wert aber hinter den Quotes stehen. Also: "C:\Datei.bla" Parameter.
Im ersten Fall sucht er nämlich die Datei: Datei.bla Parameter. und die gibt es ja nihct sonder nur die Datei: Datei.bla.

[MathiasSimmack]

Nope! Mit "SetArguments" gibt es eine Möglichkeit, Parameter für einen solchen IShellLink festzulegen. Ohne neue Stringvariable im Funktionskopf wird´s also vermutlich nicht gehen.

[blackfoxx]

Also hab die String-Variable in der Deklaration natürlich hinzugefügt und so funzt es wunderbar.
Thx MosiXXL.