装完Lazarus,立马编译一个带窗体的程序，执行文件大小：70.4 KB，但中文 乱码了 ...

canglong

装完Lazarus,立马编译一个带窗体的程序，执行文件大小：70.4 KB，但中文 乱码了 ...

1. program WindowDemo;
   
2. 
   
3. uses  Windows,  Messages;
   
4. 
   
5. // 窗口函数，窗口接到消息时被Windows所调用
   
6. 
   
7. function WindowProc(hwnd : HWND; uMsg : Cardinal; wParam : WPARAM;
   
8. 
   
9. lParam : LPARAM) : LResult; stdcall;
   
10. 
    
11. begin
    
12. 
    
13. Result := 0;
    
14. 
    
15. case uMsg of
    
16. 
    
17. // 关闭窗口消息，当用户关闭窗口后，通知主消息循环结束程序
    
18. 
    
19. WM_CLOSE : PostMessage(hwnd, WM_QUIT, 0, 0);
    
20. 
    
21. // 鼠标左键按下消息
    
22. 
    
23. WM_LBUTTONDOWN : MessageBox(hwnd, 'Hello! 您好', '和您打个招呼',
    
24. 
    
25. MB_ICONINFORMATION);
    
26. 
    
27. else
    
28. 
    
29. // 其他消息做默认处理
    
30. 
    
31. Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
    
32. 
    
33. end;
    
34. 
    
35. end;
    
36. 
    
37. var
    
38. 
    
39. wndcls : WNDCLASS; // 窗口类的记录（结构）类型
    
40. 
    
41. hWnd : THandle;
    
42. 
    
43. Msg : tagMSG; // 消息类型
    
44. 
    
45. begin
    
46. 
    
47. wndcls.style := CS_DBLCLKS; // 允许窗口接受鼠标双击
    
48. 
    
49. wndcls.lpfnWndProc := @WindowProc; // 为窗口类指定窗口函数
    
50. 
    
51. wndcls.cbClsExtra := 0;
    
52. 
    
53. wndcls.cbWndExtra := 0;
    
54. 
    
55. wndcls.hInstance := hInstance;
    
56. 
    
57. wndcls.hIcon := 0;
    
58. 
    
59. wndcls.hCursor := LoadCursor(hInstance, 'IDC_ARROW');
    
60. 
    
61. wndcls.hbrBackground := COLOR_WINDOWFRAME;
    
62. 
    
63. wndcls.lpszMenuName := nil;
    
64. 
    
65. wndcls.lpszClassName := 'WindowClassDemo'; // 窗口类名称
    
66. 
    
67. // 注册窗口类
    
68. 
    
69. if RegisterClass(wndcls) = 0 then
    
70. 
    
71. Exit;
    
72. 
    
73. // 创建窗口
    
74. 
    
75. hWnd := CreateWindow(
    
76. 
    
77. 'WindowClassDemo', // 窗口类名称
    
78. 
    
79. 'WindowDemo', // 窗口名称
    
80. 
    
81. WS_BORDER or WS_CAPTION or WS_SYSMENU, // 窗口类型
    
82. 
    
83. Integer(CW_USEDEFAULT),
    
84. 
    
85. Integer(CW_USEDEFAULT),
    
86. 
    
87. Integer(CW_USEDEFAULT),
    
88. 
    
89. Integer(CW_USEDEFAULT),
    
90. 
    
91. 0,
    
92. 
    
93. 0,
    
94. 
    
95. hInstance,
    
96. 
    
97. nil
    
98. 
    
99. );
    
100. 
     
101. if hWnd = 0 then
     
102. 
     
103. Exit;
     
104. 
     
105. // 显示窗口
     
106. 
     
107. ShowWindow(hWnd, SW_SHOWNORMAL);
     
108. 
     
109. UpdateWindow(hWnd);
     
110. 
     
111. // 创建主消息循环，处理消息队列中的消息并分发
     
112. 
     
113. // 直至收到WM_QUIT消息，退出主消息循环，并结束程序
     
114. 
     
115. // WM_QUIT消息由PostMessage()函数发送
     
116. 
     
117. while GetMessage(Msg, hWnd, 0, 0) do
     
118. 
     
119. begin
     
120. 
     
121. TranslateMessage(Msg);
     
122. 
     
123. DispatchMessage(Msg);
     
124. 
     
125. end;
     
126. 
     
127. end.

复制代码

cvlsam

因为Lazarus默认的是UTF8格式，而Windows使用的是Ansi格式，所以您需要使用UTF8ToAnsi转换字符。
将您的MessageBox那一句改为
WM_LBUTTONDOWN : MessageBox(hwnd, PChar(UTF8ToAnsi('Hello! 您好')),PChar(UTF8ToAnsi('和您打个招呼')),

MB_ICONINFORMATION);
这样就可以正确显示中文字符了。


Good Luck~

canglong

好的，非常感谢楼上 ！ 对了，编译选项等 还可以优化的么，我是默认的设置，Lazarus编译后感觉还是大了点，记得之前 Delphi 编译的也就几k左右的，而现在有70多K，还有优化的空间的对吧

canglong

我把 []为GDB产生调试信息 的 钩去掉后，执行文件可以减到 30 来 K  ...

clxer

设成release就可以小很多了，默认是debug

canglong

ok，取消 “为GDB产生调试信息”和 设为 Release 都好像 差不多，都是 35K  ，谢谢

苍云

我的不是啊,我的取消GDB产生调试信息和 设为 Release 后编译一个创建的窗口其他都没有就1.76M了,你们编译出来的这么小?

clxer

苍云 发表于 2015-1-26 10:18
我的不是啊,我的取消GDB产生调试信息和 设为 Release 后编译一个创建的窗口其他都没有就1.76M了,你们编译出 ...

人家用的是windows api ,我们的不是

photor

不明觉厉