象棋仙人指路开局破解:怎么把一个小的执行程序修改的可以用热键隐藏？

我用delphi作的：

unit lookpass;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, bsSkinCtrls, bsSkinBoxCtrls, StdCtrls, Mask;

type
TForm1 = class(TForm)
se1: TbsSkinEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
id: Integer;//热键表识id
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
//定义捕获Windows消息WM_HOTKEY的钩子函数
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
id:=globaladdatom('myhotkey');//为全局原子表添加一个原子
registerhotkey(handle,id,mod_control,vk_f12);
//定义ctrl＋f12为热键
end;
procedure tform1.WMHotKey(var msg:twmhotkey);
var
mousep:tpoint;
hd:hwnd;
hcsz:array[0..255] of char;
begin
if msg.HotKey=id then
begin
getcursorpos(mousep);//获取鼠标坐标
hd:=windowfrompoint(mousep);//获取鼠标定点窗口句柄
sendmessage(hd,wm_gettext,256,integer(@hcsz));
////WM_GETTEXT,应用程序发送此消息来复制对应窗口的文本到缓冲区
se1.Text:=hcsz;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
globalDeleteatom(id);
end;

end.