我已经实现了:<br>先把formstyle设为stay on top<br>unit awp;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, ExtCtrls, StdCtrls;<br>const<br>WM_SNAPHOTKEY=WM_USER + 101;<br>type<br> TForm1 = class(TForm)<br> Image1: TImage;<br> procedure FormShow(Sender: TObject);<br> private<br> procedure ONHotkey(var message:Tmessage);message WM_HOTKEY;<br><br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br>procedure TForm1.ONHotkey(var message:Tmessage);<br>begin<br>if (message.WParam=WM_SNAPHOTKEY) then<br>form1.show;<br>end;<br>procedure TForm1.FormShow(Sender: TObject);<br>begin<br>RegisterHotKey(Handle,WM_SNAPHOTKEY,0,VK_F8 );<br>end;<br><br>end.