[exuddy]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;

используем:

Код:

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

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

[angvelem]

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

[exuddy]

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

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

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

[Karsh]

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

Код:

1 2 3 4 5 6 7

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

[exuddy]

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

[Karsh]

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

Код:

1 2 3 4

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

[exuddy]

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

Код:

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