Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7


Enable Registry Disabled by AdminSelamat pagi menjelang siang , Disini Roy Royesta mengudara dengan ditemani secangkir kopi hitam dan Surya 16 di tangan. Dan seperti judul di atas tutorial kali ini akan membahas mengenai cara menggunakan registry pada Delphi. Spesifiknya , cara menuliskan string dan membacanya yang tersimpan pada registry. Okey , sebelum lanjut mungkin ada baiknya kita tau apa itu registry. Dalam pemahaman IMSO (In My Sotoy Opinion😀 ) , registry merupakan databasenya Sistem Operasi , dalam hal ini windows. Ibarat kata , registry adalah value untuk menyimpan informasi yang di tulis oleh SO. Biasanya berisi konfigurasi mengenai sebuah software. Misalnya expired date pada trial software. Ya begitu lah , lebih jelas dan afdolnya cari di wiki aja deh.

Nah kali ini , saya akan membahas mengenai cara menyimpan string pada registry. Untuk apa kita belajar registry !? Pertanyaan yang bagus (yang nanya itu kan saya -,-“). Bayangkan ketika kita membuat suatu program , lalu kita merubah konfigurasi program tersebut misalnya jenis font yang semula Arial ingin kita ubah menjadi Comic Sans pada saat run time. Konfigurasi tersebut akan hilang bila program di terminate. Lalu bagaimana caranya supaya konfigurasi tersebut tidak hilang !? Pertanyaan yang bagus (yang nanya saya lagi kan -_-“) , itulah gunanya kita belajar registry😀

Flownya seperti ini.Kita akan membuat program yang berfungsi untuk menuliskan string pada registry.Lalu nantinya string tersebut di baca lalu di terapkan pada komponen label. Belibet yak !? Ikutin aja deh tutorialnya.

Buka delphi anda , dan pada form1 tambahkan 2 komponen button , lalu 1 komponen label dan 1 komponen edit. Lihat deh penampakan gambar di bawah

Design Form Awal

Okey , its time for koding. Jangan lupa , tambahkan registry pada klausa uses. Kita akan membuat 1 buah prosedure untuk menulis registry dan 1 buah function untuk membaca registry. Udah tau kan perbedaan function dan procedure itu apa !? For now , just type the pascal object script below :

Function bacaReg (regKey,fieldTeks : String) : string;
Var
Reg : TRegistry;
begin
//Membuat object Registry
Reg := TRegistry.Create;
with Reg do
begin
//Mengeset tujuan registry sesuai yang kita inginkan
RootKey:=HKEY_LOCAL_MACHINE;
//Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya
if OpenKey(regKey,true) then
begin
//Jika fieldTeks tersedia
if ValueExists(fieldTeks) then
//Membaca nila dari fieldTeks
result := ReadString(fieldTeks)
else
ShowMessage(fieldTeks+’ Tidak tersedia pada’+regKey);
end
else
//Jika error terjadi ketika kita menulis pada registry
ShowMessage(‘Error membuka/membuat : ‘+regKey);
CloseKey;
end;
end;

Okey , itu fungsi untuk membaca pada registry.Selanjutnya kita akan membuat prosedure untuk menulisnya:

Procedure tulisReg(keyReg,fieldTeks,nilaiTeks : String);
Var
Reg : TRegistry;
begin
//Buat objek registry lagi
Reg := TRegistry.Create;
with Reg do
begin
//Mengeset tujuan registry sesuai yang kita inginkan , lagi
RootKey:=HKEY_LOCAL_MACHINE;
//Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya , lagi
if OpenKey(keyReg,true) then
//Gak perlu ngecek field lagi , karena kita akan membuatnya dengan memasukan nilaiTeks
Writestring(fieldTeks,nilaiTeks)
else
//Jika error terjadi ketika kita menulis pada registry , lagi
ShowMessage(‘Error membuka/membuat :’+keyReg);
CloseKey;
end;
end;

Double-klik button tulis lalu ketikan kode berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin
tulisReg(‘SOFTWARE\programSaya’,’fieldTeksSaya’,Edit1.Text);
end;

Lalu double-klik button baca dan ketikan (lagi) kode berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := bacaReg(‘SOFTWARE\programSaya’,’fieldTeksSaya’);
end;

Jalankan program anda , lalu ketikan sesuatu pada edit1.Setelah itu tekan button tulis. Selanjutnya tekan button baca. Maka label1.caption akan sesuai dengan apa yang anda tulis. Gak aneh ya !? Coba keluar dari program lalu jalankan lagi. Sekarang , coba tekan langsung button baca , label1.caption  berubah kan sesuai dengan apa yang anda tulis sebelum program di terminate !?

Sampai disini , anda ngerti kan cara menggunakan registry walaupun masih sangat sederhana !? Untuk source code programnya , silahkan download DISINI.

Sekian tutorial kali ini , semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri. Silahkan kunjungi BUKU TUTORIAL dan VIDEO TUTORIAL. Baik BUKU TUTORIAL maupun VIDEO TUTORIAL, tersedia berbagai praktikum yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s