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

Советы » Ярлыки » Как открыть диалог создания ярлыка

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com