Asep toolss source code

Untuk source kode kali ini kami akan mencoba untuk berbagai pengalaman. Kali ini kami akan memberiakan contoh dengan pemprograman Delphi. Sekarang kita akan mencoba untuk membuat program untuk mengesekusi registry. Berikut adalah langkah-langkah yang perlu anda kerjakan:

1. Buka lembar kerja Delphi. Disini kami menggunakan Delphi 7.

2. Disini komponen yang perlu dipersiapkan adalah

Nama Objek	Properties	Nilai/Values
Form 1	Caption	Asep_tools
Panel	Caption	-
Check box 1	Caption	Disable Taks manager
Check box 2	Caption	Disable Registry
Button 1	Caption	Apply
Button 2	Caption	Cancel

2. Lalu tuliskan source kode di bawah ini dengan benar.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Registry;

type

TForm1 = class(TForm)

Panel1: TPanel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Reg : TRegistry;

begin

begin

if CheckBox1.Checked= True then

begin

Reg := TRegistry.Create;

Reg.RootKey := HKEY_CURRENT_USER;

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Polici

es\System', True);

Reg.WriteInteger('DisableTaskMgr', 1); //disable Task Manager

Reg.CloseKey;

end

else

begin

Reg := TRegistry.Create;

Reg.RootKey := HKEY_CURRENT_USER;

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);

Reg.WriteInteger('DisableTaskMgr', 0); //disable Task Manager

Reg.CloseKey;

end

end;

begin

if CheckBox2.Checked= True then

begin

Reg := TRegistry.Create;

Reg.RootKey := HKEY_CURRENT_USER;

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);

Reg.WriteInteger('DisableRegistryTools', 1); //disable Registry Editor

Reg.CloseKey;

end

else

begin

Reg := TRegistry.Create;

Reg.RootKey := HKEY_CURRENT_USER;

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);

Reg.WriteInteger('DisableRegistryTools', 0); //disable Registry Editor

Reg.CloseKey;

end

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

end.

3. Untuk tampilannya adalah sebagai berikut. Software ini dapat di download di sini

Ya itu sedikit contoh source kode dari kami, semoga source kode ini dapat bermanfaat bagi teman-teman. Selamat mencoba. Always practices, and never say no.