Delphi FAQ >> Операционная система Данная функция на Delphi очищает список «Недавние документы». uses ShlObj; … SHAddToRecentDocs(SHARD_PATH, nil); Смотреть фильмы бесплатно сейчас может каждый, у кого есть быстрый интернет.
Delphi FAQ >> Диалоги Перед разделом var запишите объявление процедуры: Function PickIconDialog(Handle:THandle; FileName:PChar; FileNameSize:integer; var IconIndex:integer):Boolean; stdcall; external ‘shell32.dll’ index 62; Пример использования: Procedure TForm1.Button1Click (Sender: TObject); var IconIndex: Integer; begin if PickIconDialog (Handle, PChar (‘shell32.dll’), 0, IconIndex) then ShowMessage (‘Выбрана иконка номер ‘ + IntTOStr (IconIndex)); end; Вы можете скачать клипы бесплатно без регистрации