[AIMor]

Для создания ярлыка использую процедуру:

Код:

Procedure CreateShotCut(Var SourceFile, ShortCutName, SourceParams : String);
Var
   IUnk            : IUnknown;
   ShellLink       : IShellLink;
   ShellFile       : IPersistFile;
   tmpShortCutName : String;
   WideStr         : WideString;
   I               : Integer;

begin
   IUnk:=CreateComObject(CLSID_ShellLink);
   ShellLink:=IUnk As IShellLink;
   ShellFile:=IUnk As IPersistFile;

   ShellLink.SetPath(PChar(SourceFile));
   ShellLink.SetArguments(PChar(SourceParams));
   ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(SourceFile)));

   ShortCutName:=ChangeFileExt(ShortCutName,'.lnk');
   If FileExists(ShortCutName) Then
      begin
         ShortCutName:=Copy(ShortCutName,1,length(ShortCutName)-4);
         I:=1;
         Repeat
            tmpShortCutName:=ShortCutName+'('+IntToStr(I)+').lnk';
            Inc(I);
         Until (Not FileExists(tmpShortCutName));
         WideStr:=tmpShortCutName;
      end
                               Else WideStr:=ShortCutName;
   ShellFile.Save(PWChar(WideStr),False);
end;

Подскажите, пожалуйста, каким образом можно узнать значения входных параметров этой процедуры по уже созданному ярлыку.
То есть нужна процедура обратная этой.