Bermain-main dengan Regedit Menggunakan Delphi

Sebelum membaca postingan ini ada baiknya anda membaca postingan saya sebelumnya tentang Membuat Aplikasi Run As Administrator disini kerena pada kesempatan ini kita akan sedikit bermain-main dengan Registry Editor Windows atau yang akrab disebut dengan Regedit. Sekedar Informasi buat anda yang belum tahu bahwa sebagian besar aplikasi yang kita install di windows beberapa settingan akan disimpannya kedalam Regedit anda dapat membuktikannya dengan membuka regedit di :

HKEY_LOCAL_MACHINE\SOFTWARE\

Sebut Saja Connector ODBC, Jika anda pernah menggunakan Connector ini mungkin anda sudah tahu bahwa settingan koneksinya disimpan di Regedit anda dapat melihatnya di : 

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\. 

Berangkat dari hal tersebut saya kira cukup penting untuk membuat postingan tentang Regedit ini.  

Terlepas dari hal tersebut diatas, seperti yang kita ketahui bersama, sejak dirilisnya windows vista, kita membutuhkan akses administrator untuk membuka beberapa utilitas penting di windows seperti Regedit oleh karenanya sebelum melanjutkan anda harus sudah bisa membuat aplikasi yang dijalankan as administrator silahkan lihat disini.

1. Tahap Awal adalah menambahkan Registry kedalam Uses anda.

2. Langkah kedua, buatlah sebuah variabel global reg dengan type Tregistry;

3. Tambahkan dua buah Button dan sebuah memo kedalam Form anda
   Button1.Caption = Tulis ke Regedit
   Button2.Caption = Baca Regedit

4. Berikut adalah contoh coding untuk menulis ke regedit

reg :=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Koneksi',true);
reg.WriteString('Hostname','localhost');
reg.WriteString('DataBasename','namadb');
reg.WriteString('User','root');
reg.WriteString('Password','password');
reg.WriteString('Port','3306');
reg.WriteString('Kunjungi','http://delphitutor.blogspot.com');
reg.Free; 

Hasil dari Coding diatas dapat anda lihat di Regedit langsung yang lokasinya di HKEY_LOCAL_MACHINE\SOFTWARE\Koneski\. Jika tidak ingin repot kita juga bisa menampilkan Valuenya pada memo dengan coding pada step 5 dibawah ini

5. Berikut adalah contoh coding untuk membaca regedit

Memo1.Clear;
reg :=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Koneksi',true);
memo1.Lines.Add(reg.ReadString('Hostname'));
memo1.Lines.Add(reg.ReadString('DataBasename'));
memo1.Lines.Add(reg.ReadString('User'));
memo1.Lines.Add(reg.ReadString('Password'));
memo1.Lines.Add(reg.ReadString('Port'));
memo1.Lines.Add(reg.ReadString('Kunjungi'));
reg.Free;

Contoh Source Code dapat anda Download disini. Selamat Mencoba.