Как запустить диалог поиска файла

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Олег Кулабухов

У программиста потерялся файл, и он его никак не может найти. После пяти минут поисков он громко объявляет:

— Так, потерялся файл. Просьба никому не выходить из комнаты!

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;

{/codecitation}

Добавить комментарий