Добавляем файлы в Recent Documents list

Delphi , Файловая система , Файлы

Предположим Вам захотелось, чтобы Ваше программа сама умела добавлять файлы "recent documents list" (для тех, кто в танке - это такая менюшка, которая появляется при нажатии на кнопку Пуск(Start) и наведении мышкой на "Документы" (Documents). Сама функция API-шная, так что применять её можно в любом компиляторе.

Добавляем следующий код в интерфейсную часть формы:

const 
SHARD_PIDL = 1;
SHARD_PATH = 2;

procedure SHAddToRecentDocs(Flags: Word; pfname: Pointer); stdcall; external 'shell32.dll' name'SHAddToRecentDocs';

А так выглядит вызов этой функции:

SHAddTorecentDocs(SHARD_PATH,pchar('C:\mydir\myprogram.exe')); 

файл 'myprogram.exe' будет добавлен в recent documents list

Программа добавляет файл в список "Было recently opened" в Windows, используя функцию SHAddToRecentDocs из библиотеки Shell32.dll.

Вот шаг за шагом, что происходит:

1. Определены два константы: SHARD_ PIDL и SHARD_ PATH. SHARD_ PIDL - это Persistent Item ID List (PIDL) элемента, который нужно добавить, а SHARD_ PATH - это путь к файлу.
2. Определен вызов функции SHAddToRecentDocs с параметрами:
   • Flags: слово, которое указывает, как должна работать функция. В этом случае оно установлено в SHARD_ PATH, что tells the function to add a file path to the recent documents list.
   • pfname: указатель на null-terminated строку, содержащую путь к файлу, который нужно добавить.
3. Функция SHAddToRecentDocs вызывается с аргументами:
   • Flags установлено в SHARD_ PATH, что specifies that we want to add a file path.
   • pchar('C:\mydir\myprogram.exe'): указатель на null-terminated строку, содержащую путь к файлу, который нужно добавить. В этом случае это 'C:\mydir\myprogram.exe'.

Когда вы вызываете SHAddToRecentDocs с этими аргументами, она добавит указанный путь к файлу в список "Было recently opened" в Windows.

Вот пример использования кода:

program AddFileToRecentDocs;
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SHAddToRecentDocs(SHARD_PATH, PChar('C:\mydir\myprogram.exe'));
end;

В этом примере мы определили обработчик события нажатия кнопки, который вызывает функцию SHAddToRecentDocs для добавления пути к файлу 'C:\mydir\myprogram.exe' в список "Было recently opened".

Обратите внимание, что вам нужно убедиться, что библиотека Shell32.dll доступна в системе PATH или включена в зависимости вашего проекта, чтобы код работал.

Добавляем файлы в Recent Documents список, используя функцию SHAddToRecentDocs из библиотеки shell32.dll.

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

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

:: Главная :: Файлы ::