Tips mudah mengakses Registry dengan menggunakan RzRegIniFile

Bagi anda yang baru kenal Raize, mungkin ini merupakan tips yang sangat bermanfaat untuk bisa menggunakan Registry dengan mudah dan cepat.

Sebisa mungkin anda bisa mengakses registry dari program aplikasi anda, sebab database registry sangat bermanfaat sekali jika anda bisa menggunakannya secara tepat dan pas sesuai dengan kebutuhan.



Berikut ini contoh langkah-langkah sederhana menggunakan RzRegIniFile didalam aplikasi.

1. Silahkan anda buat program aplikasi baru.
2. Tambahkan object RzRegIniFile dari komponen pallete WidGets.
3. Silahkan anda atur properties seperti berikut :

Path -> Latihan Registry
PathType -> ptRegistry
RegKey -> hkeyCurrentUser

4. Setelah itu, silahkan anda isikan kode program didalam event OnShow.

....
....
procedure TForm1.FormShow(Sender: TObject);
begin

with RzRegIniFile1 do
begin

Top := ReadInteger('Posisi Form','Top',0);
Left := ReadInteger('Posisi Form','Left',0);

end;

end;
....
....

5. Selanjutnya silahkan anda ketikkan kode program lagi didalam event OnClose seperti dituliskan pada potongan kode program berikut ini.

....
....
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

with RzRegIniFile1 do
begin

WriteInteger('Posisi Form','Top',Top);
WriteInteger('Posisi Form','Left',Left);

end;

end;
....
....


contoh diatas tadi adalah contoh untuk menyimpan data posisi sebuah form, sehingga ketika anda menjalankan program aplikasi, posisi dari form itu sama seperti sebelum form itu ditutup.

Sekarang saya akan mencoba memberikan sedikit variasi menyimpan data kedalam database registry.

variasi ini adalah meyimpan data color atau warna didalam database registry.

Sekarang silahkan anda ikuti langkah berikut.

1. Dari program tadi, silahkan anda tambahkan object ColorBox dari component Palette Additional dan Button dari component pallete Standard.
2. Silahkan anda klik 2x tombol Button1, dan isikan kode program didalam event OnCLick-nya dengan kode program seperti ditunjukkan oleh potongan kode program berikut ini.

....
....
procedure TForm1.Button1Click(Sender: TObject);
begin

with RzRegIniFile1 do
with ColorBox1 do
with self do
begin

WriteString('Form','Warna',ColorToString(Selected));
Color := Selected;

end;

end;
....
....

3. Setelah itu, pada event OnShow dari object Form anda ubah kode program didalamnya menjadi seperti terlihat pada potongan kode program berikut ini.

....
....
procedure TForm1.FormShow(Sender: TObject);
begin

with RzRegIniFile1 do
begin

Top := ReadInteger('Posisi Form','Top',0);
Left := ReadInteger('Posisi Form','Left',0);
Color := StringToColor(ReadString('Form','warna','clwhite'));

end;

end;
....
....

Demikian tips singkat dari saya, semoga bermanfaat bagi kita semua. Selamat mencoba….