Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Получения пути из ярлыка (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.054 c
