Как открыть диалог создания ярлыкаDelphi , Файловая система , ЯрлыкиКак открыть диалог создания ярлыкаАвтор: http://www.swissdelphicenter.ch 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; Статья Как открыть диалог создания ярлыка раздела Файловая система Ярлыки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |