Cara Menulis Dan Membaca Registry

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