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