http://community.csdn.net/Expert/topic/3699/3699699.xml?temp=.7266199楼上的兄弟,这是书中原码:
function RegisterClass: Boolean;
var
  WindowClass: TWndClass;
begin
  {setup our new window class}
  WindowClass.Style := CS_HREDRAW or CS_VREDRAW;  //这个CS_HREDRAW or CS_VREDRAW值是从哪里得来的啊         
  WindowClass.lpfnWndProc := @DefWindowProc;               
  WindowClass.cbClsExtra := 0;                            
  WindowClass.cbWndExtra := 0;                             
  WindowClass.hInstance := hInstance;                      
  WindowClass.hIcon := 0;                               
  WindowClass.hCursor := 0;                              
  WindowClass.hbrBackground := COLOR_WINDOW;  这个COLOR_WINDOW是从哪里得来的?
  WindowClass.lpszMenuName := nil;                        
  WindowClass.lpszClassName := 'TestClass';                 
  Result := Windows.RegisterClass(WindowClass) <> 0;
end;
--------------------------------------------------------------------------------