Ouvrir la boite de dialogue 'rechercher' dans l'explorateur de fichiers

uses DDEMan;

{...}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
SearchInFolder('c:Windows');
end;