Главная / 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