我有一些代码可以扩展在触摸屏 PC 上运行的应用程序的系统滚动条的大小。这段代码是用Delphi 7编写的，已经运行了好几年了，但是我发现在Windows 7上运行时似乎出现了问题。
代码如下所示：
procedure SetLargeScrollBars();
type
// Extended NONCLIENTMETRICS structure not defined in Delphi 7's Windows.pas
tagNONCLIENTMETRICSXA = packed record
cbSize: UINT;
iBorderWidth: Integer;
iScrollWidth: Integer;
iScrollHeight: Integer;
iCaptionWidth: Integer;
iCaptionHeight: Integer;
lfCaptionFont: TLogFontA;
iSmCaptionWidth: Integer;
iSmCaptionHeight: Integer;
lfSmCaptionFont: TLogFontA;
iMenuWidth: Integer;
iMenuHeight: Integer;
lfMenuFont: TLogFontA;
lfStatusFont: TLogFontA;
lfMessageFont: TLogFontA;
// This member not supported for Windows Server 2003 and Windows XP/2000
iPaddedBorderWidth: Integer;
end;
NONCLIENTMETRICSX = tagNONCLIENTMETRICSXA;
var
ncm: NONCLIENTMETRICSX;
osvi: OSVERSIONINFO;
const
LARGE_SCROLL_DIM = 48;
begin
// Zero the NONCLIENTMETRICS type and fill in its size
ZeroMemory(@ncm, Sizeof(ncm));
ncm.cbSize := SizeOf(ncm);
// This is necessary because SystemParametersInfo works differently for
// Windows Server 2008, Windows Vista and after.
ZeroMemory(@osvi, SizeOf(osvi));
osvi.dwOSVersionInfoSize := SizeOf(osvi);
GetVersionEx(osvi);
if (osvi.dwMajorVersion < 6) then
begin
ncm.cbSize := ncm.cbSize - SizeOf(ncm.iPaddedBorderWidth);
end;
// Seems to return true all the time.
SystemParametersInfo(
SPI_GETNONCLIENTMETRICS,
Sizeof(ncm),
@ncm,
0);
if (ncm.iScrollWidth <> LARGE_SCROLL_DIM) then
begin
// Save the scrollbar width and height for restoration when the application closes.
m_ScrollWidth := ncm.iScrollWidth;
m_ScrollHeight := ncm.iScrollHeight;
ncm.iScrollWidth := LARGE_SCROLL_DIM;
ncm.iScrollHeight := LARGE_SCROLL_DIM;
// This call never returns...
SystemParametersInfo(
SPI_SETNONCLIENTMETRICS,
Sizeof(ncm),
@ncm,
SPIF_SENDCHANGE);
end;
end;
奇怪的是滚动条大小实际上是设置的，所以看起来 SystemParametersInfo 正在做它应该做的事情，但在那之后似乎变得困惑。
由于在函数中检查滚动条是否已经展开，因此应用程序第二次及之后运行良好（除非通过将主题恢复为原始主题来重置滚动条）。
我想知道它是否与最后一个参数（fWinIni）有关，并尝试了所有各种值，包括零，但无济于事。
也许在更改设置后，Windows 7 会与早期版本的操作系统有所不同？话虽如此，我还没有在 Vista 上尝试过，所以也许同样的事情也会发生在那里。它可能与为 Windows Vista、Windows Server 2008 和后续版本添加 iPaddedBorderWidth 有关 - 请参阅NONCLIENTMETRICS 结构
在 MSDN Problem Changeing size of scrollbars using SystemParametersInfo(SPI_SETNONCLIENTMETRICS)上有一个类似的问题，从 .NET 的角度来看同样的情况，但到目前为止还没有答案。
更多信息
我使用 DebugDiag 对相关应用程序执行挂起分析，它显示以下堆栈跟踪：
Function
ntdll!KiFastSystemCallRet uxtheme
!Ordinal45+25d
uxtheme!BeginBufferedAnimation+25b
user32!SystemParametersInfoA+40
programName
+13024f programName
+117c8d programName+6ae72 programName
+727dc programName
+132645
kernel32!BaseThreadInitThunk+12
ntdll!RtlInitializeException !Chain+efChainnt+
cdllR
所以看起来好像挂起发生在 uxtheme!Ordinal45+25d 中——大概是在某种系统调用中。