一个用delphi写的整合汇编与api的简单的窗口程序

program Project1; { Types and Structures Definition } type ? WNDCLASSEX = packed record ? ? cbSize: LongWord; ? ? style: LongWord; ? ? lpfnWndProc: Pointer; ? ? cbClsExtra: Integer; ? ? cbWndExtra: Integer; ? ? hInstance: LongWord; ? ? hIcon: LongWord; ? ? hCursor: LongWord; ? ? hbrBackground: LongWord; ? ? lpszMenuName: PAnsiChar; ? ? lpszClassName: PAnsiChar; ? ? hIconSm: LongWord; ? end; ? POINT = packed record ? ? X: Longint; ? ? Y: Longint; ? end; ? MSG = packed record ? ? hwnd: LongWord; ? ? message: LongWord; ? ? wParam: Longint; ? ? lParam: Longint; ? ? time: LongWord; ? ? pt: POINT; ? end; { Application Specific Variables and constants } const ? szBuf = 255; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? // Size of buffer used to handle strings ? WndClsSize = SizeOf(WNDCLASSEX); ? ? ? ? ? // Size of WNDCLASSEX Structure ? wnd_class: PChar = 'TMainWindow'; ? ? ? ? ?// Main window class name. ? wnd_title: PChar = 'Closer to the Metal'; ?// Main window caption. var ? wcx ? ? ?: WNDCLASSEX; ? ? ? ? ? ? ? ? ? ? // Main window structure ? msgbuf ? : MSG; ? ? ? ? ? ? ? ? ? ? ? ? ? ?// Message structure ? hwnd ? ? : LongWord; ? ? ? ? ? ? ? ? ? ? ? // A window handle { Windows Specific Constants } const ? { Class styles } ? CS_VREDRAW = LongWord(1); ? CS_HREDRAW = LongWord(2); ? CS_GLOBALCLASS = $4000; ? { Color Types } ? COLOR_WINDOW = 5; ? { Window Styles } ? WS_OVERLAPPED ?= 0; ? WS_CAPTION ? ? = $C00000; ? ? ?{ WS_BORDER or WS_DLGFRAME ?} ? WS_SYSMENU ? ? = $80000; ? WS_THICKFRAME ?= $40000; ? WS_MINIMIZEBOX = $20000; ? WS_MAXIMIZEBOX = $10000; ? WS_VISIBLE ? ? = $10000000; ? { Common Window Styles } ? WS_OVERLAPPEDWINDOW = (WS_VISIBLE or WS_OVERLAPPED or WS_CAPTION ? ? or WS_SYSMENU or WS_THICKFRAME or WS_MINIMIZEBOX or WS_MAXIMIZEBOX); ? { Messages } ? WM_DESTROY ?= $0002; { Windows API's } function GetModuleHandle(lpModuleName: PChar): HMODULE; ? stdcall; external 'kernel32.dll' name 'GetModuleHandleA'; procedure ExitProcess(uExitCode: LongWord); ? stdcall; external 'kernel32.dll' name 'ExitProcess'; function DefWindowProc(hWnd: LongWord; Msg: LongWord; ? wParam: Longint; lParam: Longint): Longint; ? stdcall; external 'user32.dll' name 'DefWindowProcA'; function RegisterClassEx(const WndClass: WNDCLASSEX): Word; ? stdcall; external 'user32.dll' name 'RegisterClassExA'; function CreateWindowEx(dwExStyle: LongWord; lpClassName: PChar; ? lpWindowName: PChar; dwStyle: LongWord; ? X,Y,nWidth,nHeight: Integer; hWndParent: LongWord; ? hMenu: LongWord; hInstance: LongWord; lpParam: Pointer): LongWord; ? stdcall; external 'user32.dll' name 'CreateWindowExA'; function GetMessage(var lpMsg: MSG; hWnd: LongWord; ? wMsgFilterMin,wMsgFilterMax: LongWord): LongBool; ? stdcall; external 'user32.dll' name 'GetMessageA'; function DispatchMessage(const lpMsg: MSG): Longint; ? stdcall; external 'user32.dll' name 'DispatchMessageA'; procedure PostQuitMessage(nExitCode: Integer); ? stdcall; external 'user32.dll' name 'PostQuitMessage'; { Windows Procedure } function WindowProc(hWnd,Msg: LongWord; wParam,lParam: Longint): Longint; stdcall; asm ? ? // The inline assembler will take care of setting the stack,? ? // preserving the registers and returning. ? ? mov ? ?EAX,[Msg] ? ? // WM_DESTROY: ? ? cmp ? ? EAX,WM_DESTROY ? ? je ? ? ?@@m_destroy ? ? // All Other Messages: ? ? jmp ? ? @@defwndproc @@m_destroy: ? ? push ? ?0 ? ? call ? ?PostQuitMessage // Quit. ? ? jmp ? ? @@return @@defwndproc: ? ? push ? ?[lParam] ? ? push ? ?[wParam] ? ? push ? ?[Msg] ? ? push ? ?[hWnd] ? ? call ? ?DefWindowProc ? ? jmp ? ? @@finish @@return: ? ? xor ? ? eax,eax @@finish: end; { Main Program Block } asm ? // GetModuleHandle with a NULL pointer gives us the instance handle ? // of the EXE file. This is the module that will "own" the window class. ? ? push ? ?0 ? ? call ? ?GetModuleHandle ? ? // Define our window properties: ? ? mov ? ? [wcx.cbSize],WndClsSize; ? ? mov ? ? [wcx.style],CS_VREDRAW or CS_HREDRAW or CS_GLOBALCLASS ? ? mov ? ? [wcx.lpfnWndProc],offset WindowProc ? ? mov ? ? [wcx.cbClsExtra],0 ? ? mov ? ? [wcx.cbWndExtra],0 ? ? mov ? ? eax,hInstance ? ? mov ? ? [wcx.hInstance],EAX ? ? mov ? ? [wcx.hIcon],0 ? ? mov ? ? [wcx.hCursor],0 ? ? mov ? ? [wcx.hbrBackground],COLOR_WINDOW + 1 ? ? mov ? ? dword ptr [wcx.lpszMenuName],0 ? ? mov ? ? dword ptr [wcx.lpszClassName],offset wnd_class ? ? mov ? ? [wcx.hIconSm],0 ? ? mov ? ? EAX,wnd_class ? ? mov ? ? [wcx.lpszClassName],EAX ? ? // Register window class: ? ? push ? ?offset wcx ? ? call ? ?RegisterClassEx ? ? // Create window: ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // lpParam ? ? push ? ?[wcx.hInstance] ? ? ? ? // hInstance ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // hMenu ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // hWndParent ? ? push ? ?200 ? ? ? ? ? ? ? ? ? ? // nHeight ? ? push ? ?200 ? ? ? ? ? ? ? ? ? ? // nWidth ? ? push ? ?100 ? ? ? ? ? ? ? ? ? ? // y (top) ? ? push ? ?100 ? ? ? ? ? ? ? ? ? ? // x (left) ? ? push ? ?WS_OVERLAPPEDWINDOW ? ? // dwStyle ? ? mov ? ? EAX,wnd_title ? ? ? ? ?// lpWindowName ? ? push ? ?EAX ? ? mov ? ? EAX,wnd_class ? ? ? ? ?// lpClassName ? ? push ? ?EAX ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // dwExStyle ? ? call ? ?CreateWindowEx ? ? mov ? ? hwnd,EAX ? ? // Message Loop/Pump: @@msg_loop: ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // wMsgFileterMax ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // wMsgFilterMin ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // hWnd ?(0 = all windows) ? ? push ? ?offset msgbuf ? ? ? ? ? // lpMsg ? ? call ? ?GetMessage ? ? cmp ? ? eax,0 ? ? ? ? ? ? ? ? ?// Returns 0 (zero) if WM_QUIT ? ? jz ? ? ?@@end_loop ? ? push ? ?offset msgbuf ? ? call ? ?DispatchMessage ? ? jmp ? ? @@msg_loop @@end_loop: ? ? // Terminating the program: ? ? push ? ?0 ? ? ? ? ? ? ? ? ? ? ? // Error return code. ? ? call ? ?ExitProcess end.