unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
type
TForm1 =
class
(TForm)
procedure
FormActivate(Sender: TObject);
procedure
FormDestroy(Sender: TObject);
private
procedure
WMHotKey(
var
Message: TMessage); message WM_HOTKEY;
end
;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure
Tform1
.
WMHotKey(
var
Message: TMessage);
begin
application
.
Restore;
application
.
bringtofront;
showmessage(
'Нажата CTRL-С!'
);
end
;
procedure
TForm1
.
FormActivate(Sender: TObject);
begin
RegisterHotKey(form1
.
Handle,
123
,mod_control,
$43
);
end
;
procedure
TForm1
.
FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle,
123
)
end
;
end
.