MENGHAPUS KEY CONTROL PANEL PADA REGISTRY…..hi…hi.:):):) by 1g3

Nich lagi tutor dari qw…..masih tentang registry…pake Delphi…he..he..he

Namun sebelum anda membuat kode program dibawah ini alangkah baiknya sebagai bahan latihan anda membuat key baru pada registry yang nantinya akan digunakan sebagai bahan percobaan…”JADI ANDA TINGGAL MENGGANTIKAN NILAI CONTROL PANEL DENGAN KEY YANG ANDA BUAT TADI ”……..

Untuk lebih singkatnya langsung saja anda tuliskan linsting dibawah ini…..dengan melakukan double klik pada form ( area kerja anda )…..sehingga delphi akan langsung membuat event oncreate yang artinya perintah dibawah ini akan langsung dieksekusi saat program dirunning…

Berikut Linsting selengkapnya

unit x1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);

begin

TRegistry.Create.RootKey:=HKEY_CURRENT_USER;

TRegistry.Create.OpenKey('Control Panel',true); //ubah dgn key yang anda buat…

TRegistry.Create.DeleteKey('Control Panel'); //ubah dgn key yang anda buat…

TRegistry.Create .CloseKey;

application.Terminate;

end;

end.

Linsting diatas hanya digunakan sebagai bahan pelajaran dan untuk menambah pengetahuan …jadi kalo digunakan untuk hal yang tidak baik …itu diluar tanggung jawab kami….

download toolsnya di sini http://www.box.net/shared/saubq6y1t6

download sourcenya (pdf version) di sini http://www.box.net/shared/3xs4pi8pvd

Tutor by 1g3….:):):):)