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

Материал из DRKB

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

Приведенный пример показывает использование 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;


ID: 01217