DDE для вызова диалога поиска файлов и папок

Previous  Top  Next

    
 

 

Code:

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:\Мои документы)]', False);

   CloseLink;

   Free;

end;

end;

 

 

 

 

 

©Drkb::04497

http://delphiworld.narod.ru/

DelphiWorld 6.0