Как открыть диалог создания ярлыка

uses

  registry, shellapi;

function
 Launch_CreateShortCut_Dialog(Directory: string
): Boolean;
var

  reg: TRegistry;
  cmd: string
;
begin

  Result := False;
  reg := TRegistry.Create;
  try

    reg.Rootkey := HKEY_CLASSES_ROOT;
    if
 reg.OpenKeyReadOnly('.LNKShellNew') then

    begin

      cmd := reg.ReadString('Command');
      cmd := StringReplace(cmd, '%1', Directory, []);
      Result := True;
      WinExec(PChar(cmd), SW_SHOWNORMAL);
    end

  finally

    reg.Free;
  end
;
end
;

{Example}

procedure
 TForm1.Button1Click(Sender: TObject);
begin

  Launch_CreateShortCut_Dialog('c:	emp');
end
;

Другое по теме:

• Создать ярлык объекта в любой папке
• Создать ярлык на рабочем столе
• Создание ярлыков на рабочем столе, старт меню, панели быстрого запуска