Execute the Windows Explorer Find File Dialog Box

~~~~~~~~~~~~~~~~~~~~~~~~~
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;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Delete files with the ability to UNDO
« Making a Form Non-Moveable

• 1
• 2
• 3
• 4
• 5