Как запустить диалог поиска файла
|
У программиста потерялся файл, и он его никак не может найти. После пяти минут поисков он громко объявляет:
- Так, потерялся файл. Просьба никому не выходить из комнаты!
|
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;
|
|
