Delphi创建API窗口

{$R *.dfm}
//注册窗口类
function RegClass:Boolean;
var
  WindowClass:TWndClass;
begin
  //设置新窗口类
  WindowClass.style:= 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; //使用预定义颜色
  WindowClass.lpszMenuName:=nil;           //没有菜单
  WindowClass.lpszClassName:='WindowClass';   //注册的类名称
  //类设置完成，注册该类
  Result:=Windows.RegisterClass(WindowClass)<>0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  hWindow:HWND;
begin
  if not RegClass then       //注册新的窗口类
  begin
    ShowMessage('RegisterClass Failed');     //条件是不成功则弹出这个提示
    Exit;
  end;
  //开始建立新的窗口
  hWindow:=CreateWindowEx(0,                    //扩展风格(无)
                          'WindowClass',        //注册的类名
                          'API Window For Delphi By:Ebloke',         //窗口标题
                          WS_OVERLAPPEDWINDOW,  //通用窗口风格
                          CW_USEDEFAULT,        //默认水平位置
                          CW_USEDEFAULT,        //默认垂直位置
                          CW_USEDEFAULT,        //默认宽度
                          CW_USEDEFAULT,        //默认高度
                          0,                    //主窗口(无)
                          0,                    //菜单(无)
                          hInstance,            //程序实例句柄
                          nil);
  if hWindow<>0 then   //如果窗口建立成功   显示窗口
  begin
    ShowWindow(hWindow,SW_SHOWNORMAL);
    UpdateWindow(hWindow);
  end
  else
  begin
    ShowMessage('CreateWindow failed');    //建立失败 返回提示！
    Exit;
  end;
end;
end.