Program Block Drive dengan Delphi 7

Salam sejahtera semuanya..

Berikut ini adalah contoh program Delphi akses registry, dalam program ini key registry yang saya utek-utek adalah ‘NoViewOnDrive’, key ini mengatur ijin akses dalam sebuah drive, letaknya pada HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\

valuenya bertipe DWORD value, value datanya sbb:

Drive C = 4

Drive D = 8

Drive E = 16

Drive F = 32

Dan seterusnya.. pokoknya kelipatan dari 4 getto…

Kalo mau ngeblock lebih dari satu drive kita tinggal menambahkan value data dari tiap drive yang akan di block… missal kita akan ngeblock drive C & D jadi value data yang akan di tulis adalah

C = 4, D = 8 >> 4 + 8 = 12…

untuk melanjutkan membaca klik link dibawah

Suudah.. langsung aje ta mulai programnya ketik source berikut :

public

reg : tregistry; // {public declarationnya} ditambahkan ‘reg : tregistry’

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure restart();//procedure restart computer

begin

if application.MessageBox(‘Restart komputer agar bisa liat efeknya, restart sekarang???’,'Attention’,mb_yesno or mb_iconquestion)=idyes

then

WinExec(‘cmd.exe /c “shutdown -r -t 0 -f”‘, SW_HIDE);// pake bantuan CMD

end;

procedure TForm1.Button1Click(Sender: TObject);

var C,D,E,F,G,H,I,Hasil : integer;

begin

if checkbox1.Checked = true then C:=4 else C:=0;

if checkbox2.Checked = true then D:=16 else D:=0;

if checkbox3.Checked = true then E:=32 else E:=0;

if checkbox4.Checked = true then F:=64 else F:=0;

if checkbox5.Checked = true then G:=128 else G:=0;

if checkbox6.Checked = true then H:=256 else H:=0;

if checkbox7.Checked = true then I:=512 else I:=0;

Hasil:= C+D+E+F+G+H+I;

reg:=tregistry.Create;

reg.RootKey:=HKEY_CURRENT_USER;

reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\’,false);

reg.WriteInteger(‘NoViewOnDrive’,Hasil);

reg.Free;

restart();

end;

procedure TForm1.Label2Click(Sender: TObject);

begin

reg:=tregistry.Create;

reg.RootKey:=HKEY_CURRENT_USER;

reg.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\’,false);

reg.DeleteValue(‘NoViewOnDrive’);

reg.Free;

restart();

end;

procedure TForm1.About1Click(Sender: TObject);

begin

messagedlg(‘Program Made by Yasir (massimmoto.wordpress.com)’,mtinformation,[mbok],0);

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

application.Terminate;

end;

jangan lupa nambahin uses registry

kalo mau downlod sourcenya nih …. block-drive

semoga bermanfaat amiiiiiinn