Selamat
pagi sobat cyberbintauna , dikesempatan pagi ini saya akan share Cara Menulis Dan Membaca String Pada Registri Dengan Delpi 7.Dan
seperti judul di atas tutorial kali ini akan membahas mengenai cara
menggunakan registry pada Delphi 7.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 :D ) , registry
merupakan databasenya Sistem Operasi , dalam hal ini windows.Ibarat kata
, registry adalah vault 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 :D
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
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
Reg := TRegistry.Create;
with Reg
do begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey(regKey,
true) then
begin
if ValueExists(fieldTeks) then
result := ReadString(fieldTeks)
else ShowMessage(fieldTeks+
' Tidak tersedia pada'+regKey);
end
else 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
Reg := TRegistry.Create;
with Reg
do begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey(keyReg,
true) then
Writestring(fieldTeks,nilaiTeks)
else 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.Setalah 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.
Sekian tutorial kali ini , semoga bermanfaat.
