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.

Hilangkan Tombol Start !!!

Anda dapat menghilangkan tombol start pada taskbar. Langsung saja ini caranya :

1. Desain form seperti ini

2. Kemudian Klik ganda pada Button “Tampil”, kemudian isikan kode berikut :
if MessageDlg('Apakah tombol start akan ditampilkan ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then<br /> begin<br /> ShowWindow(GetWindow(FindWindow('Shell_traywnd', NiL), 5), 9);<br /> end;

3. Lalu klik ganda pada Button “Hilang”, kemudian isikan kode berikut :
if MessageDlg('Apakah tombol start akan dihilangkan ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then<br /> begin<br /> ShowWindow(GetWindow(FindWindow('Shell_traywnd', NiL), 5), 0);<br />

4. Klik ganda pad Button “Keluar”, lalu isikan kode berikut :
MessageDlg('Terima kasih atas partisipasinya, by www.remajateknologi.co.cc.', mtInformation, [mbOk], 0);<br /> application.Terminate;<br />

Saya mohon cara ini jangan disalahgunakan. Terima kasih atas partisipasinya. Salam ilmu pengetahuan.

Mengetahui sudah berapa lama Windows dijalankan

Dalam program Anda mungkin Anda ingin mengetahui sudah berapa lama Windows dijalankan pada saat itu. Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.





function UpTime: string;
const
ticksperday : integer = 1000 * 60 * 60 * 24;
ticksperhour : integer = 1000 * 60 * 60;
ticksperminute : integer = 1000 * 60;
tickspersecond : integer = 1000;
var
t : longword;
d, h, m, s : integer;
begin
t := GetTickCount;
d := t div ticksperday;
dec(t, d * ticksperday);
h := t div ticksperhour;
dec(t, h * ticksperhour);
m := t div ticksperminute;
dec(t, m * ticksperminute);
s := t div tickspersecond;
Result := 'Uptime: '+IntToStr(d)+ ' Hari '+IntToStr(h)+' Jam '+IntToStr(m)+' Menit '+IntToStr(s)+' Detik';
end;
Sedangkan contoh penggunaannya adalah sebagai berikut:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=UpTime;
end;

Membuat Menu Aplikasi di Delphi

Menanggapi respon dari mas rohman, yang ingin membuat menu utama pada aplikasinya. Monggo ikuti langkah-langkah berikut untuk membuat menu seperti contoh diatas.

1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.
3. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
4. Mulai membuat menupada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.

Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan “Document“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Document, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain.
Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.
Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Dokument Kosong. Demikianjuga untuk membuat menu-menu.
Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.

5. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Document -> Buka.
   pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

Form2.Show;

atau bisa juga

Form2.ShowModal.

Apa perbedaan antara kedua kodenya?
Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).

6. Simpan kembali project anda.
7. Run / F9 untuk eksekusi.ketika run akan ada pesan berikut

Pilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya