Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Aplikasi Delphi untuk Cek Versi Windows #164

baygon cair tidak dapat diminum oleh manusia

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.

cek versi windows
hasil akhir

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;
Aing pasti share apps cek versi windows delphi nya gan kalau mau donlod .

Download

*AFK

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button