Запустить проводник Windows с окном поиска

Тема в разделе "Delphi", создана пользователем WinHack, 28 ноя 2016.

  1. WinHack
    Следующий пример демонстрирует использование DDE, чтобы запустить диалоговое окно Проводника Windows для поиска файлов. Пример открывает поиск файлов в каталоге C:\Temp:

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