Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE

Tutorial ini merupakan tutorial Dasar Pemograman Delphi Tentang Implementasi Save, Edit, Delete dan Replace string di Registry Editor System Operasi Wndows dan silahkan langsung disimak tips Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE dan untuk delphi XE sendiri ada perbedaan dengn delphi 7 dan hanya saja pada tutorial ini admin akan bahas tentang dengan delphi 7 saja.

Mungkin anda pernah membuat file save dan edit maupun delete dengan inifiles, tapi tahukah bahwa regenerasi inifiles adalah registry dan dari hasil uji berapa spek yang digunakan oleh registry dan inifiles memang secara signifikan memiliki perbedaan bahkan dengan penggunaan registry lebih hemat ram komputer kita ketimbang menggunakan type inifiles.

Baca Juga: Cara Membaca Registry Public Key Pada Tunnel SSH Bitvise

Pada tutorial ini admin tidak membuat file registry windows pada form yang benar-benar kosong karena kebetulan admin menambahkan konsep ini pada sebuah software dan program yang sudah jadi yaitu pada sebuah tunneling ssh (bitvise) tapi saya asumsikan anda telah menambahkan 7 edit dan 1 buah combobox pada form delphi anda, oh iya konsep ini tidak harus selalu diterapkan pada aplikasi yang mengharuskan installer system/windows, karena contoh tutorial ini diterapkan pada aplikasi portable.

1. Biasa Buka bahasa program delphi anda lalu Pada langkah pertama silahkan tambahkan dulu uses Registry perhatikan tulisan Registry pada gambar dibawah ini;

2. Kemudian tambahkan kode Reg : Tregistry; diatas public declarations , contohnya bisa sahabat perhatikan gambar bawah saja.

3. Langkah selanjutnya pada form create atau klik saja form utamanya kemudian masukan kode dibawah ini, tujuan dari form oncreate adalah ketika form di create maka file registry akan dibaca.

procedure TForm1.FormCreate(Sender: TObject);

var Value:string;

begin

 Reg := Tregistry.Create;

 Reg.RootKey := HKEY_CURRENT_USER;

  Value:='\Software\Twitty Client\Server';

  try

    try

      Reg.OpenKey(Value, false);

      Edit1.text  :=Reg.ReadString('Host');

      Edit2.text  :=Reg.ReadString('Port');

      Edit3.text  :=Reg.ReadString('Username');

      Edit4.text  :=Reg.ReadString('Password');

      except on ERegistryException do

      ShowMessage('Server Read Error !');

    end;

  finally

    Reg.CloseKey;

  end;

  Value:='\Software\Twitty Client\Proxy Settings';

  try

    try

      Reg.OpenKey(Value, false);

      Edit5.text  :=Reg.ReadString('Server');

      Edit6.text  :=Reg.ReadString('Port');

      ComboBox1.text  :=Reg.ReadString('Proxy Type');

      except on ERegistryException do

      ShowMessage('Proxy Read Error !');

    end;

  finally

    Reg.CloseKey;

  end;

end;

4. Yang keempat lalu silahkan klik Button1 atau button yang terpisah atau button tunggal agar terlihat jelas hasilnya, lalu masukan kode dibawah ini, yang dibawah ini fungsinya sebagai writenya atau menulis kode ulangnya atau replace kode/config sebelumnya;

procedure TForm1.Button2Click(Sender: TObject);

var Value:string;

begin

 Value:='\Software\Twitty Client\Server';

         try

            Reg.OpenKey(Value,true);

            Reg.WriteString('Host',Edit1.text);

            Reg.WriteString('Port',Edit2.Text);

            Reg.WriteString('Username',Edit3.text);

            Reg.WriteString('Password',Edit4.Text);

          finally

            Reg.CloseKey;

          end;

 Value:='\Software\Twitty Client\Proxy Settings';

         try

            Reg.OpenKey(Value,true);

            Reg.WriteString('Server',Edit5.text);

            Reg.WriteString('Port',Edit6.Text);

            Reg.WriteString('Proxy Type',ComboBox1.text);

          finally

            Reg.CloseKey;

          end;

    MessageDlg('Config Save Success !', mtInformation,[mbOk], 0);

end;

5. Kemudian silahkan run hasilnya, kemudian silahkan coba masuk ke RUN > WINDOWS > ketik REGEDIT lalu masuk ke HKEY_CURRENT_USER > Software\Twitty Client maka hasilnya akan nampak seperti pada gambar dibawah ini;

6. Penjelasan tambahan; Twitty Client bisa anda ganti dengan nama aplikasi yang anda miliki dan nama Server dan Proxy Settings bisa anda ganti juga sesuai dengan nama directory yang ingin dan akan anda buat, dan yang terpenting read writenya sama saja dan silahkan dipelajari kembali, jika anda kendala silahkan ditanyakan saja. :D

Oh iya jika kebetulan anda menambahkan komponen checkbox dan radiobutton silahkan gunakan readbool/writebool saja bukan readstring/writestring karena komponen tersebut bukan bertype string simplenya begitu saja.

Lihat Juga: Cara Buat Inject Internet Gratis Terbaru 2016

Ok guys sekian tutorial Singkat kali ini Tentang Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE Terbaru 2016 semoga bisa menjadi anda sebagai calon programmer handal dan berguna bagi orang lain, Wassalam.