API函数创建窗体问题？
var
wnd:HWND;
wc:TWndClass;
begin
wc.style:=CS_HREDRAW or CS_VREDRAW;
wc.lpfnwndproc:=@DefWindowProc;
wc.cbClsExtra:=0;
wc.cbWndExtra:=0;
wc.hInstance:=hInstance;
wc.hIcon:=LoadIcon(0,IDI_QUESTION);
wc.hCursor:=LoadCursor(0,IDC_ARROW);
wc.hbrBackground:=HBRUSH(getStockObject(WHITE_BRUSH));
wc.lpszMenuName:=nil;
wc.lpszClassName:='wc';

RegisterClass(wc);//在这出错了？[Error] Unit1.pas(42): Incompatible types: 'TPersistentClass' and 'tagWNDCLASSA'

wnd:=CreateWindow('newclass','New Form',WS_OVERLAPPEDWINDOW,100,100,300,150,0,0,Hinstance,nil);
SHowWindow(wnd,SW_SHOWNORMAL);
UpdateWindow(wnd);
end;

[解决办法]
RegisterClass(wc);
改成
Windows.RegisterClass(wc);
[解决办法]

Delphi(Pascal) code

var wnd:HWND; wc:TWndClass; begin wc.style:=CS_HREDRAW or CS_VREDRAW; wc.lpfnwndproc:=@DefWindowProc; wc.cbClsExtra:=0; wc.cbWndExtra:=0; wc.hInstance:=hInstance; wc.hIcon:=LoadIcon(0,IDI_QUESTION); wc.hCursor:=LoadCursor(0,IDC_ARROW); wc.hbrBackground:=HBRUSH(getStockObject(WHITE_BRUSH)); wc.lpszMenuName:=nil; wc.lpszClassName:='wc'; Windows.RegisterClass(wc);//在这出错了？[Error] Unit1.pas(42): Incompatible types: 'TPersistentClass' and 'tagWNDCLASSA' //Delphi中的RegisterClass与WIN32API的RegisterClasser不同wnd:=CreateWindow('newclass','New Form',WS_OVERLAPPEDWINDOW,100,100,300,150,0,0,Hinstance,nil); SHowWindow(wnd,SW_SHOWNORMAL); UpdateWindow(wnd); end;