Aplikasi Delphi untuk Cek Versi Windows #164

baygon cair tidak dapat diminum oleh manusia

Andry Fadrie K April 18, 2012

0 296 Less than a minute

andrypein.net : kali ini memakai registry, aplikasi kecil ini form nya masih kemarin, sengaja di pending untuk post selanjutnya.

aplikasi yang di post kemarin tinggal di copy lagi lalu tambahkan satu buah button dan 7 label lagi, sehingga total label jadi 14, atau kalau malas n lama mening buat baru saja.

lalu pada bagian uses tambahkan uses Registry.

procedure TForm1.Button1Click(Sender: TObject);
var
 reg : TRegistry;
begin
 reg:=TRegistry.Create;
 try
  reg.Rootkey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersion',false);
  label8.Caption:=reg.ReadString('ProductName');
  label9.Caption:=reg.ReadString('CurrentVersion');
  label10.Caption:=reg.ReadString('CSDVersion');
  label11.Caption:=reg.ReadString('CurrentBuildNumber');
  label12.Caption:=reg.ReadString('PathName');
  label13.Caption:=reg.ReadString('ProductID');
  label14.Caption:=reg.ReadString('RegisteredOwner');
  reg.CloseKey;
 finally
  reg.Free;
 end;
end;