Drive Hide

a | 15.04 |
بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

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.


sumber : www.dhe-code.co.cc


Blog, Updated at: 15.04
Comments
4 Comments

4 komentar :

  1. Wah keren jg,, Nice post, lanjutkan kreasimu!!!

    BalasHapus
  2. saya suka artikel Anda sangat banyak

    BalasHapus
  3. Fantastic tip. I don’t know how I came across your site but it was worth to read that. Thanks again.

    BalasHapus

1. No Spam
2. Terima Kasih sudah berkunjung

Klik, Untuk Lebih Tau Tentang Baturaja

Entri Populer

✮✮✯ R E L A S I

Ogan Komering Ulu AMIK AKMI Baturaja
Back To Top