win32下用tango建一个空窗口

shawind 2007-04-07

import tango.sys.win32.UserGdi;
extern(Windows)
enum {
WS_EX_DLGMODALFRAME =0x00000001,
WS_EX_NOPARENTNOTIFY =0x00000004,
WS_EX_TOPMOST =0x00000008,
WS_EX_ACCEPTFILES =0x00000010,
WS_EX_TRANSPARENT =0x00000020,
WS_EX_MDICHILD =0x00000040,
WS_EX_TOOLWINDOW =0x00000080,
WS_EX_WINDOWEDGE =0x00000100,
WS_EX_CLIENTEDGE =0x00000200,
WS_EX_CONTEXTHELP =0x00000400,
WS_EX_RIGHT =0x00001000,
WS_EX_LEFT =0x00000000,
WS_EX_RTLREADING =0x00002000,
WS_EX_LTRREADING =0x00000000,
WS_EX_LEFTSCROLLBAR =0x00004000,
WS_EX_RIGHTSCROLLBAR =0x00000000,
WS_EX_CONTROLPARENT =0x00010000,
WS_EX_STATICEDGE =0x00020000,
WS_EX_APPWINDOW =0x00040000,
WS_EX_OVERLAPPEDWINDOW =(WS_EX_WINDOWEDGE | WS_EX_CLIENTEDGE),
WS_EX_PALETTEWINDOW =(WS_EX_WINDOWEDGE | WS_EX_TOOLWINDOW | WS_EX_TOPMOST)
}

extern(Windows)
LRESULT WndProc( HWND hwnd, UINT msg, WPARAM wp, LPARAM lp ){
switch( msg ){
case WM_CLOSE:
DestroyWindow(hwnd);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProcA( hwnd, msg, wp, lp );
}
return 0;
}

void main(){
WNDCLASSEX wc;
HWND hwnd;
MSG msg;
wc.cbSize = WNDCLASSEX.sizeof;
wc.lpszClassName = "DWndClass";
wc.style = CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = &WndProc;
wc.hInstance = GetModuleHandleA(null);
wc.hIcon = LoadIconA(cast(HINSTANCE) null, IDI_APPLICATION);
wc.hCursor = LoadCursorA(cast(HINSTANCE) null, IDC_CROSS);
wc.hbrBackground = cast(HBRUSH) (COLOR_WINDOW + 1);
wc.lpszMenuName = null;
if(!RegisterClassExA(&wc)){
MessageBoxA(null,"Window Registration Failed!","Error!",MB_OK);
return 0;
}

hwnd = CreateWindowExA(
WS_EX_ACCEPTFILES,
wc.lpszClassName,
"MyWindow",
WS_OVERLAPPEDWINDOW|WS_VISIBLE,
CW_USEDEFAULT, CW_USEDEFAULT, 800, 600,
null, null, wc.hInstance, null );

if(hwnd is null){
MessageBoxA(null,"Window Creation Failed!","Error!",MB_OK);
return 0;
}

while(GetMessageA(&msg,null,0,0)>0){
TranslateMessage(&msg);
DispatchMessageA(&msg);}
}
---------------------
就这么一个入门程序折腾了半天才通过编译。
D的文档实在是太贫乏了。