如何让自己的程序不能关闭(只能按关闭按钮才能关闭)(100分)

qfgj · 2004-02-24

如何让自己的程序不能在任务管理器里面关闭,也不能在进程里面结束

dazzling · 2004-02-24

那不是成精了？!

kl78pgy · 2004-02-24

提升程序级别，但是没有不被关闭的，只是可以用另一程序监控而已[

]

zxdcj · 2004-02-25

这样可以有一定的效果（close、ALT+F4失效） unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   ac:TCloseAction; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   ac:=cafree;   close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   action:=ac; end; procedure TForm1.FormCreate(Sender: TObject); begin   ac:=caNone; end; end.

let_it_be · 2004-02-25

把自己的程序隐藏，不在任务管理器中出现，不就可以了吗？

let_it_be · 2004-02-25

program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Windows; {$R *.RES} var ExtendedStyle : Integer; begin Application.Initialize; //============================================================== ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW); //=============================================================== Application.CreateForm(TForm1, Form1); Application.Run; end. /////////////////////////////////////////////////////////////// procedure TForm1.FormCreate(sender:TObject); begin SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end; ///////////////////////////////////////////////////////// ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE,   GetWindowLong(Application.Handle, GWL_EXSTYLE)     or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

qfgj · 2004-02-25

to:let_it_be 这样做我试过了,只是任务栏不出现,但任务管理器里面还是有

feng_mingjie · 2004-02-27

implementation function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   RegisterServiceProcess(GetCurrentProcessID, 1); end;

feng_mingjie · 2004-02-27

还有一种方法 type   TRegisterServiceProcess = function (dwProcessID, dwType

Word) : DWORD; stdcall; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var   H :THandle;   RegisterServiceProcess: TRegisterServiceProcess; begin   H:=LoadLibrary('KERNEL32.DLL');   RegisterServiceProcess:=GetProcAddress(H, 'RegisterServiceProcess');   RegisterServiceProcess (GetCurrentProcessID, 1);   FreeLibrary(H); end;

刘麻子 · 2004-03-06

看看关闭消息是谁发送的？

yostgxf · 2004-03-06

不知zxdcj的方法是否可行，测试过吗？ 在主窗体中拦截Close消息试一试。仅供参考

zzjmail · 2004-03-06

除非你的程序不出现在进程窗口中

hotzhu · 2004-03-06

楼上的RegisterServiceProcess(GetCurrentProcessID, 1)应该可行，再就是在窗体的 close和closequery要定义。

crazyD · 2004-03-06

什么破程序啊？有这样的要求

刘麻子 · 2004-03-06

不如这样:在自己程序设一个全局变量close:=false;然后拦截自己的关闭消息, 如果close:=false,不关,自己要关的时候先close:=true;但是,如果别人模拟鼠标 点你的'叉叉',又怎么办?还有,如果是操作系统强行关的话,也没辙!  [

]

李张柏芝 · 2004-03-06

彻底的解决办法就是完全做成一个木马程序，完全的隐藏起来。

akalun · 2004-03-06

用RegisterServiceProcess(GetCurrentProcessID, 1)注册服务器进程 再把WM_CLOSE消息拦截掉 应该差不多了

刘麻子 · 2004-03-07

请看我做的一个程序(ajgz.rar)：http://liumazi.efile.com.cn/ 李张柏芝：请注意概念问题！隐藏不一定就是木马！隐藏是隐藏，木马是木马！ 我想，楼主要的是什么效果？是看起来正常的程序（和普通程序一样）无法关闭， 还是通过隐藏或其他方法导致用户用普通方法难以关闭？ 另外，RegisterServiceProcess在nt是无效的，根本没有这个函数。。。。

程胜 · 2004-03-06

想进程不备发现和杀掉，是不可能做到的。windows本身的进程都是可以被杀掉的。 下面的代码可以禁止掉一般的关闭，但是对杀进程一类的操作无效！ procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin     CanClose := false; end;

Coolcfan · 2004-03-07

... Private    procedure WMClose(var Msg:TWMClose);Message WM_CLOSE; ... procedure TForm1.WMClose(var Msg:TWMClose);Message WM_CLOSE; begin    MessageBeep(0); end; 我在XP的任务管理器里面试验，结果是任务管理器认为这个程序没有响应， 将其强行关闭，好像在TForm1.WMClose这里还要加一个语句返回一个值才行。

如何让自己的程序不能关闭(只能按关闭按钮才能关闭)(100分)

qfgj

Unregistered / Unconfirmed

dazzling

Unregistered / Unconfirmed

kl78pgy

Unregistered / Unconfirmed

zxdcj

Unregistered / Unconfirmed

let_it_be

Unregistered / Unconfirmed

let_it_be

Unregistered / Unconfirmed

qfgj

Unregistered / Unconfirmed

feng_mingjie

Unregistered / Unconfirmed

feng_mingjie

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

zzjmail

Unregistered / Unconfirmed

hotzhu

Unregistered / Unconfirmed

crazyD

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

李张柏芝

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

程胜

Unregistered / Unconfirmed

Coolcfan

Unregistered / Unconfirmed

Similar threads