Mengganti RegisteredOwner & Organization

Tutorial ini akan menjelaskan tentang cara mengganti RegisteredOwner dan RegisteredOrganization pada komputer Anda. RegisteredOwner dan Organization tersebut dapat kita lihat pada Control Panel – System, lalu pada bagian Registerd To. Untuk mengganti RegisteredOwner secara “manual” (melalui registry editor) dapat Anda lihat di sini.

Langkah pertama sebelum memanipulasi nilai pada registry adalah dengan memberitahukan terlebih dahulu key yang akan diakses. Caranya dengan mengubah properti RootKey. Isi properti ini adalah HKey_Classes_Root, HKey_Current_User, HKey_Local_Machine, atau HKey_Users. Secara default nilai dari properti ini adalah HKey_Current_User, sehingga bila Anda tidak mengisi properti tersebut, Delphiakan menganggap sebagai HKey_Current_User.

Contoh :

var

1. MyReg : TRegistry;
2. begin
3. MyReg := TRegistry.Create;
4. MyReg.RootKey := HKey_Local_Machine;
5. ……..
6. MyReg.Free;
7. end;

Langkah kedua adalah membuka subkey yang akan dimanipulasi, yaitu dengan cara memanggil fungsi OpenKey. Deklarasi fungsi OpenKey adalah sebagai berikut:

1. function OpenKey(const Key: string; CanCreate: Boolean): Boolean;

Terdapat dua parameter yang harus diisi. Parameter pertama bertipe string yang merupakan subkey yang akan dibuka. Sedangkan parameter kedua bertipe boolean, yang akan menentukan apakah subkey tersebut akan dibuat atau tidak. Bila parameter ini bernilai true, maka Delphi akan membuat subkey tersebut jika di registry belum ada. Sebaliknya bila bernilai false, subkey tersebut tidak akan dibuat meskipun di registry belum ada. Fungsi OpenKey ini akan mengembalikan nilai true jika inisialisasi berhasil dan mengembalikan false jika gagal.

Untuk mengganti RegisteredOwner tersebut, subkey-nya adalah : \SOFTWARE\Microsoft\Windows\CurrentVersion\

Maka, kode yang harus kita tulis adalah:

1. MyReg.RootKey := HKEY_LOCAL_MACHINE;
2. MyReg.OpenKey := ('\SOFTWARE\Microsoft\Windows\ CurrentVersion', false);

Setelah langkah di atas, selanjutnya Anda bisa membaca atau menulis data pada registry. Untuk membaca data pada registry Anda dapat menggunakan ReadString, ReadInteger, dll (baca pd file Help-nya Delphi). Sedangkan untuk menulis data pada registry gunakan WriteString, WriteInteger, dll.

Kode di bawah ini menunjukkan cara pembacaan data pada registry, yang hasilnya dituliskan pada komponen Edit1.

1. Edit1.Text := MyReg.ReadString ('RegisteredOwner');
2. Edit2.Text := MyReg.ReadString ('RegisteredOrganization');

Sedangkan untuk menuliskan data pada registry gunakan cara berikut :

1. reg.WriteString ('RegisteredOwner', Edit1.Text);
2. reg.WriteString ('RegisteredOrganization', Edit2.Text);

Kode selengkapnya adalah sebagai berikut :

unit Unit1;

1. interface
2.  
3. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, registry;
4.  
5. type
6. TForm1 = class(TForm)
7. Edit1: TEdit;
8. Edit2: TEdit;
9. Label1: TLabel;
10. Label2: TLabel;
11. Button1: TButton;
12. Button2: TButton;
13. procedure Button2Click(Sender: TObject);
14. procedure FormCreate(Sender: TObject);
15. procedure Button1Click(Sender: TObject);
16. private
17. { Private declarations }
18. public
19. { Public declarations }
20. end;
21.  
22. var
23. Form1: TForm1;
24. reg : TRegistry;
25.  
26. implementation
27. {$R *.DFM}
28.  
29. procedure TForm1.Button2Click(Sender: TObject);
30. begin
31. Close; // menutup form
32. end;
33.  
34. procedure TForm1.FormCreate(Sender: TObject);
35. begin
36. reg := TRegistry.Create;
37. reg.RootKey := HKEY_LOCAL_MACHINE;
38. reg.OpenKey ('\Software\Microsoft\Windows\CurrentVersion', false);
39. Edit1.Text := reg.ReadString ('RegisteredOwner');
40. Edit2.Text := reg.ReadString ('RegisteredOrganization');
41. reg.Free;
42. end;
43.  
44. procedure TForm1.Button1Click(Sender: TObject);
45. begin
46. reg := TRegistry.Create;
47. reg.RootKey := HKEY_LOCAL_MACHINE;
48. reg.OpenKey ('\Software\Microsoft\Windows\CurrentVersion', false);
49. reg.WriteString ('RegisteredOwner', Edit1.Text);
50. reg.WriteString ('RegisteredOrganization', Edit2.Text);
51. reg.Free;
52. end;
53.  
54. end.

Download contohnya

Sumber : klik-kanan

Posted in: Trik Komputer