lose;

end;

end.

　　程序比较简单，我只想再说说透明窗体。使窗体透明的方法有好几种，其中一种是我用的这种，方法比较简单。还有一种是调用API函数SetLayeredWindowAttributes，它有4个参数，分别是hwnd、crKey、bAlpha和dwFlags。hwnd指操作的窗口的句柄，crKey是指定要透明的颜色值，是和第四个参数配合使用的（当第四个参数为LWA_COLORKEY），bAlpha是透明参数，当bAlpha为0时窗口全透明，当值为255时为正常的窗口。比如要Form1透明的话，相应的语句是SetLayeredWindowAttributes(form1.Handle, 0, 100, LWA_ALPHA)，不过这个API只能在Win2000下用，不支持Win98。

　　本程序在Delphi6.0＋Win2000下调试通过。