No xp, não funcionou...
_____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Hudson Enviada em: quarta-feira, 9 de agosto de 2006 12:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bloquear o teclado o codigo completo Escondendo o Programa de Ctrl+Alt+Del unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} {Para ocultar um programa, deve-se registrar este como um serviço do Windows. Normalmente um serviço do Windows é ativado quando com a inicialização do sistema (Windows) e pemanece ativo até a finalização deste. Este processo esconde o programa da lista "Ctrl+Alt+Del"} Const Servico_Simples = 1; Servico_Unregister = 1; Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External 'KERNEL32.dll'; procedure TForm1.FormCreate(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Simples); end; procedure TForm1.FormDestroy(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister); end; end. ----- Original Message ----- From: WILLER To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 10:18 AM Subject: Re: [delphi-br] Bloquear o teclado Tentai fazer assim, mas deu erro. ERRO:"O arquivo 'project.exe' está vinculado ao KERNEL32.DLL de exportação que não foi encontrado: geren". Sabe o que pode ser? Estou usando o Win98. Pode ser isso? ----- Original Message ----- From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 10:03 AM Subject: Re: [delphi-br] Bloquear o teclado Acho o q vc pode fazer e tirar o aplicação do gerenciador "Kernel32.dll"..... bom eu faço assim function geren(dwProcessId, dwType: integer): integer; stdcall; external 'KERNEL32.DLL'; //ve geren(getCurrentProcessID, 1); //não ve geren(getCurrentProcessID, 0); espero ter ajudado ----- Original Message ----- From: WILLER To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 9:42 AM Subject: Re: [delphi-br] Bloquear o teclado Esta API não bloqueia Ctrl+Alt+Del, então o usuário pode finaliza minha aplicação. É possível bloquear "Ctrl+Alt+Del" ? []s Willer Alves da Costa. ----- Original Message ----- From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 08, 2006 7:21 PM Subject: RE: [delphi-br] Bloquear o teclado Informe-se sobre a função BlockInput() da API do Windows. Ela bloqueia teclado e mouse. Sds. >From: "WILLER" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: <delphi-br@yahoogrupos.com.br> >Subject: [delphi-br] Bloquear o teclado >Date: Tue, 8 Aug 2006 17:04:14 -0300 > >Olá, > Estou desenvolvendo uma aplicação onde o usuário deve ficar com o teclado >desabilitado durante uns segundos. Impedindo-o de acessar algum programa >através de atalhos do teclado. >Alguém sabe se é possível fazer? > > >[]s >Willer Alves da Costa. > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br __________ Informação do NOD32 1.1683 (20060728) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 1.1683 (20060728) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com..br <http://www.nod32.com.br> [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
