[exuddy]

Здравствуйте! Прошу Вашего совета.
использую процедуру:

Код:

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
  var
    IObject: IUnknown;
    SLink: IShellLink;
    PFile: IPersistFile;
  begin
    IObject := CreateComObject(CLSID_ShellLink);
    SLink := IObject as IShellLink;
    PFile := IObject as IPersistFile;
    with SLink do begin
      SetArguments(PChar(Param));
      SetDescription(PChar(Desc));
      SetPath(PChar(PathObj));
    end;
    PFile.Save(PWChar(WideString(PathLink)), FALSE);
  end;

используем:

Код:

createlink('g:\1.rar',patch,'bmp','');

проблема в том, что если переменную patch (путь к создаваемому ярлыку) задавать статически ('\\192.168.1.2\public\1.lnk'), все создается без проблем. Но если переменную собирать из нескольких текстовых полей (предполагается что юзер будет задавать путь), то ярлык не создается.
Помогите пожалуйста!