Как открыть диалог создания ярлыка?
Как открыть диалог создания ярлыка?
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;
Взято с сайта