如何在屏幕中间画一个十字架，要求交叉点在正中间(50分)

要求可以在不同的显示器上面移植。
我想显示在一个游戏的中间，不知道可以不可以实现？

procedure TForm1.Button1Click(Sender: TObject);
var
dc:HDC;
WH:HWND;
begin
WH:=GetForeGroundWindow;
dc:=GetWindowDC(WH);
MoveToEx(dc,Screen.Width div 2,0,nil);
LineTo(dc,Screen.Width div 2,Screen.Height);
MoveToEx(dc,0,Screen.Height div 2,nil);
LineTo(dc,Screen.Width,Screen.Height div 2);
ReleaseDC(WH,dc);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1Click(nil);
end;

windows2k+Delphi7下通过，游戏中应该可以吧。

老哥，我现在在我女朋友家，她家的电脑上面没有DELPHI。是否，请老哥，帮个忙。把程序编译一下？
发到yali126@21cn.com

感谢！

祝春节快乐！源代码基本懂些了。

GetWINDOWdC(0);
得到桌面的DC， 然后就华吧，是不是CS啊，阻击枪的瞄准镜，呵呵，我自己作过一个的
，可惜，现在在网吧

已发，请查收。这家伙总是写在你激活的窗体上。
你女朋友好服气^_^....[]

多人接受答案了。