program menonaktifkan Fungsi USB pada Komputer

Program ini saya beri nama "Nz USB Save1.0" karena masih dalam tahap pengembangan.

halo kawan sekalian, kalau dilihat dari judulnya memang aneh ya? hee

biasanya orang kan mencari komputer ya harus ada USBnya kok malah dimatikan.. 

cuma ini kasusnya beda gays.. 

kebetulan saya mengelola Laboratorium Sekolah.

untuk antisipasi penyalah gunaan ketika ujian berbasis komputer. maka USB untuk Flasdisk perlu dilok. 

setelah brosing sana sini didapatkan kesimpulah bahwa fungsi USB bisa dinonaktifkan lewa Registry. caranya sebagai berikut :

1. Klik Start -->RUN --> ketik regedit --> klik OK
2. Di jendela Registry Editor masuk ke :HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR

3. Dobel klik dword Start(di sebelah kanan) ganti Value Data yang semula 3 menjadi 4 --> klik OK. --> tutup jendela registry editor
Sekarang fungsi USB disk sudah disable (untuk beberapa kasus, komputer harus restart ).

Untuk mengembalikan fungsi USB disk menjadi normal kembali ulangi langkah seperti di atas, pada langkah ketiga kembalikan ValueData dari 4 menjadi 3.

nah bagi sebagian orang, masuk registri merupakan hal yang membingungkan. nah DARI SITU AHIRNYA SAYA ISENG BUAT PROGRAM DENGAN DELPHI

1. pertama buat sebuah form baru

2. isi form tersebut dengan 2 button dan ganti captionya sesuai pada gambar

3. Pada uses di form utama silahkan tuliskan registry

4.pada chekbok (Aktifkan USB flashdis ) silahkan tuliskan sintax berikut

if CheckBox4.Checked=true then

    begin

    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','3');

    BitBtn3.Enabled:=false;

    //CheckBox4.Checked:=true;

    //CheckBox4Click(Sender);

    BitBtn2.Enabled:=true;

    Label14.Caption:='USB Aktif';

    end

    else

    begin

    regbuat(HKEY_LOCAL_MACHINE,'\SYSTEM\CurrentControlSet\services\USBSTOR','int','Start','4');

    BitBtn3.Enabled:=true;

    //CheckBox4.Checked:=false;

    //CheckBox4Click(Sender);

    BitBtn2.Enabled:=false;

    Label14.Caption:='USB Tidak Aktif';

    end;

ket :

regbuat adalah sebuah fungsi yang telah saya buat terlebih dahulu sebelunya

function regbuat(key:HKEY;rot,status,nama,nilai:string):string;

begin

reg:=TRegistry.Create;

reg.RootKey:=key;

reg.OpenKey(rot,true);

if status='str' then

    begin

    reg.WriteString(nama,nilai);

    end

    else

if status='bol' then

    begin

    reg.WriteBool(nama,strtobool(nilai));

    end

    else

if status='int' then

    begin

    reg.WriteInteger(nama,StrToInt(nilai));

    end

    else

if status='date' then

    begin

    reg.WriteDate(nama,StrToDate(nilai));

    end;

if status='cur' then

    begin

    reg.WriteCurrency(nama,StrToCurr(nilai));

    end;

if status='float' then

    begin

    reg.WriteFloat(nama,StrToFloat(nilai));

    end;

reg.CloseKey;

reg.Free;

end;

5. pada button "matikan USB" tuliskan perintah berikut ini

BitBtn3.Enabled:=true;

CheckBox4.Checked:=false;

CheckBox4Click(Sender);

BitBtn2.Enabled:=false;

Label14.Caption:='USB Tidak Aktif';

dan pada button "hidupkan USB"  sebaliknya 

BitBtn3.Enabled:=false;

CheckBox4.Checked:=true;

CheckBox4Click(Sender);

BitBtn2.Enabled:=true;

Label14.Caption:='USB Aktif';

6. terhir tinggal compile dah , heee

ok kawan dari pada pusing, ini langsung saya bagikan aplikasinya
silahkan klik link download dibawah ini

Download Nz USB save V1.0

untuk sorce codenya bisa klik link dibawah ini

Download Nz USB Save V1.0 + Source Code