Execute the Windows Explorer Find File Dialog Box

{The following example demonstrates using DDE to

execute Explorer's find file dialog. The example

opens the dialog in the Directory "C:\DelphiTips".}

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:\DelphiTips)]', False);

CloseLink;

Free;

end;

end;