Как добавить документы в папку `Старт`->`Документы`?
Олег Кулабухов приводит следующий код:
uses ShlOBJ; procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s := 'C:\DownLoad\ntkfaq.html'; SHAddToRecentDocs(SHARD_PATH, pChar(s)); end; |
[001786]