Войти

Показать полную графическую версию : Подскажите, как работать с ярлыками на Delphi


PAS2k
01-12-2003, 11:49
Подскажите, как работать с ярлыками на Delphi (На какой файл ссылка, иконка, создание ярлыков)

Vich
01-12-2003, 12:03
//создание
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), причем идем в самый низ странички.

RIKO
06-12-2003, 21:43
Если надо мыль .Много писать.
Какие ярлыки ? url или lnk ?
Разные функции всё тут не опишешь.




© OSzone.net 2001-2012