Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 06:03:10/0.0071170330047607/2