Di Windows 9X, di bagian bawah layar adalah bilah tugas, yang dapat ditetapkan pengguna. Jika Anda mengklik kanan bilah tugas dan memilih properti, Anda dapat mengaturnya di kotak dialog pop-up, lalu cara mengontrol bilah tugas dalam program yang kami kumpulkan?
CATATAN: Gunakan fungsi API FindWindow dan SetWindowPos dalam program berikut untuk mengontrol persembunyian dan tampilan bilah tugas Windows dalam program.
Pertama, buat proyek baru, tempatkan tombol1 (properti Caption adalah bilah tugas tersembunyi) dan Button2 (properti Caption adalah bilah tugas tampilan) pada form1 default, dan properti lainnya tetap tidak berubah, dan kemudian masukkan kode program berikut:
unit startbar;
antarmuka
Menggunakan Windows, Pesan, Sysutils, Kelas, Grafik, Kontrol, Formulir, Dialog, STDCtrls;
ketik tform1 = class (tform)
Button1: tbutton;
Button2: tbutton;
Prosedur Button1Click (pengirim: Tobject);
Prosedur Button2Click (pengirim: Tobject);
Prosedur FormCreate (pengirim: Tobject);
Private {private Declarations}
Publik {Deklarasi Publik}
akhir;
Var Form1: TFORM1;
Implementasi {sr *.dfm}
Prosedur TFORM1.FORMCREATE (Pengirim: Tobject);
Mulai
Ret: = findWindow (′ shell_traywnd ′, ′);
akhir;
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
Mulai
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_hidewindow);
akhir;
Prosedur TFORM1.BUTTON2CLICK (Pengirim: Tobject);
Mulai
SetWindowPos (ret, 0, 0, 0, 0, 0, swp_showwindow);
akhir;
akhir.
Sekarang Anda dapat menjalankannya (tekan F9). Saat Anda menekan Button1, taskbar akan disembunyikan.
Catatan: Program di atas didebug dan disahkan dalam versi Cina dari Windows 98 dan Delphi4.0 C/S.