Обновлено: 01 декабря, 2018

Добавить файл или ссылку на файл в меню Пуск-Документы в Delphi

Добавить файл:

uses ShlOBJ;  
procedure TForm1.Button1Click(Sender: TObject); 
var
  s : string; 
begin
  s := 'C:\DownLoad\ntkfaq.html'; 
  SHAddToRecentDocs(SHARD_PATH, pChar(s)); 
end;

Добавить ссылку на файл:

uses ShellAPI, ShlOBJ;
procedure AddToStartDocumentsMenu( sFilePath : string );
begin
  SHAddToRecentDocs( SHARD_PATH, PChar( sFilePath ) );
end;

Пример:

AddToStartDocumentsMenu( 'c:\windows\MyWork.txt' );

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439

(11 оценок, среднее: 5,00 из 5)

Загрузка...