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;