Deteksi Windows OS Version Dengan Delphi

4:04 AM
Deteksi Windows OS Version Dengan Delphi
Deteksi Windows OS Version Dengan Delphi - Cukup sederhana dan simple dalam penerapannya untuk tutorial kali ini.

Baiklah, tambahkan 1 buah label dan kosongkan caption nya atau di biarkan saja.
kemudian tambahkan uses Registry, atau copas uses di bawah ini tepat dibawah Implementation.
Uses Registry;
selanjutnya copas funcion dibawah ini tepat dibawah {$R *.dfm}.
function GetWindowsVersion: string;
var
  VerInfo: TOsversionInfo;
  PlatformId, VersionNumber: string;
  Reg: TRegistry;
begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  // Detect platform
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  case VerInfo.dwPlatformId of
        VER_PLATFORM_WIN32s:
          begin
                PlatformId := 'Windows 3.1';
          end;
        VER_PLATFORM_WIN32_WINDOWS:
          begin
                // Registry
                Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);
                PlatformId      := Reg.ReadString('ProductName');
                VersionNumber := Reg.ReadString('VersionNumber');
          end;
        VER_PLATFORM_WIN32_NT:
          begin
                Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
                PlatformId      := Reg.ReadString('ProductName');
                VersionNumber := Reg.ReadString('CurrentVersion');
          end;
  end;
  Reg.Free;
  Result := PlatformId + ' (version ' + VersionNumber + ')';
end;
kemudian masukkan cooding di bawah ini di FormCreate atau klik 2x pada form kosong.
Label1.Caption := GetWindowsVersion;
atau kalau mau fungsi detect windows nya bekerja saat klik button, kamu tinggal tambahkan button dan masukkan cooding yang sama seperti yang di FormCreate dan hapus yang sudah ada di FormCreate. dan jika sukses maka akan terdeteksi OS version yang kamu pakai.
Semoga bisa dipahami dan cepat dimengerti :)
Yang mau source code-nya juga silahkan: Download Disini atau Download Disini

Artikel Terkait

Previous
Next Post »
Blogger
Disqus
Pilih Sistem Komentar Yang Kamu Sukai

No comments