Delphi - база знаний


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


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




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

Взято с сайта



Начало  Назад  Вперед