Mega Code Archive

 

Categories / Delphi / System

 

Belgeler klasörünü temizlemek

Uses ShlOBJ; procedure TMainForm.ButTemizleClick(Sender: TObject); begin SHAddToRecentDocs(SHARD_PATH, nil); ShowMessage('Temizlendi'); end;