delphi 判断当前windows 系统是64位还是32位

function GetOSVersion: string;

begin

  Result := TOSVersion.ToString;

  {$IFDEF CPUX64}

  Result := Result + ' - 64bit';

  {$ENDIF}

  {$IFDEF CPUX86}

  Result := Result + ' - 32bit';

  {$ENDIF}

end;