Delphi-Quellcode:
var
WindowClass: TWndClassEx = (style: 0; // <--<< sollte hier nich noch was hin ?
lpfnWndProc: @WndProcDispatch;
cbClsExtra: 0;
cbWndExtra: 4; // <--<< was 'n das ???
hIcon: 0;
hCursor: 0;
lpszMenuName: nil;
hIconSm: 0;
);
begin
WindowClass.cbSize := SizeOf(TWndClassEx);
WindowClass.lpszClassName := 'wnd';
WindowClass.hInstance := SysInit.hInstance;
WindowClass.hbrBackground := GetSysColorBrush(COLOR_BTNFACE);
RegisterClassEx(WindowClass);
end;
Was gibt dir denn RegisterClassEx als Result zurück ?
Nur mal so nebenbei:
FHandle := CreateWindowEx(0,WindowClass.lpszClassname,WindowClass.lpszClassName, ...
Klassenname und Fenstername sollen die selben sein ?