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

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

Ярлыки [D7, Win95/98, WinME, NT4, Win2k, WinXP]

B ©   (2004-01-01 15:47:00) 

Как мне просмотреть свойства уже существующего ярлыка? Надо проверить, существует ли тот файл, на который он ссылается?
Заранее спасибо.

---

Rouse_   (2004-01-02 13:53: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;

Желаю успехов

---

jack128   (2004-01-01 17:05:00) [2]

IShellLink + F1

---

Наверх