怎样获得系统是win9X,还是NT,或win2000?

[colfkiang]

我通过TRegistry向注册标写DSN,但是Win9X和WinNT,2000还象不同。所以，我必须先了解系统是win9X,还是win2000，特此求教！

[zcw]

function myGetVersion: String;
var
VersionInfo : TOSVersionInfo;
OSName : String;
begin
// set the size of the record
VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

if Windows.GetVersionEx( VersionInfo ) then
begin
with VersionInfo do
begin
case dwPlatformId of
VER_PLATFORM_WIN32s : OSName := 'Win32s';
VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';
VER_PLATFORM_WIN32_NT : OSName := 'Windows NT';
end; // case dwPlatformId
Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +
#13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';
end; // with VersionInfo
end // if GetVersionEx
else
Result := '';
end;

你可以在win2000中单步运行看一看dwPlatformId 是多少，在加到程序里

[dprog]

安装和使用windows的sysinfo OCX控件