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

Code:

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('.LNK\ShellNew') 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:\temp');

end;