隐藏任务栏
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
void __fastcall TForm1::Button1Click(TObject *Sender) { HWND WndHandle; // 获取任务栏的窗口句柄 WndHandle = FindWindow("Shell_TrayWnd", NULL); ShowWindow(WndHandle, SW_SHOW); // 显示任务栏 } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { HWND WndHandle; WndHandle = FindWindow("Shell_TrayWnd", NULL); ShowWindow(WndHandle, SW_HIDE); // 隐藏任务栏 } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { SetWindowLong(Application->Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); } |