Fórum Criar atalho no Menu Iniciar #263767

Vê se isso te ajuda:
Essa função é pra criar atalhos, mas não sei onde...achei em um lugar ´escondido´ dos meus exemplos.

procedure TForm1.CriarAtalho(var caminho_atual, caminho_destino: string);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
WFileName : WideString;

begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(pchar(caminho_atual));
SetPath(PChar(caminho_atual));
SetWorkingDirectory(PChar(ExtractFilePath(caminho_atual)));
end;
WFileName := caminho_destino;
MyPFile.Save(PWChar(WFileName),False);
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Edit1.Text:=OpenDialog1.FileName;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Dir : String;

begin
If SelectDirectory(´Selecione o diretório de destino´,´´,Dir) Then
Edit2.Text:=Dir;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CriarAtalho(Edit1.Text,Edit2.Text);
end;