Criar atalho de executavel

{Para criar um atalho para um programa, primeiramente coloque essas units na
seção implementation de seu form:
uses ShlObj, ActiveX, ComObj, Registry;
Depois, vá à seção type de sua unit após a seçao public e crie o seguinte tipo:
type // Digite somente a linha abaixo:
TShortcutPlace = (stDesktop, stStartMenu);
}

Procedure CreateShortcut(FileName, Parameters, InitialDir, ShortcutName,ShortcutFolder : Pchar; Place: TShortcutPlace);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(Parameters);
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
end;
MyReg := TRegIniFile.Create(´Software\MicroSoft\Windows\CurrentVersion\Explorer´);
if Place = stDesktop then
Directory := MyReg.ReadString (´Shell Folders´,´Desktop´,´´);
if Place = stStartMenu then
begin
Directory := MyReg.ReadString(´Shell Folders´, ´Start Menu´,´´) + ´\´ +ShortcutFolder;
CreateDir(Directory);
end;
WFileName := Directory + ´\´ + ShortcutName + ´.lnk´;
MyPFile.Save (PWChar (WFileName), False);
MyReg.Free;
end;