Как вызвать диалог «Найти файлы и папки проводника» в 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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (15 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий