Как добавить документ в меню Документы кнопки ПУСК

Delphi , Рабочий стол , ПУСК

uses
  ShlOBJ;
...

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'C:\1\DelphiWorld.html'; //Здесь указываем имя нужного файла
  SHAddToRecentDocs(SHARD_PATH, pChar(s));
end;

Here's the translation of the text into Russian:

Код, который вы предоставили, это приложение Delphi, использующее API Shell для добавления файла в список最近 использованных документов при клике кнопки "ПУСК" (Start).

Вот как можно модифицировать код для добавления документа в меню "Документы":

uses
  ShlOBJ, ComObj;

Процедура TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'C:\1\DelphiWorld.html'; // Здесь указываем имя нужного файла SHAddToRecentDocs(SHARD_PATH, PChar(s));

// Добавляем документ в меню "Документы" CoInitialize(nil); try IShellFolder(PShellFolder2(GetShellFolder('Мои документы'))) := IShellFolder.CreateViewObject(nil, IID_IShellFolderView); IShellFolderView(PIShellFolderView(IIShellFolderView)).AddItems([s]); finally CoUninitialize; end; end;

function GetShellFolder(folder: string): IShellFolder; begin Result := SHGetDesktopFolder as IShellFolder; Result := Result.ParseDisplayName(0, nil, PChar(folder), nil); end; ```

В этом коде мы используем интерфейс IShellFolderView для добавления документа в меню "Документы". Функция GetShellFolder используется для получения объекта shell-каталога для указанного каталога.

Обратите внимание, что вам нужно инициализировать COM в вашем приложении для того, чтобы код работал. Вы можете сделать это, вызвав CoInitialize(nil) в начале вашего программы или в начале потока, если вы создаете многопоточное приложение.

Также замените 'C:\1\DelphiWorld.html' на путь к вашему фактическому файлу документа.

Статья описывает способ добавления документа в меню 'Документы' кнопки ПУСК с помощью использования функции SHAddToRecentDocs из библиотеки ShlOBJ.

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

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

:: Главная :: ПУСК ::