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
DelphiWorld 6.0