知识大全比较VC和Delphi的WinTest工程

Posted 2022-07-22 工程

篇首语：逆水行舟用力撑，一篙松劲退千寻。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全比较VC和Delphi的WinTest工程相关的知识，希望对你有一定的参考价值。

比较VC和Delphi的WinTest工程 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

#include 　　　　HWND hwndButton;　　int cx cy;　　　　LRESULT CALLBACK MainWndProc (HWND hWindow UINT nMsg WPARAM wPrm LPARAM lPrm)　　　　　　HDC dc;　　PAINTSTRUCT ps;　　RECT rc;　　switch (nMsg)　　　　case WM_CREATE:　　　　TEXTMETRIC tm;　　　　dc = GetDC (hWindow);　　SelectObject (dc GetStockObject (SYSTEM_FIXED_FONT));　　GetTextMetrics (dc &tm);　　cx = tm tmAveCharWidth * ;　　cy = (tm tmHeight + tm tmExternalLeading) * ;　　ReleaseDC (hWindow dc);　　　　hwndButton = CreateWindow (　　 button 　　 Click Here 　　WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON 　　 cx cy 　　hWindow 　　(HMENU) 　　((LPCREATESTRUCT) lPrm) >hInstance 　　NULL　　);　　　　return ;　　break;　　　　　　case WM_DESTROY:　　　　PostQuitMessage ( );　　return ;　　break;　　　　　　case WM_PAINT:　　　　dc = BeginPaint (hWindow &ps);　　GetClientRect (hWindow &rc);　　　　rc bottom = rc bottom / ;　　DrawText (dc Hello World! &rc 　　DT_SINGLELINE | DT_CENTER | DT_VCENTER);　　　　EndPaint (hWindow &ps);　　return ;　　break;　　　　　　case WM_SIZE:　　　　if (hwndButton && (wPrm == SIZEFULLSCREEN ||wPrm == SIZENORMAL))　　　　rc left = (LOWORD(lPrm) cx) / ;　　rc top = HIWORD(lPrm) * / cy / ;　　MoveWindow (hwndButton rc left rc top cx cy TRUE);　　　　return ;　　break;　　　　　　case WM_MAND:　　　　if (LOWORD(wPrm) == && HIWORD(wPrm) == BN_CLICKED &&　　(HWND) lPrm == hwndButton)　　　　DestroyWindow (hWindow);　　　　return ;　　break;　　　　　　　　return DefWindowProc (hWindow nMsg wPrm lPrm);　　　　　　//winmain　　int __stdcall WinMain (HINSTANCE hInst HINSTANCE hPrev LPSTR lpCmd int nShow)　　　　HWND hWindowMain;　　MSG MyMsg;　　　　WNDCLASSEX wcex;　　　　wcex cbSize = sizeof(WNDCLASSEX);　　wcex style　 = CS_HREDRAW | CS_VREDRAW;　　wcex lpfnWndProc = (WNDPROC)MainWndProc;　　wcex cbClsExtra　= ;　　wcex cbWndExtra　= ;　　wcex hInstance　= hInst;　　wcex hIcon　 = LoadIcon (NULL IDI_APPLICATION);　　wcex hCursor　= LoadCursor (NULL IDC_ARROW);　　wcex hbrBackground = (HBRUSH)(COLOR_WINDOW+ );　　wcex lpszClassName = WinTestWin ;　　wcex hIconSm　= LoadIcon (NULL IDI_APPLICATION);　　　　　　RegisterClassEx (&wcex);　　　　hWindowMain = CreateWindow (　　 WinTestWin 　　 Hello 　　WS_OVERLAPPEDWINDOW 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　　　　　hInst 　　NULL　　);　　　　ShowWindow (hWindowMain nShow);　　UpdateWindow (hWindowMain);　　　　while (GetMessage (&MyMsg ))　　　　TranslateMessage (&MyMsg);　　DispatchMessage (&MyMsg);　　　　return MyMsg wParam;　　　　　　　　其中选择Release方式编译打开VC 的最小代码优化编译生成的执行码为 KB 　　然后将其翻译成Delphi代码如下　　　　program WinTest;　　　　uses　　Windows Messages;　　　　var　　hwndButton:HWND;　　cx cy:Integer;　　　　function MainWndProc (hWindow:HWND;nMsg:UINT;wPrm:WPARAM;lPrm:LPARAM):LRESULT;stdcall;　　var　　dc:HDC;　　ps:PAINTSTRUCT;　　rc:TRect;　　tm:TEXTMETRIC;　　pctst:PCREATESTRUCT;　　begin　　case nMsg of　　WM_CREATE:　　begin　　dc := GetDC (hWindow);　　SelectObject (dc GetStockObject (SYSTEM_FIXED_FONT));　　GetTextMetrics (dc tm);　　cx := tm tmAveCharWidth * ;　　cy := (tm tmHeight + tm tmExternalLeading) * ;　　ReleaseDC (hWindow dc);　　pctst:= PCREATESTRUCT(lPrm);　　hwndButton := CreateWindow(　　 button 　　 Click Here 　　WS_CHILD or WS_VISIBLE or BS_PUSHBUTTON 　　 cx cy 　　hWindow 　　HMENU( ) 　　pctst^ hInstance 　　nil　　);　　Result:= ;　　Exit;　　end;　　　　WM_DESTROY:　　begin　　PostQuitMessage( );　　Result:= ;　　Exit;　　end;　　　　WM_PAINT:　　begin　　dc := BeginPaint (hWindow ps);　　GetClientRect (hWindow rc);　　　　rc bottom := Round(rc bottom / );　　DrawText (dc Hello World! rc 　　DT_SINGLELINE or DT_CENTER or DT_VCENTER);　　　　EndPaint (hWindow ps);　　Result:= ;　　Exit;　　end;　　　　WM_SIZE:　　begin　　if (hwndButton<> ) and (wPrm = SIZEFULLSCREEN)　or (wPrm = SIZENORMAL) then　　begin　　rc left := Round((LOWORD(lPrm) cx) / );　　rc top := Round(HIWORD(lPrm) * / cy / );　　MoveWindow (hwndButton rc left rc top cx cy True);　　end;　　Result:= ;　　Exit;　　end;　　　　WM_MAND:　　begin　　if (LOWORD(wPrm) = ) and (HIWORD(wPrm) = BN_CLICKED) and　　(HWND(lPrm) = hwndButton) then　　begin　　DestroyWindow (hWindow);　　end;　　Result:= ;　　Exit;　　end;　　　　end;　　　　Result:=DefWindowProc (hWindow nMsg wPrm lPrm);　　　　end;　　　　//winmain　　var　　hWindowMain:HWND;　　MyMsg:MSG;　　wcex:WNDCLASSEX;　　begin　　wcex cbSize := SizeOf(WNDCLASSEX);　　wcex style := CS_HREDRAW or CS_VREDRAW;　　wcex lpfnWndProc := @MainWndProc;　　wcex cbClsExtra := ;　　wcex cbWndExtra := ;　　wcex hInstance := MainInstance;　　wcex hIcon := LoadIcon ( IDI_APPLICATION);　　wcex hCursor := LoadCursor ( IDC_ARROW);　　wcex hbrBackground := HBRUSH(COLOR_WINDOW+ );　　wcex lpszClassName := WinTestWin ;　　wcex hIconSm := LoadIcon ( IDI_APPLICATION);　　　　RegisterClassEx (wcex);　　　　hWindowMain := CreateWindow (　　 WinTestWin 　　 Hello 　　WS_OVERLAPPEDWINDOW 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　CW_USEDEFAULT 　　　　　　MainInstance 　　nil　　);　　　　ShowWindow (hWindowMain CmdShow);　　UpdateWindow (hWindowMain);　　　　while GetMessage (MyMsg )=True do　　begin　　TranslateMessage (MyMsg);　　DispatchMessage (MyMsg);　　end;　　　　end 　　　　最后发现Delphi生成的代码仅有 k 比VC小了一半以上说明Delphi有一个不错的编译器加之VCL的可视化功能应该是一个很好的开发工具以我来看 Delphi开发大型系统是一点问题没有的甚至可能性能将超过VC 只是VCL的高封装层次使得使用VCL的程序通常都大但开发效率却不是VC可以比的 cha138/Article/program/Delphi/201311/8414

知识大全 比较VC和Delphi的WinTest工程

知识大全比较VC和Delphi的WinTest工程