| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать на какой файл ссылается ярлык. [D5, Win95/98]

Serg001 ©   (2002-02-23 18:29:00) 

Подскажите, как программно узнать на какой файл ссылается ярлык.

---

vid   (2002-02-23 23:19:00) [1]

вот функция... хотя похоже я опоздал :)

Function GetFileNamefromLink(LinkFileName:String):String;
// Эта функция возвращает полный путь к файлу, из ярлыка этого файла
var
MyObject: IUnknown;
MySLink: IShellLink;
MyPFile: IPersistFile;
FileInfo: TWin32FINDDATA;
WidePath: array [0..MAX_PATH] of WideChar;
Buff: array [0..MAX_PATH] of Char;
begin
Result := "";
if (fileexists(Linkfilename)=false) then exit;
MyObject := CreateComObject(CLSID_ShellLink);
MyPFile := MyObject as IPersistFile;
MySLink := MyObject as IShellLink;
StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath));
MyPFile.Load(WidePath, STGM_READ);
MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
Result := buff ;
end;

---

Набережных С.   (2002-02-23 20:32:00) [2]

function TItemsForm.AssociatedObj(const Link: string; var Arguments: string): string;
var
Lnk:IShellLink;
Prf: IPersistFile;
LinkPath,Argum:array [0..MAX_PATH]of Char;
PFD:WIN32_FIND_DATA;
begin
result:=Link;
Lnk:=CreateComObject(CLSID_ShellLink) as IShellLink;
try
OleCheck(Lnk.QueryInterface(System.TGUID(IID_IPersistFile),Prf));
try
if Prf.Load(StringToOLESTR(Link),STGM_READ)=S_OK then
begin
OleCheck(Lnk.GetPath(LinkPath,MAX_PATH,PFD,SLGP_UNCPRIORITY));
OleCheck(Lnk.GetArguments(Argum,MAX_PATH));
result:=LinkPath;
Arguments:=Argum;
end;
finally
Prf:=nil;
end;
finally
Lnk:=nil;
end;
end;


---

Sasha9   (2002-02-23 19:07:00) [3]

если ты открываешь ярлы через TOpenDialog то он сам это делает, а если нет то посмотри исходники TOpenDialog"а

---

Наверх