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的文档实在是太贫乏了。