Question

怎么用DELPHI实现程序隐藏后用快捷键显示

我想将程序上设置一个按钮，点击后程序隐藏，当按下ctrl+r的时候，程序弹出来。delphi怎么实现，有高手能给个代码吗？

Answer 1

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
代码 Unit1.pas
-----------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
vi: Integer;
procedure mor(var m: Tmessage); message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
vi := GlobalAddAtom('vihandl') ;
RegisterHotKey(Handle, vi, MOD_CONTROL,82);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(handle, vi);
end;

procedure TForm1.mor(var m: Tmessage);
var
h:HWND;
begin
if (m.LParamLo=MOD_CONTROL) and (m.LParamHi=82) then
show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Hide;
end;

end.

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
窗体：Unit1.dfm
-----------------------------------------------------------------
object Form1: TForm1
Left = 192
Top = 160
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 296
Top = 224
Width = 75
Height = 25
Caption = 'Hide'
TabOrder = 0
OnClick = Button1Click
end
end

追问

谢谢，您给的很详细，要是能给下面部分begin后面的语句给个注释会更好，麻烦您了，
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
vi := GlobalAddAtom('vihandl') ;
RegisterHotKey(Handle, vi, MOD_CONTROL,82);

if (m.LParamLo=MOD_CONTROL) and (m.LParamHi=82) then
show;

追答

//在任务栏不显示图标的API命令，
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

//如一楼的朋友所说，这是注册系统热键元子
vi := GlobalAddAtom('vihandl') ;
RegisterHotKey(Handle, vi, MOD_CONTROL,82); //把热键定义为Ctrl+R

//当按下热键后，就执行show命令来显示窗体
if (m.LParamLo=MOD_CONTROL) and (m.LParamHi=82) then
show;

懂了吗？

Answer 2

注册系统快捷键请查下这几个API函数.
RegisterHotKey
GlobalAddAtom
UnRegisterHotKey
或者百度找下Delphi 注册系统热键
很多例子的.一看就会!

Answer 3

你知道答案了吗？我也遇到了这个问题