[SCrat.ORS]

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

Например, зарегистрировать свою WndProc и по нажатию кнопок не вызывать стандартный обработчик, а просто выходить?

Не помогает.

Код:

function MainDlgFunc(hWnd : LongWord; uMsg : LongWord; wParam, lParam : Integer) : LongBOOL; stdcall;
begin
  Result := TRUE;
  case uMsg of
    $0110   : begin
              GetFullScreen(32);
              resize(hwnd);
              GamesThread := TGameThread.Create(hWnd);   // WM_INITDIALOG:
              end;
    $0002,                                                                  // WM_DESTROY
    $0010   : FreeAll;                                                    // WM_CLOSE
    $0111: case wParam of                                            // WM_COMMAND
           101: FreeAll;
           end;
  else
    Result := FALSE;
  end;
end;

begin
DialogBox(hInstance, PChar(RC_FORM), 0, @MainDlgFunc);
end.

Даже дефолтный не вызываю,.. при этом всё работает, но все-равно пикает.