Cacher l'execution d'un programme sous NT, 2k, XP

Salut,

Je souhaite cacher l'execution d'un programme de facon a ce qu'on ne puisse pas l'arreter avec un [ctrl]+[alt]+[supr].
J'ai bien vu qu'il y avait moyen de le faire sous 98 et Me avec RegisterServiceProcess contenu dans KERNEL32.dll mais quelqu'un connais un moyen de faire la meme chose avec les systeme NT, 2k ou XP ???

Merci @++

Salut,
hook sur funcs appelees par TaskMgr.exe apres passage en mode kernel, ce qui implique driver NT.
www.y0da.cjb.net
va voir a cette adresse, il y avait une demo et un prog C en exemple invisible. Par contre ASM complet (MASM) pour ce qui est du source de base.
Etait dispo en juin 2002, je l'ai mais je ne sais pas si y est encore.
ciao...

-------------------------------
Réponse au message :
-------------------------------

> Salut,
>
> Je souhaite cacher l'execution d'un programme de facon a ce qu'on ne puisse pas l'arreter avec un [ctrl]+[alt]+[supr].
> J'ai bien vu qu'il y avait moyen de le faire sous 98 et Me avec RegisterServiceProcess contenu dans KERNEL32.dll mais quelqu'un connais un moyen de faire la meme chose avec les systeme NT, 2k ou XP ???
>
> Merci @++

Den


-------------------------------
Réponse au message :
-------------------------------

Voici la réponse du hook de taskmgr, c'est une DLL
Mon seul problème c'est que je débute et ne sait pas
l'utiliser, toi tu vas certainement trouver.
Merci de m'envoyer un mail (MDenis66@wanadoo.fr)
pour me faire parvenir
un exemple...

library HookLib;

uses
SysUtils,
Classes, Windows;

var hHook: integer;
hMod: THANDLE;
CurL: integer;
L: array[0..1] of integer;
EnabledIt: Boolean;

procedure DOUT(s:String);
begin
OutputDebugString(PChar(s+#10#13));
end;

function ResetWindowProc(hwnd:integer; NewProc:DWORD):DWORD;
begin
Result := SetWindowLong(hwnd,GWL_WNDPROC, NewProc);
end;

function FindListView(hwnd, prev: integer): boolean;
var wText: PChar;
begin
wText := AllocMem(250);
Result := FALSE;
if (CurL = 2) or (hwnd=0) then Exit;;
if(GetClassName(hwnd, wText, 250) <> 0) then
if wText = 'SysListView32' then
begin
L[CurL] := hwnd;
inc(CurL);
GetWindowText(hwnd, wText, 250);
DOUT(wText + ' ' + 'Found!');
end;
FindListView(GetWindow(hwnd, GW_CHILD), hwnd);
FindListView(GetWindow(hwnd, GW_HWNDNEXT), hwnd);
Result := TRUE;
end;

function HookProc(Code, wParam, lParam: integer): Integer; stdcall;
begin
if (Code = HSHELL_WINDOWCREATED) and (EnabledIt) then
begin
FindListView(wParam, 0);
end;
Result := CallNextHookEx(hHook, Code, wParam, lParam);
end;

function SetHook: DWORD;stdcall;
begin
hHook := SetWindowsHookEx(WH_SHELL, @HookProc, hMod, 0 );
Result := 0;
end;

function ResetHook: DWORD;stdcall;
begin
UnhookWindowsHookEx(hHook);
Result := 0;
end;

procedure InitDLL;
begin
EnabledIt := FALSE;
DOUT(GetCommandLine());
If Pos('taskmgr', GetCommandLine()) <> 0 Then EnabledIt := TRUE;
hMod := GetModuleHandle('HookLib.dll');
end;

exports SetHook, ResetHook;

begin
InitDLL;
end.