关于快捷键的问题？

[AeLord]

如何通过快捷键隐藏应用程序和将隐藏的程序显示出来？

[AeLord]

算了，我自己解决了。

[AeLord]

我指的是在切换到其他应用程序时也可以实现！

[jishiping]

RegisterHotKey 然后拦截消息WM_HOTKEY

[AeLord]

是啊，就是这样办到的。

[neelee]

to warton(不想再编程了！想独立！！！！！！！！！)
给我一份看看好吗？
[e-mail]
谢谢

[张灰太狼]

procedure TForm1.Hide1Click(Sender: TObject);
begin
if form1.WindowState=wsMinimized then
form1.WindowState:=wsNormal
else
begin
form1.WindowState:=wsMinimized;
form1.SetFocus ;
end;
end;

[warton]

registtoerhotkey,我这有源码！！

[jishiping]

class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall kj(TObject *Sender);
private: // User declarations
void __fastcall HotKeys(TMessage&);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_HOTKEY, TMessage, HotKeys)
END_MESSAGE_MAP(TForm)
};

const int ID_SHOW_HIDE=0; //这个ID，不是消息的ID，0 - 0xBFFF

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
RegisterHotKey(Handle,ID_SHOW_HIDE,MOD_CONTROL|MOD_ALT,VK_F12);
}

void __fastcall TForm1::HotKeys(TMessage& Msg)
{
//在消息WM_HOTKEY中，WParam为ID
if (Msg.WParam==ID_SHOW_HIDE)
Visible = !Visible;
}