Trik Menyembunyikan taskbar Menggunakan Borlean Delphi

Posted: 29 Maret 2011 in Pemerograman, Softwere, teknologi, Tips & trik, Tutorial
Tag:, , ,

    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 enemukan 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(Sendr: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 HowWindow, yang semula SW_HIDE diganti dengan SW_NORMAL. Kode lengkapnya adalah sebagai berikut :

procedure TForm2.Button1Click(Sender:TObject);
var
hTaskBar :handle;
begin
hTaskBar := FindWindow('Shell_TrayWnd',Nil);ShowWindow(hTaskBar,Sw_Normal);
end;

Semoga bermanfaat.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s