Как добавить документ в меню Пуск -> Документы? |
Previous Top Next |
Используйте функцию SHAddToRecentDocs.
Code: |
uses ShlOBJ;
procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := 'C:\DownLoad\ntkfaq.html'; SHAddToRecentDocs(SHARD_PATH, pChar(s)); end; |
©Drkb::01664
Взято из http://forum.sources.ru