磁性窗体(100分)

请问如何制作磁性窗体，就象MP3播放器WINAMP一样

去www.delphibbs.net
上面有篇文章就叫磁性窗体

http://mantousoft.51.net/delphi_work/work_tmagnetic.php
有源代码和说明.
也可以察看贴子
http://www.delphibbs.com/delphibbs/dispq.asp?lid=488967

关键部分：
var
WinampRect:Trect;
hwnd_Winamp:HWND;
e;
const
MagneticForce:integer=50;
//"磁力"的大小。
implementation
{$R *.DFM}
procedure TMForm.FormCreate(Sender: TObject);
const
ClassName='Winamp v1.x';//应需要而更改
begin
hwnd_Winamp := FindWindow(ClassName,nil);
if hwnd_Winamp>0 then
GetWindowRect(hwnd_Winamp, WinampRect);//[red]把窗口的位置大小给取出来[/red]
//[red]赋值给WinampRect长方形结构[/red]
……

多人接受答案了。