[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'), все создается без проблем. Но если переменную собирать из нескольких текстовых полей (предполагается что юзер будет задавать путь), то ярлык не создается.
Помогите пожалуйста!

[angvelem]

Очень похоже на "войну" Ansi с Unicode.

[exuddy]

Сообщение от angvelem

Очень похоже на "войну" Ansi с Unicode.

не подскажете как решить?

[Karsh]

Попробуйте так:

Код:

var
    WidePath: array[0..MAX_PATH] of WideChar;
...
   end;
   StringToWideChar(PathLink, WidePath, SizeOf(WidePath));
   PFile.Save(WidePath, FALSE);
end;

[exuddy]

не помогло. сегодня на работе проверял разные варианты, результат один

[Karsh]

Попробовал ваш код на Delphi 7 и 2009 - все работает. Путь собирал так:

Код:

  patch:= Edit1.Text;
  if LastDelimiter('\', patch) <> length(patch) then
    patch:= patch + '\';
  patch:= patch + Edit2.Text + '.lnk';

[exuddy]

были мысли что как то не так путь собираю. но что-то ничего путного не придумал. сейчас собираю вот так:

Код:

path:= '\\'+edit1.Text+'\'+users.Items[users.ItemIndex]+'\rar.lnk';