windows程序设计书上的例子，运行时摄氏，为什么啊

付笑

代码如下：

运行到这一句时报错了，是什么原因啊


FreeEnvironmentStrings (pVarBlock) ;

1. /*----------------------------------------
   
2. ENVIRON.C -- Environment List Box
   
3. (c) Charles Petzold, 1998
   
4. ----------------------------------------*/
   
5. 
   
6. #include <windows.h>
   
7. 
   
8. #define ID_LIST 1
   
9. #define ID_TEXT 2
   
10. 
    
11. LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;
    
12. 
    
13. int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
    
14. PSTR szCmdLine, int iCmdShow)
    
15. {
    
16. static TCHAR szAppName[] = TEXT ("Environ") ;
    
17. HWND hwnd ;
    
18. MSG msg ;
    
19. WNDCLASS wndclass ;
    
20. 
    
21. wndclass.style = CS_HREDRAW | CS_VREDRAW ;
    
22. wndclass.lpfnWndProc = WndProc ;
    
23. wndclass.cbClsExtra = 0 ;
    
24. wndclass.cbWndExtra = 0 ;
    
25. wndclass.hInstance = hInstance ;
    
26. wndclass.hIcon = LoadIcon (NULL, IDI_APPLICATION) ;
    
27. wndclass.hCursor = LoadCursor (NULL, IDC_ARROW) ;
    
28. wndclass.hbrBackground = (HBRUSH) (COLOR_WINDOW + 1) ;
    
29. wndclass.lpszMenuName = NULL ;
    
30. wndclass.lpszClassName = szAppName ;
    
31. 
    
32. if (!RegisterClass (&wndclass))
    
33. {
    
34. MessageBox (NULL, TEXT ("This program requires Windows NT!"),
    
35. szAppName, MB_ICONERROR) ;
    
36. return 0 ;
    
37. }
    
38. 
    
39. hwnd = CreateWindow (szAppName, TEXT ("Environment List Box"),
    
40. WS_OVERLAPPEDWINDOW,
    
41. CW_USEDEFAULT, CW_USEDEFAULT,
    
42. CW_USEDEFAULT, CW_USEDEFAULT,
    
43. NULL, NULL, hInstance, NULL) ;
    
44. 
    
45. ShowWindow (hwnd, iCmdShow) ;
    
46. UpdateWindow (hwnd) ;
    
47. 
    
48. while (GetMessage (&msg, NULL, 0, 0))
    
49. {
    
50. TranslateMessage (&msg) ;
    
51. DispatchMessage (&msg) ;
    
52. }
    
53. return msg.wParam ;
    
54. }
    
55. 
    
56. void FillListBox (HWND hwndList)
    
57. {
    
58. int iLength ;
    
59. TCHAR * pVarBlock, * pVarBeg, * pVarEnd, * pVarName ;
    
60. 
    
61. pVarBlock = GetEnvironmentStrings () ; // Get pointer to environment block
    
62. 
    
63. while (*pVarBlock)
    
64. {
    
65. if (*pVarBlock != '=') // Skip variable names beginning with '='
    
66. {
    
67. pVarBeg = pVarBlock ; // Beginning of variable name
    
68. while (*pVarBlock++ != '=') ; // Scan until '='
    
69. pVarEnd = pVarBlock - 1 ; // Points to '=' sign
    
70. iLength = pVarEnd - pVarBeg ; // Length of variable name
    
71. 
    
72. // Allocate memory for the variable name and terminating
    
73. // zero. Copy the variable name and append a zero.
    
74. 
    
75. pVarName = calloc (iLength + 1, sizeof (TCHAR)) ;
    
76. CopyMemory (pVarName, pVarBeg, iLength * sizeof (TCHAR)) ;
    
77. pVarName[iLength] = '\0' ;
    
78. 
    
79. // Put the variable name in the list box and free memory.
    
80. 
    
81. SendMessage (hwndList, LB_ADDSTRING, 0, (LPARAM) pVarName) ;
    
82. free (pVarName) ;
    
83. }
    
84. while (*pVarBlock++ != '\0') ; // Scan until terminating zero
    
85. }
    
86. FreeEnvironmentStrings (pVarBlock) ;      //报错的地方
    
87. }
    
88. 
    
89. LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
    
90. {
    
91. static HWND hwndList, hwndText ;
    
92. int iIndex, iLength, cxChar, cyChar ;
    
93. TCHAR * pVarName, * pVarValue ;
    
94. 
    
95. switch (message)
    
96. {
    
97. case WM_CREATE :
    
98. cxChar = LOWORD (GetDialogBaseUnits ()) ;
    
99. cyChar = HIWORD (GetDialogBaseUnits ()) ;
    
100. 
     
101. // Create listbox and static text windows.
     
102. 
     
103. hwndList = CreateWindow (TEXT ("listbox"), NULL,
     
104. WS_CHILD | WS_VISIBLE | LBS_STANDARD,
     
105. cxChar, cyChar * 3,
     
106. cxChar * 16 + GetSystemMetrics (SM_CXVSCROLL),
     
107. cyChar * 5,
     
108. hwnd, (HMENU) ID_LIST,
     
109. (HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE),
     
110. NULL) ;
     
111. 
     
112. hwndText = CreateWindow (TEXT ("static"), NULL,
     
113. WS_CHILD | WS_VISIBLE | SS_LEFT,
     
114. cxChar, cyChar,
     
115. GetSystemMetrics (SM_CXSCREEN), cyChar,
     
116. hwnd, (HMENU) ID_TEXT,
     
117. (HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE),
     
118. NULL) ;
     
119. 
     
120. FillListBox (hwndList) ;
     
121. return 0 ;
     
122. 
     
123. case WM_SETFOCUS :
     
124. SetFocus (hwndList) ;
     
125. return 0 ;
     
126. 
     
127. case WM_COMMAND :
     
128. if (LOWORD (wParam) == ID_LIST && HIWORD (wParam) == LBN_SELCHANGE)
     
129. {
     
130. // Get current selection.
     
131. 
     
132. iIndex = SendMessage (hwndList, LB_GETCURSEL, 0, 0) ;
     
133. iLength = SendMessage (hwndList, LB_GETTEXTLEN, iIndex, 0) + 1 ;
     
134. pVarName = calloc (iLength, sizeof (TCHAR)) ;
     
135. SendMessage (hwndList, LB_GETTEXT, iIndex, (LPARAM) pVarName) ;
     
136. 
     
137. // Get environment string.
     
138. 
     
139. iLength = GetEnvironmentVariable (pVarName, NULL, 0) ;
     
140. pVarValue = calloc (iLength, sizeof (TCHAR)) ;
     
141. GetEnvironmentVariable (pVarName, pVarValue, iLength) ;
     
142. 
     
143. // Show it in window.
     
144. 
     
145. SetWindowText (hwndText, pVarValue) ;
     
146. free (pVarName) ;
     
147. free (pVarValue) ;
     
148. }
     
149. return 0 ;
     
150. 
     
151. case WM_DESTROY :
     
152. PostQuitMessage (0) ;
     
153. return 0 ;
     
154. }
     
155. return DefWindowProc (hwnd, message, wParam, lParam) ;
     
156. }
     

复制代码

maomingkun

为毛我的编译都通过呢大哥！ 刚开始报错说是“libcmtd.lib(crt0.obj) : error LNK2001: unresolved external symbol _main  ”，后来我把vc设置了一下，可以了没有报错！也没有出现你说的问题啊。有图有真相，看图：

你把报错的图传上来呗，有图有真相的！:lol: