Belgeler menüsüne bir dosya ekleme

uses kısmına ShlOBJ unitini ekleyin;
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := 'C:\DownLoad\deneme.html';
SHAddToRecentDocs(SHARD_PATH, pChar(s));
end;


Belgeler menüsünü temizleme

uses kısmına ShlOBJ unitini ekleyin;
SHAddToRecentDocs(SHARD_PATH, nil);

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat