Drive Hide

Dari namanya pasti anda sudah tahu fungsi dari program yang akan kita buat. Ya, program ini dibuat untuk mennyembunyikan/menghilangkan sementara drive. Ini hanya untuk pengetahuan, penyalahgunaan dari program ini bukan tanggung jawab penulis. Mohon digunakan dengan bijak, ok !

To the point, siapkan :
- Kopi biar gak ngantuk
- Musik biar tambah asyik
- Pengetahuan sedikit tentang Delphi
- Dan program delphinya

Desain Program
- Langkah pertama, desain form seperti ini


- Tambahkan Registry pada USES



- Double Klik pada Button Hide, lalu copy or ketik kode di bawah ini,

//tambahan, hapus begin.
var
A, B, C, D, E : Integer;
fBuffer : Byte;
MyRegistry : TRegistry;
begin
A:=1;
B:=2;
C:=4;
D:=8;
E:=16;
//Hilangkan Drive A : fBuffer:=A
//Hilangkan Drive A,B,C,D,E : fBuffer:=A+B+C+D+E
//Tampilkan Drive: fBuffer:=0
fBuffer:=C; // drive yang akan dihilangkan
MyRegistry:=TRegistry.Create;
MyRegistry.RootKey:=HKEY_CURRENT_USER;
MyRegistry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True);
MyRegistry.WriteBinaryData('NoDrives',fBuffer,1);
MyRegistry.CloseKey;
MyRegistry.Free;
//Kreasi anak bangsa, www.dhe-code.co.cc
end;




- Lalu Double klik pada button show, copas code berikut :
//tambahan, hapus begin.
var
A, B, C, D, E : Integer;
fBuffer : Byte;
MyRegistry : TRegistry;
begin
A:=1;
B:=2;
C:=4;
D:=8;
E:=16;
//Hilangkan Drive A : fBuffer:=A
//Hilangkan Drive A,B,C,D,E : fBuffer:=A+B+C+D+E
//Tampilkan Drive: fBuffer:=0
fBuffer:=C; //drive yang akan dihilangkan
MyRegistry:=TRegistry.Create;
MyRegistry.RootKey:=HKEY_CURRENT_USER;
MyRegistry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',True);
MyRegistry.WriteBinaryData('NoDrives',fBuffer,1);
MyRegistry.CloseKey;
MyRegistry.Free;
//Kreasi anak bangsa, www.dhe-code.co.cc
end;



- Jalankan Program, klik tombol hide. Kemudian restart atau loggof computer anda. Masuk ke explorer dan lihat perubahan yang terjadi.

Thanks to read this entry.
Anda mengalami kesulitan, klik disini untuk Download Source codenya.