Beranda > Delphi > Getting the Windows version (string result)

Getting the Windows version (string result)

This function is the same as GetWindowsVersion() above but returns a detailed string version of the OS.function GetWindowsVersionStr: string;
var
  VerInfo: TOSVersionInfo;
  ResultStr: string;
begin
  ResultStr := ”;
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  with VerInfo do
    begin
      case dwPlatformID of
        VER_PLATFORM_WIN32S: ResultStr := ResultStr + ‘Windows 3.1x running Win32s ‘;
        VER_PLATFORM_WIN32_WINDOWS:
          begin
            if IntToStr(dwMajorVersion) + ‘.’ + IntToStr(dwMinorVersion) < ‘4.10’ then
              ResultStr := ResultStr + ‘Windows 95 ‘ + szCSDVersion + ‘ ‘
            else
              ResultStr := ResultStr + ‘Windows 98 ‘ + szCSDVersion + ‘ ‘;
          end;
        VER_PLATFORM_WIN32_NT:
begin
if dwMajorVersion = 5 then
ResultStr := ResultStr + ‘Windows 2000 ‘
else
ResultStr := ResultStr + ‘Windows NT ‘;
end;

      end;
      ResultStr := ResultStr + IntToStr(dwMajorVersion) + ‘.’ + IntToStr(dwMinorVersion) + ‘ ‘;
      ResultStr := ResultStr + ‘(Build ‘ +  IntToStr(LoWord(dwBuildNumber)) + ‘) ‘;
      if dwPlatformID = VER_PLATFORM_WIN32_NT then
        ResultStr := ResultStr + szCSDVersion;
    end;
  Result := ResultStr;
end;

Iklan
Kategori:Delphi
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: