这在 Delphi 2009 中有效,但在 TurboDelphi/BDS2006 中出现错误:
[Pascal 错误] xxx.pas(117): E2033 实际和形式 var 参数的类型必须相同
...
var
osVerInfo : TOSVersionInfoExW;
i : Integer;
begin
FillChar(osVerInfo, SizeOf(osVerInfo), 0);
osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfoExW) ;
if GetVersionExW(osVerInfo) then
...