CreateWindow in einer DLL....

[Tyrael Y.]

Hallo zusammen,

ich benutze folgenden Code einmal innerhalb einer DLL und
einmal innerhalb einer Testapplikation.
Innerhalb der DLL wird das Fenster nicht erzeugt (CreateWindow gibt kein Handle zurück)
Innerhalb der Testapplikation läuft der Code einwandfrei.

Hat einer vielleicht eine Idee woran es liegt?

P.S.: Das Fenster bleibt unsichtbar und dient nur als ein Message-Empfänger(bei
beiden Versionen).

Delphi-Quellcode:

procedure CreateCommandWindow();
var  LWndClassStruct: TWndClass;
begin
  
  LWndClassStruct.style := 0;
  LWndClassStruct.lpfnWndProc := @DoOnCommand;
  LWndClassStruct.cbClsExtra := 0;
  LWndClassStruct.cbWndExtra := 0;
  LWndClassStruct.hInstance := HInstance;
  LWndClassStruct.hIcon := 0;
  LWndClassStruct.hCursor := 0;
  LWndClassStruct.hbrBackground := 0;
  LWndClassStruct.lpszMenuName := nil;
  LWndClassStruct.lpszClassName := PAnsiChar('MeinKlassenName');

  if Windows.RegisterClass(LWndClassStruct) <> 0 then
  begin
    WindowHandle := Windows.CreateWindow(PAnsiChar('MeinKlassenName'),
                          PAnsiChar('MeinFensterName'),
                          0,0,0,0,0, 0, 0, HInstance,nil);
  end
  else 
    ...

Danke euch.
Gruß Tyrael