Как открыть диалог создания ярлыка
Как открыть диалог создания ярлыка
Как открыть диалог создания ярлыка 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:temp'); end;
