Wie kann ich den Suchen-Dialog des Windows-Explorers aufrufen?

Das funktioniert per DDE-Konversation mit dem Windows-Explorer (Beispiel von Markus Goetz):

uses DDEMan;

procedure SearchInFolder(Folder:string);
begin
  with TDDEClientConv.Create(Form1) do begin
    ConnectMode := ddeManual;
    ServiceApplication := 'Explorer.exe';
    SetLink('Folders', 'AppProperties');
    OpenLink;
    ExecuteMacro(PChar('[FindFolder(, '+Folder+')]'), true);
    CloseLink;
    Free;
  end;
end;

siehe auch:

Delphi FAQ