CreateShortCut(path) - не работает с русскими буквами

[poiuyt555]

Здравствуйте.
Код:
W=CREATECOMOBJECT('Wscript.Shell');
Так работает:
W.CreateShortcut('C:\shortcut.lnk');
А с русскими буквами - выдает ошибку:
W.CreateShortcut('C:\ярлык.lnk'); - не работает

Вопрос:
1) Как сделать, чтобы данная функция корректно работала с русскими буквами?
2) Доп. вопрос: как сделать данный код универсальным - т.е., чтобы он корректно работал со сторокой не только на русском и английском, но и на любом другом языке?

[Vadim]

выдает ошибку

А ошибка, наверное, такая:
"Can't find valid programmer. Please, insert new programmer now".
?
Текст ошибки то кто за вас писать будет?

[Nik]

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

Код: Выделить всё

W.CreateShortcut(SysToUTF8('C:\ярлык.lnk'));

[Vadim]

Nik
Наоборот.

[Mr.Smart]

Мне больше кажется, что нужно:

Код: Выделить всё

W.CreateShortcut(UTF8Decode('C:\ярлык.lnk'));

т.к. это OLE? такое OLE.

[poiuyt555]

Спасибо.
Так заработало:

Код: Выделить всё

...
a : wideString;
begin
  sh  := CreateOleObject('WScript.Shell');
  a:=UTF8Decode('C:\Ярлык.lnk');
  sht := sh.CreateShortcut(a);   
....