Добавить файл или ссылку на файл в меню Пуск-Документы в 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' );
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий