nonVCL Fenster erstellen-> fensterklasse wurde nicht gefuden

[turboPASCAL]

Delphi-Quellcode:

procedure ShownonVCLWindow();
var
  FHandle : Cardinal;

begin
  ZeroMemory(@nonVCLWindow, sizeof(TWndClassEx)); // <--<<
  with nonVCLWindow do
  begin
    cbSize := SizeOf(TWndClassEx);
    style := CS_VREDRAW or CS_VREDRAW;
    lpfnWndProc := @DefWindowProc;
    hIcon := LoadIcon(0, IDI_WINLOGO);
    lpszClassName := 'myClass';
  end;

  if RegisterClassEx(nonVCLWindow) = 0 then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Error', MB_ICONSTOP or MB_OK);

  FHandle := CreateWindowEx(0,nonVCLWindow.lpszClassName,'myWindow',
                            WS_VISIBLE, 100,100,50,50,0,0,hInstance,nil);

  if FHandle = 0 then
    MessageBox(0, PChar(SysErrorMessage(GetLastError)), 'Error', MB_ICONSTOP or MB_OK);
end;

Füge bitte mal diese Zeile hinzu. Der Grund kann sein das die restlichen Felder
von nonVCLWindow ungültiges enthalten.