Закрыть opendialog

[Kronos913]

Вводные данные:
Opendialog порождён временной переменной

var
  OD:TOpenDialog;

  OD:=TOpenDialog.Create(nil);
  If OD.Execute then begin
    {код}
  End;
  OD.Free;

Есть обработка горячих клавиш

  RegisterHotKey(Handle, 0, 0, 27);

procedure TForm1.hot_key(var Msg: TWMHotKey);
begin

  case Msg.HotKey of
     0: begin
          {Код 1}
     1: begin
          {Код 2}
        end;
  end;
end;

Вопрос: как сделать так, чтобы "код 1" закрыл диалоговое окно?

Зачем это надо: нужно в другой части программы обрабатывать Esc и переть Esc перестал закрывать диалоговые окна. Как вернуть это на место?

[northener]

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

Вводные данные:
Opendialog порождён временной переменной

var
  OD:TOpenDialog;

  OD:=TOpenDialog.Create(nil);
  If OD.Execute then begin
    {код}
  End;
  OD.Free;

Есть обработка горячих клавиш

  RegisterHotKey(Handle, 0, 0, 27);

procedure TForm1.hot_key(var Msg: TWMHotKey);
begin

  case Msg.HotKey of
     0: begin
          {Код 1}
     1: begin
          {Код 2}
        end;
  end;
end;

Вопрос: как сделать так, чтобы "код 1" закрыл диалоговое окно?

Зачем это надо: нужно в другой части программы обрабатывать Esc и переть Esc перестал закрывать диалоговые окна. Как вернуть это на место?

Желательно перевести на русский слово "переть" и объяснить что вернуть, куда и на какое место.

[DIONISKA]

Самое очевидное решение же:

var
 od: TOpenDialog;
begin
   UnregisterHotKey(handle,0);
   try
   od:=TOpenDialog.Create(self);
   if od.Execute(Handle) then
    begin
      //...
    end;
   finally
    RegisterHotKey(Handle, 0, 0, 27);
   end;