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

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;

Here is a translation of the text into Russian:

Функция Launch_CreateShortCut_Dialog

Эта функция принимает параметр Directory, который указывает расположение, где будет создаваться ярлык.

1. Она создает объект TRegistry (reg) и устанавливает корневой ключ в HKEY_CLASSES_ROOT.
2. Она открывает только для чтения ключ .LNK\ShellNew, ответственный за создание новых ярлыков.
3. Если ключ существует, она читает значение строки Command из ключа и заменяет любые вхождения %1 на указанный параметр Directory. Это создаст ярлык для открытия диалога создания нового файлового ярлыка в указанном расположении.
4. Функция возвращает True, если ярлык был создан успешно.

Процедура Form1.Button1Click

Эта процедура вызывается, когда кнопка на форме нажата. Она просто вызывает функцию Launch_CreateShortCut_Dialog с аргументом 'c:\temp', который указывает расположение, где будет создаваться ярлык.

Альтернативное решение

Если вы хотите избежать использования реестра, можно использовать функцию SHCreateShortcut из модуля ShellAPI для программного создания файлового ярлыка. Вот пример:

uses
  ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  SHCreateShortcut('c:\temp\newshortcut.lnk', 'TargetPath');
end;

В этом примере TargetPath - это путь к файлу или директории, который вы хотите создать ярлык для. Функция SHCreateShortcut будет запросить у пользователя дополнительные свойства для ярлыка, такие как его иконку и описание.

Обратите внимание, что использование SHCreateShortcut требует Windows XP или более поздних версий. Если вам нужно поддерживать ранние версии Windows, то может потребоваться использование решений на основе реестра.

В статье описывается способ открытия диалога создания ярлыка в Delphi, используя функцию Launch_CreateShortCut_Dialog.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ярлыки ::