Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Как вызвать диалог 'Найти файлы и паки' проводника?

Как вызвать диалог 'Найти файлы и паки' проводника?

Приведенный пример показывает использование DDE для вызова диалога 'Найти файлы и паки' Explorerа. Диалог открывается на каталоге "C:\Download".

    procedure TForm1.Button1Click(Sender: TObject);
     begin
       with TDDEClientConv.Create(Self) do begin
     ConnectMode := ddeManual;
     ServiceApplication := 'explorer.exe';
     SetLink( 'Folders', 'AppProperties');
     OpenLink;
     ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False);
     CloseLink;
     Free;
       end;
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru