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 :D
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 :D
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar