| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Lnk-ярлык определение его параметров [D6, XP]
Malik © (2008-03-14 23:04:00)Я пытаюсь определить адресс файла на который ссылает этот ярлык таким образом:
Var
shelllink: ishelllink;
persistfile: ipersistfile;
anobj: iunknown;
p:PChar;
s:String;
finddata: twin32finddata;
....
anobj := createcomobject(clsid_shelllink);
shelllink := anobj as ishelllink;
persistfile := anobj as ipersistfile;
persistfile.load(pwchar(adr), 0);//Adr здесь WideString
GetMem(P, 100);
shelllink.getpath(P, sizeof(P),finddata, slgp_uncpriority);
s:=P;
....
Почему-то во время дебагинига когда я просматриваю значение S имеет значение 'C:\' скажем вместо 'C:\asa\asas.exe'
. Чую, что туплю, но не знаю где((( Может подскажите как правильно?
Malik (2008-03-14 23:37:00) [1]Спасибо большое за помощь с вашей подачи разобрался разобрался.
Johnmen (2008-03-14 23:27:00) [2]Потому, что sizeof(P)=4
| |
