想不通，帮忙看看，谢谢

Question

用API编写窗体的代码，无论我怎么调CreateWindow函数的参量都没办法
把窗体变成无标题的，麻烦各位帮看看，谢了！！！program Project2;
uses
Windows;
const
AppName='Windows';
WM_DESTROY = 2;
WM_LBUTTONUP = 514;
{＄R ＊.RES}
//窗口处理函数
function WindowProc(Window:Hwnd;Amessage,wParam,
lParam:LongInt):LongInt;stdcall;export;
begin
WindowProc:=0;
case Amessage of
WM_DESTROY:
begin
PostQuitmessage(0);
Exit;
end;
WM_LBUTTONUP:
begin
PostQuitmessage(0);
Exit;
end;
end;
WindowProc := DefWindowProc(Window,Amessage,wParam,lParam);
end;//注册窗口函数
function WinRegister:Boolean;
var
WindowClass:TWndClass;
begin
WindowClass.style:=cs_hredraw or cs_vRedraw or cs_NoClose;
WindowClass.lpfnWndProc := @WindowProc;
WindowClass.cbClsExtra := 0;
WindowClass.cbWndExtra := 0;
WindowClass.hInstance := Hinstance;
WindowClass.hIcon := LoadIcon(0,idi_Application);
WindowClass.hCursor := LoadCursor(0,idc_Arrow);
WindowClass.hbrBackground:=Hbrush(COLOR_BTNFACE);
WindowClass.lpszMenuName := nil;
WindowClass.lpszClassName := AppName;
Result:=RegisterClass(WindowClass)<>0;
end;//建立工具栏窗口函数
function WinCreate:HWnd;
var
hWindow:Hwnd;
begin
hWindow:=CreateWindow(AppName,nil,WS_BORDERWS_BORDER,
cw_UseDefault,cw_UseDefault,cw_UseDefault,cw_UseDefault,0,0,Hinstance,nil);
if hWindow<>0 then
begin
ShowWindow(hWindow,SW_SHOW);
UpdateWindow(hWindow);
end;Result:=hWindow;
end;var
Amessage:TMsg;
hWindow:HWnd;
begin //主程序部分
if not WinRegister then
begin
MessageBox(0,'窗口注册失败',nil,mb_ok);
Exit;
end;
hWindow:=WinCreate;
if hWindow=0 then
begin
MessageBox(0,'建立窗口失败',nil,mb_ok);
Exit;
end;
While GetMessage(Amessage,0,0,0) do
begin
TranslateMessage(Amessage);
DispatchMessage(Amessage);
end;
Halt(Amessage.wParam);
end.

Answer 1

case Amessage of
WM_CREATE:
begin
    SetWindowLong(Window,GWL_STYLE,GetWindowLong(Window,GWL_STYLE) and not (WS_CAPTION or WS_BORDER ));
end;

Answer 2

其实你查一下MSDN或DELPHI的WIN32SDK就可以知道，
想要让窗口没有标题很容易

Answer 3

有哪位还用WinMe的帮试试看，好象编译出来的程序
无法彻底去掉标题栏.