1

これは Delphi 2009 では機能しますが、TurboDelphi/BDS2006 ではエラーが発生します。

[パスカル エラー] xxx.pas(117): E2033 実変数と仮変数の型は同一でなければなりません

 ...
  var
     osVerInfo : TOSVersionInfoExW;
     i : Integer;
     begin
        FillChar(osVerInfo, SizeOf(osVerInfo), 0);
        osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfoExW) ;
        if GetVersionExW(osVerInfo) then
...
4

1 に答える 1

3

バグがあるように見えますが、D2007 (したがって、D2006 でも同様だと思います)GetVersionExWではTOSVersionInfoExパラメーターとして必要です。D2009 では に等しくなりますがTOSVersionInfoExW、D2009 未満では に等しくなりTOSVersionInfoExAます。osVerInfoと宣言することでうまくいくはずTOSVersionInfoExです。これは、両方のバージョンでコンパイルする必要があります。

于 2011-05-10T07:11:57.460 に答える