Delphi API生成窗口程序

Delphi API生成窗口程序，用Delphi7編譯後生成名為WindowDemo.exe的文件，運行這個文件，在窗口的空白處點擊鼠標左鍵，會彈出一個窗口。

vIEw source print? 01 program WindowDemo; 02 uses Windows, Messages; 03 function WindowProc(hwnd : HWND; uMsg : Cardinal; wParam : WPARAM; lParam : LPARAM) : LResult; stdcall; 04 begin 05     Result := 0; 06     case uMsg of 07     WM_CLOSE : PostMessage(hwnd, WM_QUIT, 0, 0); 08     WM_LBUTTONDOWN : MessageBox(hwnd, 'Hello!', '和您打個招呼', MB_ICONINFORMATION); 09     else 10         Result := DefWindowProc(hWnd, uMsg, wParam, lParam); 11     end; 12 end; 13 var 14     wndcls : WNDCLASS; 15     hWnd : THandle; 16     Msg : tagMSG; 17 begin 18     wndcls.style         := CS_DBLCLKS; 19     wndcls.lpfnWndProc   := @WindowProc; 20     wndcls.cbClsExtra    := 0; 21     wndcls.cbWndExtra    := 0; 22     wndcls.hInstance     := hInstance; 23     wndcls.hIcon         := 0; 24     wndcls.hCursor       := LoadCursor(hInstance, 'IDC_ARROW'); 25     wndcls.hbrBackground := COLOR_WINDOWFRAME; 26     wndcls.lpszMenuName  := nil; 27     wndcls.lpszClassName := 'WindowClassDemo'; 28     if RegisterClass(wndcls) = 0 then 29         Exit; 30     hWnd := CreateWindow( 31         'WindowClassDemo', 32         'WindowDemo', 33         WS_BORDER or WS_CAPTION or WS_SYSMENU, 34         Integer(CW_USEDEFAULT), 35         Integer(CW_USEDEFAULT), 36         Integer(CW_USEDEFAULT), 37         Integer(CW_USEDEFAULT), 38         0, 39         0, 40         hInstance, 41         nil 42     ); 43     if hWnd = 0 then 44         Exit; 45     ShowWindow(hWnd, SW_SHOWNORMAL); 46     UpdateWindow(hWnd); 47     while GetMessage(Msg, hWnd, 0, 0) do 48     begin 49         TranslateMessage(Msg); 50         DispatchMessage(Msg); 51     end; 52 end.

上述代碼可保存成WindowDemo.dpr文件，用Delphi7可直接編譯這個文件，生成EXE文件。