unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> procedure FormCreate(Sender: TObject);<br> private<br> { Private declarations }<br> procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.WMHotKey(var Message: TMessage); <br>begin <br> application.Restore; <br> application.bringtofront; <br> WinExec('notepad.exe',SW_SHOW);<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> RegisterHotKey(form1.Handle,123,mod_control,ord('D'));<br>end;<br><br>end.