怎样使系统能正常退出(50分)

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #1

我写了一个后台隐藏常驻程序,但运行后windows的注销.关闭.重启都失效了,怎样使系统能正常退出?(要源程序)
.

 

F

Fudei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #2

在代码中加入
ExitWindowsEx(EWX_REBoot,0); 重新启动计算机
或
EWX_SHUTDOWN 关闭计算机
或
EWX_LOGOFF 重新启动计算机并切换到MS-DOS方式

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #3

对不起,你误解了.我的意思是:程序能接收到系统退出的信息后把自己关掉,
使windows能正常退出.

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #4

响应这个消息WM_QUERYENDSESSION（windows关机的消息）

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #5

对不起,我的API很差,请给我源程序

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #6

你是否用了delphi自己带来的 tcp 控件？（比如 TNMHttp TNMFtp TNMxxxx 之类的）
如果用了，那是控件的问题，你要换个控件了，比如 ics：http://www.rtfm.be/fpiette/indexuk.htm

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #7

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure winexit(var msg:Tmessage);message WM_QUERYENDSESSION;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.winexit(var msg: Tmessage);
begin
// quit your program here such as unregister your process
//then
msg.Result:=true;
end;

end.

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #8

我用了一个TNMUDP控件,但我到您说的网址却找不到控件,能不能给我发一份?
lovejingtao@21cn.com 谢谢!!!急急急!

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #9

你是不是在写黑客程序啊，小心点啊

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #10

我是写一个在局部网内发送信息的程序

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-10

• #11

ICS 是全免费软件，带源码，只是帮助文件不行.

http://sme.belgium.eu.net/~vip107/ics.zip

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-10

• #12

hubdog,您那个程序我运行不了,提示 msg.Result:=true;[Error]
Unit1.pas(28): Incompatible types: 'Integer' and 'Boolean'

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-10

• #13

sorry
msg.result:=1;

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-11

• #14

应为 msg.Result:=1;
application.ProcessMessages;
application.Terminate;
接受答案了

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #15

接受答案了

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-22

• #16

多人接受答案了。