Skip to main content

Menyembunyikan taskbar

Contoh program di bawah ini akan menunjukkan bagaimana cara untuk menyembunyikan taskbar melalui program yang dibuat dengan Delphi.
Untuk menyembunyikan dan menampilkan taskbar kita dapat menggunakan salah satu dari fungsi Windows API yaitu ShowWindow yang deklarasinya sebagai berikut :
function ShowWindow (hwnd : HWND; nCmdShow : integer) : Boolean;
Parameter pertama dari fungsi ShowWindow merupakan handle window yang akan ditampilkan atau disembunyikan. Parameter kedua adalah bagaimana window tersebut ditampilkan. Yang menjadi pertanyaan kita, darimana kita mendapatkan handle window dari taskbar ? Caranya adalah dengan memanggil fungsi FindWindow.
function FindWindow (lpClassName, lpWindowName : PChar) : HWND;
Parameter pertama merupakan nama kelas jendela (window class). Pada Delphi nama ini identik dengan nama kelas dari Form, misalnya TForm1, TForm2, dst. Parameter kedua adalah caption dari form (TForm.Caption).
Kembalian dari fungsi FindWindow adalah handle form yang dicari. Bila Windows tidak menemukan form yang dimaksud, FindWindow akan mengembalikan nilai 0.
Untuk mencari handle form dari taskbar :
FindWindow('Shell_TrayWnd',Nil);
Parameter pertama dari FindWindow diisi dengan Shell_TrayWnd yang merupakan window class dari taskbar. Sedangkan parameter kedua diisi dengan Nil yang menunjukkan bahwa form taskbar tidak mempunyai caption.
Kode selengkapnya untuk menyembunyikan taskbar adalah sbb :
procedure TForm1.Button1Click(Sender: TObject);
var
   hTaskBar :Thandle;
begin
     hTaskBar := FindWindow('Shell_TrayWnd',Nil);      ShowWindow(hTaskBar,Sw_Hide);
end;
Untuk menampilkan taskbar langkahnya sama dengan yang di atas. Yang berbeda hanya parameter kedua dari ShowWindow, yang semula SW_HIDE diganti dengan SW_NORMAL. Kode lengkapnya adalah sebagai berikut :
procedure TForm2.Button1Click(Sender: TObject);
var
   hTaskBar :Thandle;
begin
     hTaskBar := FindWindow('Shell_TrayWnd',Nil);      ShowWindow(hTaskBar,Sw_Normal);
end;

Popular posts from this blog

Instal Router menggunakan Mikrotik RouterOS

MikroTik RouterOS™ adalah sistem operasi dan yang dapat digunakan untuk menjadikan komputer manjadi router network yang handal, mencakup berbagai fitur lengkap untuk network dan wireless. Kemudian di extrack dan kemudian burn ke CD itu file ISO nya. 1. Install Mikrotik OS – Siapkan PC, minimal Pentium I juga gak papa RAM 64,HD 500M atau pake flash memory 64 – Di server / PC kudu ada minimal 2 ethernet, 1 ke arah luar dan 1 lagi ke Network local – Burn Source CD Mikrotik OS masukan ke CDROM – Boot dari CDROM – Ikuti petunjuk yang ada, gunakan syndrom next-next dan default – Install paket2 utama, lebih baiknya semua packet dengan cara menandainya (mark) – Setelah semua paket ditandai maka untuk menginstallnya tekan “I” – Lama Install normalnya ga sampe 15menit, kalo lebih berarti gagal, ulangi ke step awal – Setelah diinstall beres, PC restart akan muncul tampilan login 2. Setting dasar mikrotik Langkah awal dari semua langkah konfigurasi mikrotik adalah setting ip Hal ini bertujuan ag...
Read more

Membuat group pada laporan

Dengan menggunakan komponen TQRGroup Anda dapat mengelompokkan data berdasarkan kondisi tertentu. Misalnya Anda ingin mengelompokkan nama Company dari tabel Customter.db berdasarkan nama Company yang mempunyai huruf awal yang sama. Untuk itu Anda bisa mencoba contoh di bawah ini: Buat sebuah proyek baru dan tambahkan sebuah report. Tambahkan komponen TTable pada report. Ubah property DatabaseName menjadi DBDEMOS, TableName menjadi Customer dan IndexName menjadi ByCompany. Aktifkan tabel dengan mengatur property Active menjadi True. Tambahkan ...
Read more

Koneksi MySQL dengan Zeos di delphi

ZeosLib adalah sebuah komponen tambahan di delphi yang bisa menangani koneksi kebeberapa database seperti MySQL, SQLLite, Oracle. Namun saya disini hanya akan membahas Koneksi Zeos dengan MySQL tanpa melakukan setting pada Properti di Delphi seperti dibawah ini Untuk melakukan dengan Zeos pastikan Zeos sudah terinstal di Dephi anda, jika sudah terinstal akan tampil pada Pallet Komponen seperti dibawah ini Cara Membuat Koneksi Zeos dengan MySQL    1. Buka delphi anda dan tambahkan komponen ZConnection kedalam Form. seperti gambar dibawah ini 2. Ketikkan Code berikut : INIFiles dibawah USES 3. Setelah itu Double Klik pada Form dan ketikkan code berikut ini di   var settingdatabase : TIniFile; begin settingdatabase := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SettingDatabase.ini'); if (ZConnection.Connected) then    ZConnection.Disconnect;     ZConnection.HostName := settingdatabase.ReadString('koneksi','Hostname',''); //...
Read more