если тебе выдает ошибку, что класс не зарегестрирован, то возможно тебе необходимо провести следующую процедуру:
Код:
RegisterClass(Your_Class_Name)
Ну и вот еще небольшая вырезка из кода по созданию окна на winAPI:
Код:
...
var
Inst, Handle : Hwnd;
WndClass : TWndClass;
...
begin
...
Inst := GetModuleHandle(nil);
with WndClass do
begin
Style := CS_HRedraw or CS_VRedraw;
Lpfnwndproc := @windowproc; //
Hinstance := Inst;
HbrBackground := color_btnface;
LpszClassName := 'DX';
HCursor := loadCursor(0,IDC_ARROW);
end;
RegisterClass(WndClass);
Handle:=CreateWindowEx(0,'DX','',WS_POPUP,1,1,200,200,0,0,Inst,nil);
ShowWindow(Handle, SW_SHOW);
UpdateWindow(Handle);
...
end;