关于如何控制启动的程序不被杀掉(200分)

windmill · 2000-01-14

我有一个自己编的监测程序,放在了95的启动菜单中 但是从开机到执行我的程序,中间有很长时间,往往 别人能够用ctrl+alt+del关掉进程,希望能编一个 控制键盘输入的小程序,防止程序被杀掉,在95启动时 就加载,并且不能被杀掉,望各位指教.

slfeng · 2000-01-14

将程式加入注册表 HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run 以前曾讨论过在ctrl+Alt+del中屏蔽某程式的方法,try...... 程式不提供关闭方法 比如说exit菜单,右上角的"叉"

o*o · 2000-01-14

RegisterServiceProcess（GetCurrentProcessID，1); ctrl+alt+del就看不到了。 将程式加入注册表 HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/                 CurrentVersion/RunService

xWolf · 2000-01-14

o*o: 我知道你所说的完全正确,但是我一直以来都没能Register成功过, 能否给个成功典范?

Liu JZX · 2000-01-14

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, shellapi;    function  RegisterServiceProcess(dwProcessID

WORD; dwType:dword):boolean;stdcall;external 'KERNEL32.dll' name           'RegisterServiceProcess'; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin   registerserviceprocess(0,1); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   REGISTERSERVICEPROCESS(0,0); end; end.

Fencer · 2000-01-14

可以在OnCreate函数中声明如下： procedure TForm1.FormCreate(sender:TObject); begin SetWindowLong(Application,Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end; 这样别人在任务栏中就看不到你的程序了，也就杀不掉它了。

xWolf · 2000-01-14

Thanks Liu JZX:   我知道我错在哪里了, function  RegisterServiceProcess(dwProcessID

WORD; dwType:dword):boolean; stdcall; // 我没有写这一行! external 'KERNEL32.dll' name 'RegisterServiceProcess';

snowman2000 · 2000-01-14

除了调用RegisterServiceProcess使之不在任务列表中出现外你还可以在主窗体的onclose事件中调用自身，这样尽管在任务列表中能看到程序，但无法结束它。

windmill · 2000-01-14

以上几种方法我已知道了,但是我的程序挺大的, 机器的速度又不快 导致在程序真正启动之前还有一段时间,在任务栏中还能看到 所以我想编一段屏蔽键盘的小程序 先加载,同时隐藏自己, 但是,我如何在我的主程序启动后,杀死这个隐藏的进程呢?(屏蔽键盘的程序) 请教各位大仙.

Fencer · 2000-01-14

当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下 代码： Var temp:integer; begin SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); end; 当你要恢复功能键时用以下代码： Var Temp:integer; begin SystemParametersInfo(spi_screensaverrunning,0,@temp,0); end;

Hexi · 2000-01-14

Try this: program project1; uses   Windows,   Forms,   main in 'main.pas'; {$R *.RES} function RegisterServiceProcess(dwProcessId,dwType:dword): Integer;stdcall;external 'kernel32.dll'; begin   RegisterServiceProcess(GetCurrentProcessID,1);   Application.Initialize;   Application.ShowMainForm:=False;   Application.CreateForm(TFormClient, FormClient);   Application.Run; end.

Hexi · 2000-01-14

有无办法让pView95等程序关闭的方法。

Liu JZX · 2000-01-14

创建进程 CreateProcess(PChar('c:/program files/microsoft office/office/winword.exe'),       nil,nil,nil,true,DETACHED_PROCESS,nil,nil,st,pp); 关闭进程   ppp:=OpenProcess(PROCESS_ALL_ACCESS, FALSE,pp.dwProcessId );   TerminateProcess(ppp,0);}

Hexi · 2000-01-14

有无办法不让pView95等程序关闭的方法。

阿蒙 · 2000-01-15

可大家试过没有．在ｗｉｎ　的启动画面刚没过时．按下ｃｔｒｌ＋ａｌｔ＋ｄｅｌ 可在进程加载之前把他杀掉

阿蒙 · 2000-01-15

去长沙热线看看。202。113。29。119 那有一个软件屏蔽这些键。在软件编程里

thtfsyh · 2000-01-15

walala · 2000-01-17

g

windmill · 2000-01-18

在delphi中我用SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0); 只能在98下保证对键盘的屏蔽 但是在95下就不行了,(可能我的是97) 我用其他的SystemParametersInfo参数也不行 请教各位还有什么办法吗?

aerobull · 2000-01-20

//打开关闭Ctrl+Alt+del var   OldVal : LongInt; begin   SystemParametersInfo (97, Word (False), @OldVal, 0) end; procedure TForm1.Button2Click(Sender: TObject); var   OldVal : LongInt; begin   SystemParametersInfo (97, Word (True), @OldVal, 0) end; //关闭 Windows 的 TaskBar type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     hTaskBar: HWND;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin       hTaskBar := FindWindow('Shell_TrayWnd', nil);       ShowWindow(hTaskBar, SW_HIDE); end; procedure TForm1.FormDestroy(Sender: TObject); begin     ShowWindow(hTaskBar, SW_SHOW); end; end. //使程序在 Ctrl+Alt+Del时不会出现在列表中, //下面是从D版盘中得到的Source ,是一个控件 unit Phantom; interface uses   Windows, wintypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   menus, shellapi;   const   TASKBAREVENT: PChar = 'NewTNIMessage_20'; type   TPhantom = class(TComponent)   private     fIconDatei: Ticon;     ftip:string  ;     fSichtbar: Boolean ;     fServiceprocess: Boolean ;     fLinksKlick: TNotifyEvent;     fRechtsKlick: TNotifyEvent;     fDoppelKlick: TNotifyEvent;     fIconSichtbarkeit: boolean;     fPopupRechts: TPopupMenu;     fPopupLinks: TPopupMenu;     { Private-Deklarationen }     procedure PWsichtbarkeit(value:boolean);     procedure PWserviceprocess(value:boolean);     procedure sichtbarmachen;     procedure unsichtbarmachen;     procedure WPopRechts;     procedure WPopLinks;     procedure CreateIcon;     procedure ChangeIcon;     procedure DeleteIcon;     procedure settip(value:string);     procedure Wicondatei(value:Ticon);     procedure WIconSichtbarkeit(value:boolean);   protected     { Protected-Deklarationen }     procedure serviceprocessEin;     procedure serviceprocessAus;     procedure WRechtsklick; virtual;     procedure WLinksklick; virtual;     procedure WDoppelklick; virtual;     procedure WndProc(var Msg: TMessage);     procedure Notification(Component: TComponent; Operation: TOperation); override;   public     { Public-Deklarationen }       procedure loaded;override;       destructor Destroy; override;       constructor Create(AOwner: TComponent); override;    published     { Published-Deklarationen }     property Sichtbar: Boolean read fsichtbar write PWsichtbarkeit;{Formular verstecken/anzeigen}     property Serviceprocess: Boolean read fserviceprocess write PWserviceprocess;{Als Service-Process registrieren/abmelden (gegen Strg+Alt+Entf)}     property IconDatei: Ticon read fIconDatei write Wicondatei;     property LinksKlick: TNotifyEvent read fLinksKlick write flinksklick;     property RechtsKlick: TNotifyEvent read fRechtsKlick write fRechtsklick;     property DoppelKlick: TNotifyEvent read fDoppelKlick write fDoppelklick;     property IconSichtbarkeit: boolean read fIconSichtbarkeit write WIconSichtbarkeit;     property PopupRechts: TPopupMenu read fPopupRechts write fPopuprechts;     property PopupLinks: TPopupMenu read fPopupLinks write fPopuplinks;     property Tip: string read FTip write SetTip;   end; procedure Register; function RegisterServiceProcess(dwProcessId,dwType:dword): Integer;stdcall;external 'kernel32.dll' implementation var ficonmessage: UINT;     FWnd: HWnd;     icsichtbar:boolean; constructor tphantom.Create(AOwner: TComponent) ; begin inherited Create(AOwner); ficonmessage := RegisterWindowMessage(TASKBAREVENT); FWnd := AllocateHWnd(WndProc); FIcondatei := TIcon.Create; iconsichtbarkeit:=false ; sichtbar:=true; serviceprocess:=false; icsichtbar:=false; end; destructor TPhantom.Destroy; begin   if (csDesigning in ComponentState) then exit;   if Ficonsichtbarkeit and not (csDesigning in ComponentState) then     deleteIcon;   FIcondatei.Free;   DeallocateHWnd(FWnd);   inherited destroy; end; procedure TPhantom.WndProc(var Msg: TMessage); begin   if (csDesigning in ComponentState) then exit;   with Msg do begin     if Msg = ficonmessage then       case LParamLo of         WM_LBUTTONDOWN:   WLinksKlick;         WM_RBUTTONDOWN:   WRechtsKlick;         WM_LBUTTONDBLCLK: WDoppelKlick;       end     else       Result := DefWindowProc(FWnd, Msg, wParam, lParam);   end; end; procedure TPhantom.Notification(Component: TComponent; Operation: TOperation); begin   if (csDesigning in ComponentState) then exit;   inherited Notification(Component, Operation);   if Operation = opRemove then begin     if Component = FPopuprechts then FPopuprechts := nil;     if Component = FPopuplinks then FPopuplinks := nil;   end; end; procedure TPhantom.PWsichtbarkeit(value:boolean); begin fsichtbar:=value; if (csDesigning in ComponentState) then exit; if sichtbar=true then sichtbarmachen; if sichtbar=false then unsichtbarmachen; end; procedure TPhantom.PWserviceprocess(value:boolean); begin fserviceprocess:=value; if (csDesigning in ComponentState) then exit; if serviceprocess=true then serviceprocessEin; if serviceprocess=false then serviceprocessAus; end; procedure TPhantom.serviceprocessEin; begin RegisterServiceProcess(GetCurrentProcessID,1) end; procedure TPhantom.serviceprocessAus; begin RegisterServiceProcess(GetCurrentProcessID,0) end; procedure TPhantom.sichtbarmachen; begin showwindow(FindWindow(nil, @Application.Title[1]),SW_RESTORE) end; procedure TPhantom.unsichtbarmachen; begin showwindow(FindWindow(nil, @Application.Title[1]),SW_MINIMIZE); showwindow(FindWindow(nil, @Application.Title[1]),SW_HIDE) ; end; procedure TPhantom.WRechtsklick; begin if (csDesigning in ComponentState) then exit; if Assigned(FPopuprechts) then WPoprechts   else if Assigned(FRechtsKlick) then     FRechtsKlick(Self); end; procedure TPhantom.WLinksklick; begin if (csDesigning in ComponentState) then exit; if Assigned(FPopuplinks) then WPoplinks   else if Assigned(FLinksKlick) then     FLinksKlick(Self); end; procedure TPhantom.WDoppelklick; begin if (csDesigning in ComponentState) then exit; if Assigned(Fdoppelklick)then FDoppelKlick(Self); end; procedure TPhantom.WPopRechts; var punkt:Tpoint; begin if (csDesigning in ComponentState) then exit; GetCursorPos(Punkt); SetForeGroundWindow(FWnd); FPopuprechts.Popup(Punkt.X, Punkt.Y); end; procedure TPhantom.WPopLinks; var punkt:Tpoint; begin if (csDesigning in ComponentState) then exit; GetCursorPos(Punkt); SetForeGroundWindow(FWnd); FPopuplinks.Popup(Punkt.X, Punkt.Y); end; procedure TPhantom.CreateIcon; var icon: TNOTIFYICONDATA; begin if (csDesigning in ComponentState) then exit; with icon do begin     cbSize := SizeOf(TNOTIFYICONDATA);     Wnd := FWnd;     uID := 1;     uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;     uCallbackMessage :=ficonMessage;     hIcon := FIcondatei.Handle;     StrCopy(szTip, PChar(FTip));     Shell_NotifyIcon(NIM_ADD, @icon);   end;   icsichtbar := true; end; procedure TPhantom.ChangeIcon; var icon: TNOTIFYICONDATA; begin if (csDesigning in ComponentState) then exit; with icon do begin     cbSize := SizeOf(TNOTIFYICONDATA);     Wnd := FWnd;     uID := 1;     uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;     uCallbackMessage := ficonMessage;     hIcon := FIcondatei.Handle;     StrCopy(szTip, PChar(FTip));     Shell_NotifyIcon(NIM_MODIFY, @icon);   end; end; procedure TPhantom.DeleteIcon; var icon: TNOTIFYICONDATA; begin if (csDesigning in ComponentState) then exit; with icon do begin     cbSize := SizeOf(TNOTIFYICONDATA);     Wnd := FWnd;     uID := 1;     uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;     uCallbackMessage := ficonmessage;     hIcon := FIcondatei.Handle;     StrCopy(szTip, PChar(FTip));     Shell_NotifyIcon(NIM_DELETE, @icon);   end;   icsichtbar := false; end; procedure TPhantom.settip(value:string); begin if FTip <> value then begin     FTip := value;     if not (csDesigning in ComponentState) then changeicon;   end; end; procedure TPhantom.Wicondatei(value:Ticon); begin if ficondatei<>value then begin     ficondatei.assign(value);       if (csDesigning in ComponentState) then exit;       if icsichtbar then changeicon else createicon;       if ficondatei.empty then deleteicon;   end; end; procedure TPhantom.WIconSichtbarkeit(value:boolean); begin ficonsichtbarkeit:=value; if csDesigning in ComponentState then Exit; if ficonsichtbarkeit=true and icsichtbar=false then createicon; if ficonsichtbarkeit=false and icsichtbar=true then deleteicon; end; procedure TPhantom.Loaded; begin   inherited Loaded;   if Ficonsichtbarkeit and not (csDesigning in ComponentState) and not FIcondatei.Empty then begin     createIcon;   end; end; procedure Register; begin   RegisterComponents('Hacker', [TPhantom]); end; end.

关于如何控制启动的程序不被杀掉(200分)

windmill

Unregistered / Unconfirmed

slfeng

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Fencer

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

snowman2000

Unregistered / Unconfirmed

windmill

Unregistered / Unconfirmed

Fencer

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

阿蒙

Unregistered / Unconfirmed

阿蒙

Unregistered / Unconfirmed

thtfsyh

Unregistered / Unconfirmed

walala

Unregistered / Unconfirmed

windmill

Unregistered / Unconfirmed

aerobull

Unregistered / Unconfirmed

Similar threads