Отлов нажатия кнопок в OpenDialog

[uberchel]

ТС, вы бы сначала код скомпилировали и посмотрели его работу.

uses registry;
...
if not opendialog.execute then exit; // открываем окно и если не чего не выбрано или нажата кнопка отмена, то выходим из функции.

with TRegistry.create do // создаем экземпляр компонента для работу с реестром
begin
if openkey('software/youprogram', true) then // Открываем опр. ключ, если его нет - создаем
writestring('path', opengialog.filename); // создаем параметр с путем до открытого файла из диалога
free; // освобождаем память
end;

Если бы, вы почитали соответствующию литературу, как сказал p51x, вы бы не писали глупости.

[p51x]

Если вам надо папки выбирать, то:
1. виста+ TFileOpenDialog и

Options := [fdoPickFolders];

2. виста-
SHBrowseForFolder или обертка над ней SelectDirectory

[northener]

Сообщение от Janger

мне надо, что бы он ее не открывал, а закрывался и передавал путь к папке в едит

Используй SelectDirectory, а не TOpenDialog.

[kropotkina-alice]

To Janger:
Так устроит?

var b: boolean;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
; // или ваш дополнительный обработчик
end;

procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
if not b then
exit;
Edit1.Text:=OpenDialog1.FileName;
SendMessage(GetParent(OpenDialog1.Handle), WM_CLOSE, 0,0);
Application.ProcessMessages;
b:=False;
end;

procedure TForm1.OpenDialog1SelectionChange(Sender: TObject);
begin
b:=True;
end;