CARA MEMBACA REGISTRY WINDOWS DENGAN DELPHI

Registry pada sistem operasi windows adalah tempat menyimpan segala macam setting atau pengaturan. Oleh karena itu kita bisa memanfaatkan registry windows ini untuk menyimpan setting atau pengaturan program aplikasi yang kita kembangkan dengan bahasa pemrograman delphi. Pengaturan atau seting yang saya maksud disini adalah pengaturan yang tidak kita simpan dalam database, tetapi pengaturan yang berlaku lokal di komputer tempat kita menggunakannya. Misalnya kalau kita membuat sebuah program POS ( Point Of Sale ) atau program kasir yang terpasang di beberapa komputer ( lebih dari satu komputer ) dimana seting hardwarenya berbeda-beda. Maka kita perlu menyimpan pengaturannya kedalam registry windowsnya, berikut ini akan saya jelaskan Cara Membaca RegistryWindows Dengan Delphi.  Dan Cara Menulis kedalam Registry Windows Dengan Delphi.

 Gambar 1. 

Contoh Listing Cara Membaca Registry Windows Dengan Delphi

Cara Membaca Registry Windows Dengan Delphi dan cara menulis kedalam registry windows dengan Delphi sebenarnya sama saja , yang berbeda hanya perintahnya saja yang berbeda yaitu Read dan Write, tetapi langkah langkahnya sama saja berikut ini saya berikan contoh Cara Membaca Registry Windows Dengan Delphi. :

Langkah 1 : 
Tambahkan Library Registry pada bagian Interface pada unit yang akan anda gunakan untuk membaca dan menulis Registry Windows seperti pada gambar berikut:

Perhatikan pada bagian yang dilingkari merah, pada contoh ini saya menggunakan Delphi XE3, sehingga penulisan  penambahan Registry  adalah seperti gambar diatas, Jika anda menggunakan versi lainnya misalnya Delphi 7 maka cukup dengan mengetikan Registry saja.

 Langkah 2: 

 Langkah selanjutnya dalam Cara Membaca Registry Windows Dengan Delphi , adalah membuat sebuah variable yang bertipe Tregistry untuk kita gunakan dalam menulis dan Membaca Registry Windows dengan Dephi. Seperti pada gambar berikut ini. 

Pada contoh diatas saya membuat variable dengan nama Reg,  namanya tidak harus Reg pemberian namanya sesuai dengan aturan pemberian nama variabel pada umumnya, tetapi tipenya harus TRegistry

Langkah 3:
Langkah selanjutnya dalam Cara Membaca Registry Windows Dengan Delphi adalah menentukan letak key pada registry, key pada registry ini dapat kita anggap seperti Folder atau direktori, caranya dapat kita lihat seperti pada script berikut:

Procedure TForm1.FormCreate(Sender: TObject);

begin

  Reg := Tregistry.Create;

  Reg.RootKey := HKEY_CURRENT_USER;

end;

 
Penempatan script diatas disesuaikan dengan keperluan, pada contoh diatas saya meletakkannya pada even Form onCreate , jadi variable Reg selalu diciptakan pada saat membuka Form tersebut.

HKEY_CURRENT_USER; adalah alamat tempat kita akan menyimpan Registry yang akan kita tulis dan baca. berikut ini adalah gambar isi Registry Windows yang dapat dilihat dengan mengetikkan perintah REGEDIT pada colom RUN pada Windows.

Langkah 4:
Langkah Selanjutnya adalah membuat perintah Menulis Kedalam Registry Windows dengan Delphi . Berikut ini adalah Script Untuk Menulis kedalam Registry Windows:

Procedure TForm1.simpanClick(Sender: TObject);

var alamat:string;

begin

alamat:='\Software\MyAPP\DataLogin';

         try

            Reg.OpenKey(alamat,true);

            Reg.WriteString('HostName',Ehost.text);

            Reg.WriteString('Database',Edata.Text);

          finally

            Reg.CloseKey;

          end;

          MessageDlg('Registrasi Perubahan Database Berhasil !', mtInformation,[mbOk], 0);

end;

alamat='\Software\myAPP\DataLogin'  adalah lokasi penyimpanan pada registry Windows, alamat ini dapat kita tentukan sendiri sesuai kebutuhan .

Reg.OpenKey(alamat,true);  : Adalah untuk membuka atau membuat key Baru kedalam Registry Windows sesuai dengan alamat yang kita berikan

Reg.WriteString('HostName',Ehost.text); : adalah perintah untuk menuliskan data yang ada pada komponen TEdit bernama Ehost kedalam  keyString yang kita beri nama HostName dalam Registry Windows.

Reg.WriteString('Database',Edata.Text); : adalah perintah untuk menuliskan data yang ada pada komponen TEdit bernama Edata kedalam  keyString yang kita beri nama Database dalam Registry Windows.

 Hasil dari proses ini dapat kita lihat pada Registry Editor dengan mengetikan perintah REGEDIT pada Kolom RUN pada Tombol START Windows, Hasilnya dapat dilihat seperti pada gambar berikut:

Langkah 5
Langkah ke lima adalah langkah yang menjadi Judul dan pembahasan utama dalam postingan kali ini yaitu :
Cara Membaca Registry Windows Dengan Delphi , scriptnya dapat dilihat seperti berikut ini:

procedure TForm1.BacaClick(Sender: TObject);

var alamat:string;

begin

alamat:='\Software\myAPP\DataLogin';

  try

    try

      Reg.OpenKey(alamat, false);

      Ehost.text  :=Reg.ReadString('HostName');

      Edata.text  :=Reg.ReadString('Database');

      except on ERegistryException do

      ShowMessage('Gagal membaca data dari registry.');

    end;

  finally

    Reg.CloseKey;

  end;

end;

alamat='\Software\myAPP\DataLogin'  adalah lokasi penyimpanan pada registry Windows, alamat ini dapat kita tentukan sendiri sesuai kebutuhan .

Reg.OpenKey(alamat,false);  : Adalah untuk membuka dari dalam Registry Windows sesuai dengan alamat yang kita berikan

Ehost.text  :=Reg.ReadString('HostName'); : adalah perintah untukmembaca string yang tersimpan dalam Registry windows pada alamat yang kita pilih dimana string tersebut bernama HostName , dan hasil pembacaan dari Registry tersebut kita simpan dalam komponen Tedit yang bernama Ehost

Edata.text  :=Reg.ReadString('Database'); : adalah perintah untukmembaca string yang tersimpan dalam Registry windows pada alamat yang kita pilih dimana string tersebut bernama Database , dan hasil pembacaan dari Registry tersebut kita simpan dalam komponen Tedit yang bernama Edata.


Demikian Postingan saya kali ini tentang Cara Membaca Registry Windows Dengan Delphi semoga bermanfaat dan dapat membantu para penggemar dan pencinta Bahasa pemrograman Delphi, Kalau ada kekeliruan mohon dikoreksi.

SALAM DELPHI.