Cara Menulis Dan Membaca Registry

Share On :

Tweet

Menyimpan konfigurasi aplikasi bisa kita lakukan dengan menggunakan file dot ini. Selain dengan menggunakan file ini, kita juga bisa menyimpan konfigurasi aplikasi menggunakan registry. Pada tutorial ini, saya akan menjelaskan bagaimana cara menulis dan membaca registry.

Untuk membaca dan menulis registry, kita bisa menggunakan kelas TRegistry. Kelas ini ada di unit Registry. Jadi kita harus menuliskan nama unit registry di bagian uses.

A. Menulis Registry

Pada tutorial ini, data yang akan kita simpan ke registry nantinya akan terletak pada : "HKEY_CURRENT_USER\Software\Nama Aplikasi" . Perhatiakan method TulisRegistry di bawah ini

procedure TfrmMain.TulisRegistry(AName, AValue: String);
var
Reg : TRegistry;
appName : String;
begin
Reg := TRegistry.Create;
appName := Application.Title;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + appName , True) then
begin
Reg.WriteString(AName, AValue);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

B. Membaca Registry

Untuk membaca data dari registry, kita harus mengetahui di mana data tersebut kita simpan. Sesuai keterangan di atas, kita menyimpan data di "HKEY_CURRENT_USER\Software\Nama Aplikasi" . Perhatikan method BacaRegistry di bawah ini :

function TfrmMain.BacaRegistry(ANama: String): String;
var
Registry: TRegistry;
begin
Registry:=TRegistry.Create;
try
Registry.RootKey:=HKEY_CURRENT_USER;
Registry.OpenKey('\Software\' + Application.Title, False);
Result := Registry.ReadString(ANama);
finally
Registry.Free;
end;
end;

Source code bisa di download di sini