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