怎样使用platform sdk来编程？(50分)

nitemade · 2004-05-06

谁能给一个用platform sdk编程的例子

Rainux · 2004-05-09

program WinApp; uses   Windows, Messages; var   GAppClass: PChar    = 'TWinApp';   GAppCaption: PChar  = 'A Standard Windows Application';   AMessage: MSG;   hWindow: HWND;   btnAbout: HWND;   btnClose: HWND;   {$R *.RES} // 窗口的消息处理函数 function WindowProc(AhWnd: HWND; AMessage: UINT; wParam: WPARAM;                     lParam: LPARAM): LRESULT; stdcall; export; begin   WindowProc := 0;   case AMessage of     WM_COMMAND:       begin    if HWND(lParam) = btnAbout then      MessageBox(hWindow, 'SDK Application demo by Rainux',                 'About', MB_OK);         if HWND(lParam) = btnClose then      PostMessage(hWindow, WM_DESTROY, 0, 0);       end;     WM_DESTROY:       begin         PostQuitMessage(0);         Exit;       end;   end;   WindowProc := DefWindowProc(AhWnd, AMessage, wParam, lParam); end; // 窗口注册函数 function WinRegister: Boolean; var   wc: WNDCLASS; begin   { Define the Window class 's style }   wc.style         := CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS;   { Define the WindowProc function }   wc.lpfnWndProc   := @WindowProc;   wc.cbClsExtra    := 0;   wc.cbWndExtra    := 0;   wc.hInstance     := HInstance;   { Load common MAINICON from resource }   wc.hIcon         := LoadIcon(HInstance, 'MAINICON');   wc.hCursor       := LoadCursor(0, IDC_ARROW);   { Should be COLOR_BTNFACE + 1, why? }   wc.hbrBackground := COLOR_BTNFACE + 1;   { If use menu, must be the resource name }   wc.lpszMenuName  := nil;   wc.lpszClassName := GAppClass;   Result := Windows.RegisterClass(wc) <> 0; end; // 窗口建立函数 function WinCreate: HWND; var   hWindow: HWND; begin   { The window with WS_PUPOP style will like TForm.BorderStyle := bsNone }   hWindow := CreateWindowEx(WS_EX_OVERLAPPEDWINDOW, GAppClass, GAppCaption,                             WS_OVERLAPPEDWINDOW,                             200, 200, 400, 200,                             0, 0,                             HInstance, nil);   btnAbout := CreateWindow('Button','About',WS_VISIBLE or WS_CHILD or                          BS_PUSHLIKE or BS_TEXT or WS_TABSTOP,                          210, 130, 75, 25, hWindow, 0, HInstance, nil);   btnClose := CreateWindow('Button','Close',WS_VISIBLE or WS_CHILD or                          BS_PUSHLIKE or BS_TEXT or WS_TABSTOP,                          300, 130, 75, 25, hWindow, 0, HInstance, nil);   if hWindow <> 0 then ShowWindow(hWindow, SW_SHOW);   if btnAbout <> 0 then ShowWindow(btnAbout, SW_SHOW);   if btnClose <> 0 then ShowWindow(btnClose, SW_SHOW);   Result := hWindow; end; // WinMain 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;   { The standard message loop }   { If the hWnd is 0, will retrieves messages for any window     that belongs to the calling thread and thread messages posted     to the calling thread }   while GetMessage(AMessage, 0, 0, 0) do     begin       if not IsDialogMessage(hWindow, AMessage) then       begin         TranslateMessage(AMessage);         DispatchMessage(AMessage);       end;     end; end.

怎样使用platform sdk来编程？(50分)

nitemade

Unregistered / Unconfirmed

Rainux

Unregistered / Unconfirmed

Similar threads