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

Вниз

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

← →
Link   (2002-08-08 21:54) [0]

Мне нужно по иени ярлыка узнать имя файла, на который он ссыляется. Я пишу так:
function GetShellLink(LinkFileName:String):String;
var
ShellLink:IShellLink;
pfd:TWin32FindData;
begin
ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
ShellLink.GetPath(PChar(LinkFileName),200,pfd,0);
Result:=pfd.cFileName;
end;
Но в Result всегда получается "". Где ошибка? (И как её исправить?)

---

← →
_Александр_   (2002-08-09 05:35) [1]

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

function GetFullNameFromLink(const LinkFile: WideString): String;
var
SL: IShellLink;
PF: IPersistFile;
FindData: TWin32FindData;
Str: array[0..MAX_PATH] of char;
begin
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, SL));
PF := SL as IPersistFile;
OleCheck(PF.Load(PWideChar(LinkFile), STGM_READ));
OleCheck(SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI));

OleCheck(SL.GetPath(Str, MAX_PATH, FindData, SLGP_SHORTPATH));
Result := Str;
end;

Прим:
Uses
..., ShlObj, ActiveX, ComObj, ...

---

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

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

Наверх

Память: 0.44 MB
Время: 0.007 c