500分请教!!高手请进!关于WINDOWS消息及WIN API函数的问题?在线等待!急!!!!!!!

hcy8004 2002-05-11 08:31:38
500分请教!!高手请进!关于WINDOWS消息及WIN API函数的问题?在线等待!急!!!!!!!
我编写一个工具,在不同的程序下,都可以取得当前的颜色,我想当鼠标离开此程序时,在别的应用程序下当击键盘上的一个键或鼠标左键,就可以使得Timer1.Enabled:=false;怎样设置????如有那一位仁兄赐教,小弟不胜感激!!!!程序代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
var
vhdc:hdc;
fetchcolor:Tcolor;
begin
vhdc:=getdc(0);
try
fetchcolor:=getpixel(vhdc,mouse.cursorpos.x,mouse.cursorpos.y);
edit1.text:=inttostr(getRvalue(colortoRGB(fetchcolor)));
edit2.text:=inttostr(getGvalue(colortoRGB(fetchcolor)));
edit3.text:=inttostr(getBvalue(colortoRGB(fetchcolor)));
finally
releaseDc(0,vhdc);
end;
end;
...全文
29 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
huier22 2002-05-11
  • 打赏
  • 举报
回复
??????
chenjiong 2002-05-11
  • 打赏
  • 举报
回复
用键盘的HOOK吧,相关文章可以在老帖中找找。有十几帖。
BossHawk 2002-05-11
  • 打赏
  • 举报
回复
注册全局热键
Fanzhou 2002-05-11
  • 打赏
  • 举报
回复
前几天看到过相关文章,可惜当时没有太注意。等我再找到估计你也不需要了。不好意思。
Fanzhou 2002-05-11
  • 打赏
  • 举报
回复
好像是必须用API
netwei 2002-05-11
  • 打赏
  • 举报
回复
可以这样解决吧!在TForm1.Timer1Timer事件开始之前当前的Applocation是否是激活的,否则让自己为Falsh;
hcy8004 2002-05-11
  • 打赏
  • 举报
回复
能不能详细点,谢谢!
outer2000 2002-05-11
  • 打赏
  • 举报
回复
消息好象不可以吧,用键盘的HOOK吧

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧