防止用DeDe软件反编译delphi程序 
2004年6月21日  作者：佚名  源码仓库-delphi源码下载基地      关键字: dede,反编译   本文已被浏览  35  次 
 
type 
TForm1 = class(TForm) 
procedure FormCreate(Sender: TObject); 
procedure FormDestroy(Sender: TObject); 
protected 
procedure hotykey(var msg:TMessage); message WM_HOTKEY; 
end; 

var 
Form1: TForm1; 
id,id2:Integer; 

implementation 

{$R *.DFM} 


procedure TForm1.hotykey(var msg:TMessage); 
begin 
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then 
begin 
ShowMessage('Ctrl + Q '); 
end; 

if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then 
begin 
ShowMessage('Ctrl + R '); 
end; 
end; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
id:=GlobalAddAtom('hotkey'); 
RegisterHotKey(handle,id,mod_control,81); 

id2:=GlobalAddAtom('hotkey2'); 
RegisterHotKey(handle,id2,mod_control,82); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
UnRegisterHotKey(handle,id); 
UnRegisterHotKey(handle,id2); 
end;