Mega Code Archive
Windows 9x or NT
<![CDATA[
Title: Windows 9x or NT?
Question: Now to determine what OS - Windows 95/98 or Windows NT is running the program?
Answer:
Insert this code into one of your units:
type
TOSType = (ostUnknown,ostWin95,ostWinNT);
function OSType : TOSType;
var
osv : TOSVersionInfo;
begin
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := ostWinNT;
VER_PLATFORM_WIN32_WINDOWS : Result := ostWin95;
else Result := ostUnknown;
end; //Case
end;
]]>