Ярлыки в Delphi

[Timoha]

Люди, подскажите, пожалуйста, как программно создавать ярлык с назначенным быстрым сочетанием клавиш?

[SunKnight]

http://programmersclub.ru/simply-art-yarl/

[mihali4]

Следующая процедура создает ярлык:

procedure CreateLink(const PathObj, PathLink, Desc, Param: string); 
var 
IObject: IUnknown; 
SLink: IShellLink; 
PFile: IPersistFile; 
begin 
IObject := CreateComObject(CLSID_ShellLink); 
SLink := IObject as IShellLink; 
PFile := IObject as IPersistFile; 
with SLink do 
begin 
SetArguments(PChar(Param)); 
SetDescription(PChar(Desc)); 
SetPath(PChar(PathObj)); 
end; 
PFile.Save(PWChar(WideString(PathLink)), FALSE); 
end; 

Пример вызова функции: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
CreateLink('c:\setup.exe','c:\set.lnk','',''); 
end;

В результате будет создан ярлык set.lnk на приложение setup.exe, которое находится на диске C:.
Параметр Desc содержит описание ярлыка, его можно опустить.
А параметр Param отвечает за список параметров, которые нужно задать ярлыку, в большинстве случаев его тоже можно опустить.
Но именно этот список и включает в себя HotKey.
Для назначения HotKey есть и самостоятельная процедура -
SetHotkey(ISHELLLINK FAR *pShlLnk, WORD wHotkey);
Я думаю, вы без труда разберетесь, если заглянете в
Borland\Borland Shared\MSHelp\Win32.hlp