会员生日提醒，类似杀毒软件毒库升级提醒那样？(200分)

会员生日提醒，类似杀毒软件提醒有几个病毒库需要升级那样，在电脑右下角弹出一个窗休！然后点击这个窗体弹出具体的界面！如果不点击10秒后自动关闭提醒窗体！

你去看看我的笔记，希望对你有帮助。<br>http://www.delphibbs.com/keylife/images/u275979/QQMsg.rar

szhcracker 能不能把 QQMsg.dll接口类型和参数类型写出来下。。。

笔记里不都有吗？

szhcracker：QQMsg.dll，没有说明，没有源码，能分享一下源码吗，谢谢！

急，请大侠帮帮忙！

1.计算任务栏边上的坐标，适合任务栏在屏幕的上、下、左、右边上的4种情况；<br>function TForm1.CaleFormRect: TRect;<br>var<br>&nbsp; hWnd: THandle;<br>begin<br>&nbsp; hWnd := FindWindow('Shell_TrayWnd', nil);<br>&nbsp; hWnd := GetParent(FindWindowEx(hWnd, 0, 'ReBarWindow32', nil));<br>&nbsp; GetWindowRect(hWnd,Result);<br><br>&nbsp; if Result.Top &gt; 0 then begin //下<br>&nbsp; &nbsp; Result.Left := Screen.Width - Width;<br>&nbsp; &nbsp; Dec(Result.Top,Height);<br>&nbsp; end<br>&nbsp; else begin<br>&nbsp; &nbsp; if Result.Left &gt; 0 then begin //右<br>&nbsp; &nbsp; &nbsp; Dec(Result.Left,Width);<br>&nbsp; &nbsp; &nbsp; Result.Top := Screen.Height - Height;<br>&nbsp; &nbsp; end<br>&nbsp; &nbsp; else begin<br>&nbsp; &nbsp; &nbsp; if Result.BottomRight.Y = Screen.Height then begin &nbsp;//左<br>&nbsp; &nbsp; &nbsp; &nbsp; Result.Left := Result.Right;<br>&nbsp; &nbsp; &nbsp; &nbsp; Result.Top := Screen.Height - Height;<br>&nbsp; &nbsp; &nbsp; end<br>&nbsp; &nbsp; &nbsp; else begin &nbsp; &nbsp; &nbsp; &nbsp;//上<br>&nbsp; &nbsp; &nbsp; &nbsp; Result.Left := Screen.Width - Width;<br>&nbsp; &nbsp; &nbsp; &nbsp; Result.Top := Result.Bottom;<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; end;<br>&nbsp; end;<br>end;<br><br>2.设置窗体位置为任务栏边上位置；<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br>&nbsp; s: TRect;<br>begin<br>&nbsp; s := CaleFormRect;<br>&nbsp; SetBounds(s.Left,s.Top,Width,Height);<br>end;<br><br>3.实现动画显示的效果；<br>用 API <br>function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall;<br>其中：<br>　　　hWnd只对Form有效，其他像Picture1都无法产生效果。<br>　　　dwTime是动画持续的时间，默认为200。<br>　　　dwFlags可取以下值：<br>　　　　　AW_HOR_POSITIVE //从左到右打开窗口<br>　　　　　AW_HOR_NEGATIVE //从右到左打开窗口<br>　　　　　AW_VER_POSITIVE //从上到下打开窗口<br>　　　　　AW_VER_NEGATIVE //从下到上打开窗口<br>　　　　　AW_CENTER 　　　//看不出任何效果<br>　　　　　AW_HIDE 　　　　//在窗体卸载时若想使用本函数就得加上此常量 <br>　　　　　AW_ACTIVATE 　　//在窗体通过本函数打开后，默认情况下会失去焦点，除非加上本常量 <br>　　　　　AW_SLIDE 　　　 //看不出任何效果<br>　　　　　AW_BLEND 　　　 //淡入淡出效果<br><br>例如淡入淡出效果：<br>AnimateWindow(Handle,500,AW_BLEND); &nbsp;//效果持续时间为 500 毫秒

至于“点击这个窗体弹出具体的界面”的效果，只要自己设置窗体 OnClick 事件，或者放个按钮给用户点击，又或者用第三方组件来实现网页链接点击的效果。

请参考 cnPack组件包中的FoxMail相关单元，可以直接拿来用，我写过。

liyinwei:你好，我要实现的功能是这样的，早上9点提示今天的生日会员，看到后点击提醒跳出所有生日会员的资料，以后就不用再提醒，如果还有看到的话，每隔20分钟再提醒一次！在主界面（MainForm)如何写代码才能弹出提示框(Form1)！能不能帮我写详细一些发我EAMIL，谢谢您！我的EMAIL：dawooczr@163.com！

简单的 Demo 已经发出。

搜一下 MsnPopup，挺好用的，我用的就是这个。

MsnPopup这个控件不错