{"id":233,"date":"2007-05-12T17:18:11","date_gmt":"2007-05-12T15:18:11","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/get-the-os-version\/"},"modified":"2007-05-12T17:18:13","modified_gmt":"2007-05-12T15:18:13","slug":"get-the-os-version","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/get-the-os-version\/","title":{"rendered":"Get the OS-Version"},"content":{"rendered":"

How to get the OS-Version?
\n<\/em>
\nSolution by GRS:
\n\/\/ —— Code starts ——
\n
\n[code lang=”delphi”]unit osvr1632;<\/p>\n

interface<\/p>\n

procedure OSVersion(var WinMaj, WinMin: word);<\/p>\n

implementation<\/p>\n

uses {$IFDEF VER80} WinProcs {$ELSE} Windows {$ENDIF} ;<\/p>\n

procedure OSVersion( var WinMaj, WinMin: word);
\n{$IFDEF VER80}
\nvar osv: longint;
\nbegin
\n osv := GetVersion;
\n WinMaj := osv and $FF;
\n WinMin := (osv shr and $FF;
\n if WinMin=95 then
\n begin
\n WinMaj := 4;
\n WinMin := 0;
\n end;
\n{$ELSE}
\nvar OSVI: TOSVersionInfo;
\n n: dword;
\nbegin
\n n := SizeOf(TOSVersionInfo);
\n ZeroMemory(@OSVI,n);
\n OSVI.dwOSVersionInfoSize := n;
\n GetVersionEx(OSVI);
\n if OSVI.dwPlatformId=VER_PLATFORM_WIN32_NT then
\n begin
\n WinMaj := OSVI.dwMajorVersion;
\n WinMin := OSVI.dwMinorVersion;
\n end
\n else
\n begin
\n WinMaj := (OSVI.dwBuildNumber shr 24) and $FF;
\n WinMin := (OSVI.dwBuildNumber shr 16) and $FF;
\n end;
\n{$ENDIF}
\nend;<\/p>\n

end.
\n[\/code]
\n\/\/ ——- Code ends ——-<\/p>\n

If compiled with D5:
\nYou’ll get the expected results: winMaj=4 and winMin=whatever when under
\nWin9x, ME or NT, and you’ll get winMaj=5 when under Win2K.<\/p>\n

The use of the dwBuildNumber part of the OSVersionInfo structure in the
\n32-bit part of the procedure overcomes the recently discovered “WinME
\nbecoming Win98” bug if the exe is called setup.exe. If you’re not
\nbothered
\nby that bug then you can change the 2 appropriate lines to:<\/p>\n

WinMaj := OSVI.dwMajorVersion;
\nWinMin := OSVI.dwMinorVersion;<\/p>\n

[tags]Delphi, System[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

How to get the OS-Version? Solution by GRS: \/\/ —— Code starts ——<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,113],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3L","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/233"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=233"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/233\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=233"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=233"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=233"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}