有点小意思的程序--可以利用
摘要:
procedure TForm1.chk1Click(Sender: TObject); var h: HWND; begin h := FindWindow('Progman', nil); {Progman 是桌面窗口的类名} if TCheckBox(Sender).Checked then ShowWindow(h, SW_HIDE) else ... 阅读全文
posted @ 2008-08-28 15:32 黑白程式 阅读(198) 评论(0) 推荐(0)
浙公网安备 33010602011771号