windows 程序设计第5版的第十章的一个程序在win7下正常，win10下运行出错

combit

\\PoePoem

1. #include <windows.h>
   
2. #include "resource.h"
   
3. 
   
4. LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;
   
5. 
   
6. HINSTANCE hInst ;
   
7. 
   
8. int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
   
9.                     PSTR szCmdLine, int iCmdShow)
   
10. {
    
11.      TCHAR    szAppName [16], szCaption [64], szErrMsg [64] ;
    
12.      HWND     hwnd ;
    
13.      MSG      msg ;
    
14.      WNDCLASS wndclass ;
    
15.      
    
16.      LoadString (hInstance, IDS_APPNAME, szAppName,
    
17.                             sizeof (szAppName) / sizeof (TCHAR)) ;
    
18. 
    
19.      LoadString (hInstance, IDS_CAPTION, szCaption,
    
20.                             sizeof (szCaption) / sizeof (TCHAR)) ;
    
21.         
    
22.      wndclass.style         = CS_HREDRAW | CS_VREDRAW ;
    
23.      wndclass.lpfnWndProc   = WndProc ;
    
24.      wndclass.cbClsExtra    = 0 ;
    
25.      wndclass.cbWndExtra    = 0 ;
    
26.      wndclass.hInstance     = hInstance ;
    
27.      wndclass.hIcon         = LoadIcon (hInstance, szAppName) ;
    
28.      wndclass.hCursor       = LoadCursor (NULL, IDC_ARROW) ;
    
29.      wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE_BRUSH) ;
    
30.      wndclass.lpszMenuName  = NULL ;
    
31.      wndclass.lpszClassName = szAppName ;
    
32.      
    
33.      if (!RegisterClass (&wndclass))
    
34.      {
    
35.           LoadStringA (hInstance, IDS_APPNAME, (char *) szAppName,
    
36.                                   sizeof (szAppName)) ;
    
37. 
    
38.           LoadStringA (hInstance, IDS_ERRMSG, (char *) szErrMsg,
    
39.                                    sizeof (szErrMsg)) ;
    
40. 
    
41.           MessageBoxA (NULL, (char *) szErrMsg,
    
42.                              (char *) szAppName, MB_ICONERROR) ;
    
43.           return 0 ;
    
44.      }
    
45.      
    
46.      hwnd = CreateWindow (szAppName, szCaption,
    
47.                           WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
    
48.                           CW_USEDEFAULT, CW_USEDEFAULT,
    
49.                           CW_USEDEFAULT, CW_USEDEFAULT,
    
50.                           NULL, NULL, hInstance, NULL) ;
    
51.      
    
52.      ShowWindow (hwnd, iCmdShow) ;
    
53.      UpdateWindow (hwnd) ;
    
54.      
    
55.      while (GetMessage (&msg, NULL, 0, 0))
    
56.      {
    
57.           TranslateMessage (&msg) ;
    
58.           DispatchMessage (&msg) ;
    
59.      }
    
60.      return msg.wParam ;
    
61. }
    
62. 
    
63. LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
    
64. {
    
65.      static char  * pText ;
    
66.      static HGLOBAL hResource ;
    
67.      static HWND    hScroll ;
    
68.      static int     iPosition, cxChar, cyChar, cyClient, iNumLines, xScroll ;
    
69.      HDC            hdc ;
    
70.      PAINTSTRUCT    ps ;
    
71.      RECT           rect ;
    
72.      TEXTMETRIC     tm ;
    
73. 
    
74.      switch (message)
    
75.      {
    
76.      case WM_CREATE :
    
77.           hdc = GetDC (hwnd) ;
    
78.           GetTextMetrics (hdc, &tm) ;
    
79.           cxChar = tm.tmAveCharWidth ;
    
80.           cyChar = tm.tmHeight + tm.tmExternalLeading ;
    
81.           ReleaseDC (hwnd, hdc) ;
    
82.          
    
83.           xScroll = GetSystemMetrics (SM_CXVSCROLL) ;
    
84.          
    
85.           hScroll = CreateWindow (TEXT ("scrollbar"), NULL,
    
86.                                   WS_CHILD | WS_VISIBLE | SBS_VERT,
    
87.                                   0, 0, 0, 0,
    
88.                                   hwnd, (HMENU) 1, hInst, NULL) ;
    
89.          
    
90.           hResource = LoadResource (hInst,
    
91.                       FindResource (hInst, TEXT ("AnnabelLee"),
    
92.                                            TEXT ("TEXT"))) ;
    
93.          
    
94.           pText = (char *) LockResource (hResource) ;
    
95.           iNumLines = 0 ;
    
96.          
    
97.           while (*pText != '\\' && *pText != '\0')
    
98.           {
    
99.                if (*pText == '\n')
    
100.                     iNumLines ++ ;
     
101.                pText = AnsiNext (pText) ;
     
102.           }
     
103.          
     
104.         *pText = '\0' ;
     
105.          //[color=Red]这个地方有问题,Win10下要注释掉，否则运行出错，错误好像是内存不能写，但在Win7下正常[/color]
     
106. 
     
107.           SetScrollRange (hScroll, SB_CTL, 0, iNumLines, FALSE) ;
     
108.           SetScrollPos   (hScroll, SB_CTL, 0, FALSE) ;
     
109.           return 0 ;
     
110.          
     
111.      case WM_SIZE :
     
112.           MoveWindow (hScroll, LOWORD (lParam) - xScroll, 0,
     
113.                       xScroll, cyClient = HIWORD (lParam), TRUE) ;
     
114.           SetFocus (hwnd) ;
     
115.           return 0 ;
     
116.          
     
117.      case WM_SETFOCUS :
     
118.           SetFocus (hScroll) ;
     
119.           return 0 ;
     
120.          
     
121.      case WM_VSCROLL :
     
122.           switch (wParam)
     
123.           {
     
124.           case SB_TOP :
     
125.                iPosition = 0 ;
     
126.                break ;
     
127.           case SB_BOTTOM :
     
128.                iPosition = iNumLines ;
     
129.                break ;
     
130.           case SB_LINEUP :
     
131.                iPosition -= 1 ;
     
132.                break ;
     
133.           case SB_LINEDOWN :
     
134.                iPosition += 1 ;
     
135.                break ;
     
136.           case SB_PAGEUP :
     
137.                iPosition -= cyClient / cyChar ;
     
138.                break ;
     
139.           case SB_PAGEDOWN :
     
140.                iPosition += cyClient / cyChar ;
     
141.                break ;
     
142.           case SB_THUMBPOSITION :
     
143.                iPosition = LOWORD (lParam) ;
     
144.                break ;
     
145.           }
     
146.           iPosition = max (0, min (iPosition, iNumLines)) ;
     
147.          
     
148.           if (iPosition != GetScrollPos (hScroll, SB_CTL))
     
149.           {
     
150.                SetScrollPos (hScroll, SB_CTL, iPosition, TRUE) ;
     
151.                InvalidateRect (hwnd, NULL, TRUE) ;
     
152.           }
     
153.           return 0 ;
     
154.          
     
155.      case WM_PAINT :
     
156.           hdc = BeginPaint (hwnd, &ps) ;
     
157.                
     
158.           pText = (char *) LockResource (hResource) ;
     
159.                
     
160.           GetClientRect (hwnd, &rect) ;
     
161.           rect.left += cxChar ;
     
162.           rect.top  += cyChar * (1 - iPosition) ;
     
163.           DrawTextA (hdc, pText, -1, &rect, DT_EXTERNALLEADING) ;
     
164. 
     
165.           EndPaint (hwnd, &ps) ;
     
166.           return 0 ;
     
167.                
     
168.      case WM_DESTROY :
     
169.           FreeResource (hResource) ;
     
170.           PostQuitMessage (0) ;
     
171.           return 0 ;
     
172.      }
     
173.      return DefWindowProc (hwnd, message, wParam, lParam) ;
     
174. }
     

复制代码

第104行的代码有问题，不知道这是什么原因呢？开发环境是vs2019

superbe

测试在xp下正常，但在win10下出错。

把*pText = '\0' ; 一行注释掉。
并且把WM_PAINT下的 DrawTextA (hdc, pText, -1, &rect, DT_EXTERNALLEADING) ;一行 换成下面两行就可以了：
HRSRC hResInfo = FindResource(hInst, TEXT("AnnabelLee"), TEXT("TEXT"));
DrawTextA(hdc, pText, SizeofResource(hInst, hResInfo), &rect, DT_EXTERNALLEADING);