Indeks
Latest images
Pencarian
Pendaftaran
LoginPort USB Lock (Mengunci USB)
Halaman 1 dari 1
Port USB Lock (Mengunci USB)
Admin Sun Mar 27, 2011 4:22 pm
Ambil 2 buah komponen button
1. Button 1 kita beri nama Kunci, klik 2 kali isikan script berikut
2. Button 2 kita beri nama aktifkan, klik 2 kali button kemudian isikan script berikut
Compile Scriptnya, Trus klik button kunci. terus coba colokin flashdisknya. bisa apa tidak ?
buktikan sendiri
1. Button 1 kita beri nama Kunci, klik 2 kali isikan script berikut
- Spoiler:
- procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\SYSTEM\CurrentControlSet\Services\US BSTOR\',true);
reg.WriteInteger('start',4);
reg.CloseKey;
finally
reg.Free;
Application.MessageBox('PORT USB DI NON AKTIFKAN','SUKSES',MB_ICONINFORMATION + MB_OK);
//apShowMessage('PORT USB DI NON AKTIFKAN');
end;
end;
2. Button 2 kita beri nama aktifkan, klik 2 kali button kemudian isikan script berikut
- Spoiler:
- procedure TForm1.Button2Click(Sender: TObject);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('\SYSTEM\CurrentControlSet\Services\US BSTOR\',true);
reg.WriteInteger('start',3);
reg.CloseKey;
finally
reg.Free;
Application.MessageBox('PORT USB DI AKTIFKAN','SUKSES',MB_ICONINFORMATION + MB_OK);
//ShowMessage('PORT USB DI AKTIFKAN');
end;
end;
end.
Compile Scriptnya, Trus klik button kunci. terus coba colokin flashdisknya. bisa apa tidak ?
buktikan sendiri
Admin- Admin
- Jumlah posting : 49
Join date : 26.03.11
Age : 31
Lokasi : Makassar -
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik|
|
|