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

Previous  Top  Next

    
 

 

 

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;

 

 

©Drkb::01199

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php