var VersionInfo: TOSVersionInfo; begin VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo ); if Windows.GetVersionEx( VersionInfo ) then begin with VersionInfo do begin case dwPlatformId of VER_PLATFORM_WIN32s: //WIN32操作系统 VER_PLATFORM_WIN32_WINDOWS: // WIN95、98、ME 操作系统 VER_PLATFORM_WIN32_NT: // WINNT、2000操作系统 end; // case dwPlatformId end; // with VersionInfo end; // if GetVersionEx end;到98下测试.在相应的地方加上相应的相应的代码
VersionInfo: TOSVersionInfo;
begin
VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );
if Windows.GetVersionEx( VersionInfo ) then
begin
with VersionInfo do
begin
case dwPlatformId of
VER_PLATFORM_WIN32s: //WIN32操作系统
VER_PLATFORM_WIN32_WINDOWS: // WIN95、98、ME 操作系统
VER_PLATFORM_WIN32_NT: // WINNT、2000操作系统
end; // case dwPlatformId
end; // with VersionInfo
end; // if GetVersionEx
end;到98下测试.在相应的地方加上相应的相应的代码