就是可以用鼠标操作，可以不用键盘。

要那样做，就别用pascal 了。虽然是可以实现鼠标操作的，但建议用VB或VC++。如果真要用pascal ,那么去网上找资料自学吧。

orz 还没有大神来解答么 >.<

http://baike.baidu.com/link?url=uhsBhkpVb49qg9pjRqHG2qS3t4N80A_rjDYouQwtX9hIJRmTpz87Ur7vUS4MzGsz

用delphi吧

Uses
{$ifdef Win32}
WinCrt,Windows,
{$else}
Crt,
{$endif}
Dos,Graph,;
{$ifdef Win32Graph}
WinMouse,
{$undef MouseApi}
{$else}
{$IFDEF MouseAPI}
Mouse,
{$ELSE}
MSMouse,
{$ENDIF}
{$endif}

源码？

楼主在么？
uses winmouse;
var
...
x,y,but:longint;
...
begin
...
getmousestate(x,y,but);
...
end.
{用过getmousestate(x,y,but);这句以后，x,y变量的值就分别变成了鼠标在屏幕中的x,y位置}
{用过getmousestate(x,y,but);这句以后，but变量的值就变成了鼠标的点击信息，1=左键单击，2=右键单击，4=中间键单击……}
纯手打，如有不对请指出。
注意要uses winmouse;
如要源代码示例请回复。