线程和API(200分)

各位高手：
本人现在遇到两个问题，望赐教：
1.如何对只知道句柄的窗体进行Font属性设置？
2.我想在我的程序中实现:当用户在一定时间范围内无键盘或是鼠标操作时就让系统自动
关闭当前窗口,请问用线程如何实现(我写了一段程序,但是必须有键盘或是鼠标活动才会关闭
当前窗体)?

1. font并不属于windows窗体的属性(Delphi的Font属性是Delphi Form独有的), 如果你想
设置的窗体是在同一个application中(并且也是用Delphi开发的), 还是有办法做到的:
TCustomForm(FindControl(你的HWND)).Font := ....
2. 看不出有必要用线程, 用个timer足够了. 而且OnTimer里只要一句Close就够了, 另外写
Application.OnMessage事件, 判断是否鼠标或键盘消息:
(Msg.Message＞=WM_KEYFIRST) and (Msg.Message＜=WM_KEYLAST) or ((Msg.Message＞=WM_MOUSEFIRST) and (Msg.Message＜=WM_MOUSELAST)),
如果是, 则重置Timer.Interval.

>>

请继续或结束

请继续或结束