2013 年 1月 8 日随笔档案 - 绝对清凉

2013年1月8日

摘要： //声明:GetWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项}): HWND; {失败返回0; 成功返回符合的窗口句柄}//uCmd 可选值:GW_HWNDFIRST = 0; {同级别第一个}GW_HWNDLAST = 1; {同级别最后一个}GW_HWNDNEXT = 2; {同级别下一个}GW_HWNDPREV = 3; {同级别上一个}GW_OWNER = 4; {属主窗口}GW_CHILD = 5; {子窗口}{要有个 Memo 接受数据}procedure TForm1.Button1Cli... 阅读全文

posted @ 2013-01-08 16:18 绝对清凉阅读(204) 评论(0) 推荐(0) 编辑

鼠标移过获取控件句柄、类名、坐标

摘要： procedure TForm1.Timer1Timer(Sender: TObject);var H:HWND; arr:array[0..254] of char; Rt:TRect; pt:TPoint; ca:TCanvas;begin ca:=TCanvas.Create ; ca.Handle :=GetDc(0); if GetCursorPos(pt) then begin //将鼠标位置写入pt label1.Caption :='鼠标位置：'+inttostr(pt.x)+','+inttostr(pt.y); h:=WindowFrom.. 阅读全文

posted @ 2013-01-08 16:11 绝对清凉阅读(357) 评论(0) 推荐(0) 编辑