Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7 Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7

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 
//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.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.

Untuk berlangganan Artikel silahkan Masukkan email anda kemudian cek inbox email

Author : Unknown

Setelah anda membaca artikel tentang Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7 jika bermanfaat, silahkan tekan tombol Share. Anda juga boleh menyalin / menyebarluaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya : <a href="http://cyberbintauna.blogspot.com/2014/07/cara-menulis-dan-membaca-string-pada.html" target="_blank">Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7 </a>

Baca Juga:

Judul: Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh Unknown
klik disini untuk menambahkan komentar blogger

Terimakasih atas kunjungan Sobat pada artikel ini,dan jangan lupa untuk meninggalkan komentar sobat tentang artikel ini.