UC知道Delphi7 高手请进!
来源：百度知道 编辑：UC知道 时间：2024/06/20 02:05:15
jxsbb朋友，这个程序的要求是不论在什么状态下都起作用，比如在游戏中的时候按F1也能删除123.exe，这个123.exe是该游戏即时产生的，很多时候都不用着，切换出来删的话很麻烦，所以我想做这样一个程序，按一下F1就自动删了，这样的程序算是勾子吗？麻烦了!
这个问题你没有说清楚：一、你是在你做的程序界面运行时创建一个热键？二、还是做一个钩子进程，无论什么情况下点f1键都能起做用？
问题一：这个容易！（只是一个简单的例子，还有其他实现的方法，此例子非热键的例子）
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s:string;
begin
s:='C:\Documents and Settings\Administrator\My Documents\123文件夹\';
if key = 112 then//如果按下F1键，就执行
begin
if fileexists(s+'123.exe') then//判断是否存在文件123.exe，如果存在，删！
deletefile(s+'123.exe')
else
exit;
end;
end;
问题二：有难度！
涉及到api挂钩和dll的知识！既然是delphi新手，还是一步一步来以，先学基础吧。
按你所说，其实可以这样做，你可以做一个系统托盘程序，然后定义一个热键（最好不是f1，因为很多程序的帮助文件都以用f1为热键），然后在你运行其他程序时，将你的程序最小化到任务栏，这样热键就能起做用了。下面是一个定义热键的例子，没有最小化到托盘，不过在界面最小化到任务栏时，热键仍可以响应命令：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Se