Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

iShellLink   Найти похожие ветки 

 
Jel   (2003-10-29 14:13) [0]

Пытаюсь получить путь и номер иконки, асоциированной с ярлыком. Пишу

iObject := CreateComObject(CLSID_ShellLink);
iShl := iObject as iShellLink;
iFile := iObject as iPersistFile;
res := iFile.Load("c:\wa.lnk", 0);
if res <> 0 then showMessage(SysErrorMessage(res));
s := pchar(StringOfChar(" ",100));
res := iSHl.GetIconLocation(s, 100, i); // возвращает ""

// res := iSHl.GetPath(s, 100, aaa, 0); // - а вот это работает

if res <> 0 then showMessage(SysErrorMessage(res));
ShowMessage(s);


ошибок не возникает, но путь пустая строка, причем закоментированная строка работает и возвращает нормальный путь.
Подскажите, плиз, что делаю не так?


 
ZEE   (2003-10-29 14:30) [1]

так GetIconLocation - это если иконка указано явно, а если нет то берется из самого файла на который указывает ярлык...


 
Jel   (2003-10-29 14:55) [2]


> ZEE © (29.10.03 14:30) [1]


Спасибо. А я-то парюсь... :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.037 c
8-41773
JOV
2003-07-16 06:52
2003.11.13
Сжатие MP3


1-41531
афвуд
2003-10-28 11:01
2003.11.13
Проблема с методом Popup у PopupMenu


14-42106
Ihor Osov'yak
2003-10-23 15:53
2003.11.13
Как вам такова версия о причине событий вокруг Тузлы?


9-40765
Ricks
2003-05-04 15:28
2003.11.13
Формат модели.


1-41672
Islander
2003-10-24 09:52
2003.11.13
Как узнать текущую кодовую страницу винды и текущую локаль?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский