Показать полную графическую версию : Подскажите, как работать с ярлыками на Delphi
Подскажите, как работать с ярлыками на Delphi (На какой файл ссылка, иконка, создание ярлыков)
//создание
uses ..ShlObj, ComObj, ActiveX, shellapi, ComCtrls..
нужны эти модули, но я не уверен что эт все,поищешь..
procedure SetShortCut(path, cmd, icon, wd, name, arg : String);
var ShellObject:IUnknown;
LinkFile:IPersistFile;
ShellLink:IShellLink;
begin
Try
CoInitialize(nil);
ShellObject:=CreateComObject(CLSID_ShellLink);
LinkFile:=ShellObject as IPersistFile;
ShellLink:=ShellObject as IShellLink; // RTFM - интерфейсу IShellLink, там всё описано
ShellLink.SetPath(@cmd[1]);
ShellLink.SetWorkingDirectory(@wd[1]);
ShellLink.SetIconLocation(@icon[1],0); // вместо 0 можно указать номер иконки если их там много...
ShellLink.SetDescription(@name[1]);
ShellLink.SetArguments(@arg[1]);
LinkFile.Save(PWChar(WideString(path)),true);
finally
ShellObject:=Unassigned;
CoUninitialize;
end;
end;
Prisoner
01-12-2003, 14:35
Идем сюда (http://delphiworld.narod.ru/files.html), причем идем в самый низ странички.
Если надо мыль .Много писать.
Какие ярлыки ? url или lnk ?
Разные функции всё тут не опишешь.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.