[Stealthmax]

А как,чтобы подверждение было чет не допер. »

Код:

function FProc(h: hwnd; Msg, wParam, lParam: Longint): Longint;
begin
  if (Msg = $0112) then
  begin
    if (wParam = SC_CLOSE) then
    begin {действие при нажатии крестика}
    // параметр процедуры закрытия процесса
    if MsgBox('Прекратить установку и закрыть?', mbConfirmation, MB_YESNO) = idYes then  // подтверждение закрытия
    ExitProcess(0);
    // также можно добавить сообщение при нажатии
      //MsgBox('вы нажали крестик', mbInformation, MB_OK);
      wParam := 0;
    end;
  end;
  Result := CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;