Как вызвать диалог 'Найти файлы и паки' проводника?
Материал из DRKB
Как вызвать диалог 'Найти файлы и паки' проводника?[править | править код]
Приведенный пример показывает использование DDE для вызова диалога 'Найти файлы и папки' Explorerа. Диалог открывается на каталоге "C:\Download".
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;
ID: 01217