Delphi7 高手请进!
答案:2 悬赏:30 手机版
解决时间 2021-06-07 09:56
- 提问者网友：人生佛魔见
- 2021-06-06 12:37
请问Delphi高手，如何用Delphi实现删除指定的文件，比如按一下F1则程序自动删除路径位于：我的文档/123文件夹/123.exe 请问这个过程如何实现，给段简单的代码，谢谢了!满意的话再追加100分。 jxsbb朋友，这个程序的要求是不论在什么状态下都起作用，比如在游戏中的时候按F1也能删除123.exe，这个123.exe是该游戏即时产生的，很多时候都不用着，切换出来删的话很麻烦，所以我想做这样一个程序，按一下F1就自动删了，这样的程序算是勾子吗？麻烦了
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-06-06 12:50
注册全局热键可以实现
全部回答
- 1楼网友：持酒劝斜阳
- 2021-06-06 13:41
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure WMHotKey(var Msg:TMessage); message WM_HOTKEY;//接收全局热键消息
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ApplicationLogo:Integer;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Msg:TMessage); //处理全局热键消息
begin
DeleteFile('C:\0.txt'); //改成自己想要的路径
showmessage('');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('MyHotKeyF1')<>0 then
begin
MessageBox(Handle,'程序的另一个实例正在运行。','Error',MB_IconError);
Halt; //强制终止
end
else
begin
ApplicationLogo:=GlobalAddAtom('MyHotKeyF1');
end;
//很多软件都用F1作为帮助的热键，建议换其他的热键
if NOT RegisterHotKey(Handle,ApplicationLogo,0,112) then
MessageBox(Handle,'热键注册失败','Error',MB_IconError);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,ApplicationLogo);
GlobalDeleteAtom(ApplicationLogo);
end;
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯