RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

delphi spy++ 拖拽功能

作者:admin 来源: 日期:2018/1/2 15:23:31 人气: 标签:

{$R *.dfm} 
var  h: HWND; 
     pt,p1: TPoint; 
     arr,arr1: array[0..254] of Char; 
     h1: HCURSOR; 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  Timer1.Enabled:=True; 
  Image1.Picture.LoadFromFile('02.bmp'); 
 // h1:=LoadCursorFromFile('031.ico');  //031.ico 
 // SetSystemCursor(h1,ocr_normal); 
  Screen.Cursor:=crCross; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
var  p1:TPoint; 
begin 
    GetCursorPos(p1); 
    h :=WindowFromPoint(p1); 
    label1.Caption:=Format('%d,%d',[p1.X,p1.Y]); 
end; 

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  Screen.Cursor:=crDefault; 
 Timer1.Enabled:=False; 
 Label1.Caption:=''; 
  Image1.Picture.LoadFromFile('01.bmp'); 
 // SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE); 
  Screen.Cursor:=crDefault; 
  GetClassName(h, arr, Length(arr)); 
  GetWindowText(h, @arr1, SizeOf(arr)); 
  Edit2.Text := arr; 
  Edit1.Text:=arr1; 
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料