Lnk-ярлык определение его параметров

← →
Malik © (2008-03-14 23:04) [0]

Я пытаюсь определить адресс файла на который ссылает этот ярлык таким образом:
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"
. Чую, что туплю, но не знаю где((( Может подскажите как правильно?

← →
Johnmen © (2008-03-14 23:27) [1]

Потому, что sizeof(P)=4

Спасибо большое за помощь с вашей подачи разобрался разобрался.

Lnk-ярлык определение его параметров Найти похожие ветки