我想做到这种效果,程序在后台运行,譬如只是在托盘区,然后我按个组合键就出来了,就像MYIE的老板键一样,请问最简单的方法应如何实现?我下载了一个CPkeymapHook的组件,倒是可以全局捕捉输入的字符了,但是对于这种组合键好像不行。请高手赐教!
解决方案 »
- 如何将MDIChild作为MDIForm的背景?
- 有没有 带复选框的treeView,或者怎么样才能让treeView带有复选框
- 关于fastreport问题,请教高手!!!!!!!!!!!!!!!!!!
- 作复杂报表,中国式报表用什么控件最好。下载地址?
- 菜鸟我学delphi 半个月后做的小软件,请高手指点!
- 前台在执行带参数的存储过程时出错,请帮我找出错误,谢谢!!
- 条形码生成:128码怎样生成?
- 求:如何在StatusBar上加进度条?
- 救急!!!IdTCPClient的readln问题,不能读全数据
- 请教各位,怎样通过函数名得到程序包中函数的函数指针?类似DLL的GetProcAddress()
- 俺想做一个WEB页面表单自动提交的程序,谁有思路?
- 这到底是怎么回事?
这个不行,自然有别的可以http://lysoft.7u7.net
注册一个hotkey不就可以了。
RegisterHotKey
小弟我初学Delphi!
谢谢了!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
aatom:atom;
procedure hotkey(var msg:tmessage);message wm_hotkey;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.hotkey(var msg:tmessage);
begin
if (msg.LParamHi=VK_F12) and (msg.LParamLo=MOD_ALT) then
showmessage('');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
aatom:=globaladdatom('hotkey');
RegisterHotKey(handle,aatom,MOD_ALT,vk_F12);
end;end.
为什么不管是前台还是后台都没有反应?
我的系统是2000
showmessage('');这两句设断点,晕过去,三句话都搞不定