Jumat, 30 September 2016

Cara Membuat File Registry Windows Sendiri Dengan Delphi 7 dan XE

Jum'at, 30 September 2016 - www.indoblog.me 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
Cara Membaca Menulis dan Menghapus Registry Key Bajakan

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;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

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

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

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;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

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;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

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;

Belajar Komputer, Bahasa Program dan Jaringan Internet Bagi Pemula

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.


EmoticonEmoticon