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; About.com