Esconder meu PROGRAMA da Janela Crt Alt Del do Windows XP

13/05/2003

0

Como esconder meu PROGRAMA da Janela Crt+Alt+Del do Windows XP?

Tenho uma função, mas só funciona no Win 98....


Jeffersonontop

Jeffersonontop

Responder

Posts

11/03/2004

Kadoo

Ressussitando este tópico, tenho o mesmo problema do Jeff, a função que uso esconde a aplicação no Win 98 mas no XP dá erro pois usa o Kernel32.dll que é diferente, algém já conseguiu uma solução?
A função e essa:

Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External ´KERNEL32.dll´;

Valew


Responder

11/03/2004

Kyonak

é impossível
o winxp nao esconde nenhum processo
mas porque esconder??
isso ta parecendo trojan hein...


Responder

11/03/2004

Cabelo

const
WH_KEYBOARD_LL = 13;
LLKHF_ALTDOWN = $20;

type
KBDLLHOOKSTRUCT = record
vkCode: DWORD;
scanCode: DWORD;
flags: DWORD;
time: DWORD;
dwExtraInfo: Longint ;
end;

var
hhkLowLevelKybd : HHOOK;
FoldProc : LongInt;
hSASWnd : HWND;
hThread : Cardinal;

implementation

Function LowLevelKeyboardProc(nCode : Integer; wParam : Longint; var LParam: KBDLLHOOKSTRUCT) : Longint; stdcall;
var
fEatKeystroke : Boolean;
dwThreadId : Cardinal;
begin

If (nCode = HC_ACTION) Then
begin
If (wParam = WM_KEYDOWN) Or
(wParam = WM_SYSKEYDOWN) Or
(wParam = WM_KEYUP) Or
(wParam = WM_SYSKEYUP) Then
begin
fEatKeystroke :=
//-----------
(((GetKeyState(VK_CONTROL) And $8000) <> 0) and
((((GetKeyState(VK_RMENU)) or (GetKeyState(VK_LMENU))) And $8000) <> 0) and
(LParam.vkCode = VK_DELETE)) or
//--------------
((LParam.vkCode = VK_LWIN)) or //tecla menu iniciar esquerdo
((LParam.vkCode = VK_RWIN)) or //tecla menu iniciar direito
((LParam.vkCode = VK_F4) And ((LParam.flags And LLKHF_ALTDOWN ) <> 0)) Or //ALT + F4
((LParam.vkCode = VK_TAB) And ((LParam.flags And LLKHF_ALTDOWN ) <> 0)) Or //ALT + TAB
((LParam.vkCode = VK_ESCAPE) And ((LParam.flags And LLKHF_ALTDOWN ) <> 0)) Or //ALT + ESC
((LParam.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And $8000) <> 0)); //CONTROL + ESC
End;
End;

If fEatKeystroke Then
Result := -1
Else
Result := CallNextHookEx(0, nCode, wParam, LongInt(@LParam));
End;


no evento form create

procedure TForm1.FormCreate(Sender: TObject);
begin
hhkLowLevelKybd := 0;
hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc,
HInstance, 0);
end;

sem mais..

só esclarecendo para o amigo Kyonak..

eu utilizei isso para que o computador fosse usado somente para o sistema..

isto é..

o usuário não poderia utilizar nenhum recurso do micro a não ser o sistema..

Por isso é necessa´rio travar alguns processos para que não seja intercedido pelo usuário..

sem mais

Cabelo


Responder

11/03/2004

Kadoo

Valeu Cabelo, vou tentar e ver o q acontece..

Um Abraço ...


Responder

11/03/2004

Cabelo

Blz..

Depois responde pra mim se deu certo?

Cabelo


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar