难题,高手请进,在线等待............(50分)

  • 主题发起人 主题发起人 quiben
  • 开始时间 开始时间
Q

quiben

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟现要程序具有下列功能,该怎么办????
1.程序一运行就是无窗口的应用程序,在后台运行.
2.按下Ctrl+E键,程序就退出.
我在TForm.CreateForm函数中使用ShowWindow(Application.Handle, SW_Hide)为什么不管用呢???
请各位给出答案,谢谢!!!!
 
第一个 要在dpr里面写那些代码,具体那些不用说啦,简单
第二个是注册热键。
请查找相关帮助。
 
1.改工程(.dpr)文件:
...
Application.CreateForm(TfrmMain, frmMain);
Application.ShowMainForm := false; //加这一句
Application.Run;
...
2.注册热键:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMHotKey(var Message: TMessage);
begin
//application.Restore;
//application.bringtofront;
//showmessage('CTRL-E pressed!');
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(form1.Handle,123,mod_control,ord('E'));
end;

end.

 
接受答案了.
 
后退
顶部