Akses Registry Windows dengan Delphi #168

Mengapa Bala-bala di jakarta disebut BAKWAN anying

Andry Fadrie K Mei 2, 2012

0 576 1 minute read

andrypein.net : Akses registry windows dengan delphi tidaklah sulit, baca saja artikel aing h3h3.

Program kali ini akan mendemonstrasikan bagaimana menulis dan membaca nilai pada registry dan menampilkannya kembali pada sebuah memo.

Disini juga akan di jelaskan bagaimana langkah menulis registry window dengan delphi, dan melihat perubahan registry editor sebelum dan sesudah di koding.

Sekian intronya, btw ketentuan untuk menulis registry pada window dengan delphi adalah sebagai berikut :

Nama_Variabel:=TRegistry;

selanjutnya di bagian kode, algoritma nya seperti ini :

Nama_Variabel:=TRegistry.Create;
Nama_Variabel.Rootkey:=ROOT_KEY_REGISTRY_KAMU;
Nama_Variabel.Openkey(KEY,true);
Nama_Variabel.Write[tipe_data_register](KEY_VALUE);
Nama_Variabel.Closekey;

Akhirnya untuk menutup penggunaan registry, gunakan sintak :

Nama_Variabel.Free;

Sekilas diatas adalah algoritma langkah untuk menggunakan dan menulis registry pada windows, sekarang lanjut kita praktekan pada IDE delphi masing-masing.

Buat lah form seperti tampilan skrinsut diatas, hanya dua buah tombol dan satu buah memo.

Sebelumnya tambahkan terlebih dahulu uses Registry pada bagian uses nya.

Lalu tambahkan variabel global seperti dibawah ini, variabel global selalu ditempatkan dibawah var TForm.

var
  Form1: TForm1;
  reg : TRegistry;
  binari : array [0..3] of byte = (01,00,01,00);

Pada tombol tulis registry masukan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('SOFTWARE\andry',true);
  reg.WriteString('tes string','contoh nilai stringmu');
  reg.WriteInteger('tes integer',1234);
  reg.WriteFloat('tes float',892112338.3929);
  reg.WriteCurrency('tes uang',10000);
  reg.WriteTime('tes jam',time);
  reg.WriteDate('tes tanggal',date);
  reg.WriteDateTime('tes jam tanggal',date+now);
  reg.WriteBool('tes boolean false',false);
  reg.WriteBool('tes boolean true',true);
  reg.WriteBinaryData('tes binary',binari,SizeOf(binari));
  reg.CloseKey;
 finally
  reg.Free;
  Showmessage('Data Registry Berhasil Dibuat');
 end;
end;

Kita cek dahulu dengan mengetikan regedit pada run, registry editor muncul, dan coba cari bagian HKEY_LOCAL_MACHINE\Software, si key andry belum tercipta.

Jalankan dahulu program delphi nya lalu klik button ‘tulis registry‘, lalu cek kembali perubahan registry, pilih menu view – refresh atau F5 langsung dan key andry tercipta.

Cek dengan button baca registry maka key key yang ada pada regedit akan sama dengan yang di memo text, artinya program mu berhasli dud.

Terakhir nilai key name dan value tersebut bisa dibaca kembali dalam program, lalu masukan listing pada button kedua untuk menampilkannya pada memo.

procedure TForm1.Button2Click(Sender: TObject);
begin
 memo1.Clear;
 memo1.ReadOnly:=true;
 try
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('SOFTWARE\andry',true);
  memo1.Lines.Add('Nilai tes String : '+reg.ReadString('tes string'));
  memo1.Lines.Add('Nilai tes Integer : '+inttostr(reg.ReadInteger('tes integer')));
  memo1.Lines.Add('Nilai tes Float : '+floattostr(reg.ReadFloat('tes float')));
  memo1.Lines.Add('Nilai tes Currency : '+currtostr(reg.ReadCurrency('tes uang')));
  memo1.Lines.Add('Nilai tes time : '+timetostr(reg.ReadTime('tes jam')));
  memo1.Lines.Add('Nilai tes date : '+datetostr(reg.ReadDate('tes tanggal')));
  memo1.Lines.Add('Nilai tes datetime : '+datetimetostr(reg.ReadDateTime('tes jam tanggal')));
  memo1.Lines.Add('Nilai tes Boolean false : '+booltostr(reg.ReadBool('tes boolean false'),true));
  memo1.Lines.Add('Nilai tes Boolean true : '+booltostr(reg.ReadBool('tes boolean true'),true));
  memo1.Lines.Add('Nilai tes BinaryData : '+inttostr(reg.ReadBinaryData('tes binary',binari,SizeOf(binari))));
  reg.CloseKey;
 finally
  reg.Free;
 end;
end;

Done dan ini penampakan hasil akhir nya pada memo.