Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Получения пути из ярлыка (IShellLink, GetPath)   Найти похожие ветки 

 
Artin   (2004-05-05 22:26) [0]

Здрастье.
Напешите пожалуйста как получить путь из ярлыка (GetPath).
Хотелосьбы прям кусок кода. Сразу скажу что я искал и в учебниках и в инете. Уже голова круго идёт. Там всего то 5 строчек помогите плз.


 
diaz   (2004-05-06 09:26) [1]

uses
 ...ActiveX, ShlObj, ShellApi;

{получить имя файла из ярлыка}
function TForm1.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;



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.03 c
4-1080839477
Константин
2004-04-01 21:11
2004.05.23
Запуск прогрыммы из Автозапуска


7-1082389431
Stefan
2004-04-19 19:43
2004.05.23
Как получить список дочерних процессов ?


1-1083923137
Erik
2004-05-07 13:45
2004.05.23
Динамическое определение типа?


7-1082023124
Rikki
2004-04-15 13:58
2004.05.23
Как заблокировать компьютер а тоесть......


3-1082730096
Хохол
2004-04-23 18:21
2004.05.23
Одновременная работа пользователей с БД Access.