Подскажите, как работать с ярлыками на 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; |
Идем сюда, причем идем в самый низ странички.
|
Если надо мыль .Много писать.
Какие ярлыки ? url или lnk ? Разные функции всё тут не опишешь. |
Время: 18:02. |
Время: 18:02.
© OSzone.net 2001-