Как вызвать диалог 'Найти файлы и паки' проводника?

Previous  Top  Next

    
 

 

Приведенный пример показывает использование DDE для вызова диалога 'Найти файлы и паки' Explorerа. Диалог открывается на каталоге "C:\Download".

Code:

           procedure TForm1.Button1Click(Sender: TObject);

            begin

              with TDDEClientConv.Create(Self) do begin

                ConnectMode := ddeManual;

                ServiceApplication := 'explorer.exe';

                SetLink( 'Folders', 'AppProperties');

                OpenLink;

                ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False);

                CloseLink;

                Free;

              end;

            end;

 

©Drkb::01217