Программирование на Delphi и не только Как вызвать диалог «Поиск файлов»? | Программирование на Delphi и не только

Delphi FAQ >> Диалоги

uses Ddeman; …

Procedure ShowFindDialog;

begin
  with TDDEClientConv.Create(form1) do
  begin     ConnectMode := ddeManual;     ServiceApplication := ‘explorer.exe’;     SetLink( ‘Folders’, ‘AppProperties’);     OpenLink;     ExecuteMacro(‘[FindFolder(,d:\)]’, False);     CloseLink;     Free;

  end;

end;

В преддверии лета информация по теме Италия туры актуальна как никогда.