Message-Only-Window erzeugen - CreateWindow - Windowproc?!

[Luckie]

Du musst die Struktur für die Fensterklasse füllen und registrieren:

Delphi-Quellcode:

var
  wc                : TWndClassEx = (
    cbSize: SizeOf(TWndClassEx);
    Style: CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc: @WndProc;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hbrBackground: COLOR_BTNFACE + 1;
    lpszMenuName: nil;
    lpszClassName: ClassName;
    hIconSm: 0;
    );
  msg               : TMsg;
begin
  InitCommonControls;

  wc.hInstance := hInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);

  RegisterClassEx(wc);
  hApp := CreateWindowEx(0, CLASSNAME, APPNAME, WS_OVERLAPPEDWINDOW or WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX or
    WS_MAXIMIZEBOX or WS_SIZEBOX, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), WINDOWWIDTH, WINDOWHEIGHT, 0, 0,
    hInstance, nil);

Das Feld lpfnWndProc verweist auf die Fensterprozedur.