Obrigado.
Funcionou certinho.
Vou usar o bloqueio do Ctrl+Alt+Del juntamente com o BlockInput().
Willer Alves da Costa
--------------------------------------------------------------------------------
----- Original Message -----
From: Hudson
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 09, 2006 12:21 PM
Subject: Re: [delphi-br] Bloquear o teclado
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
----- Original Message -----
From: Hudson
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 09, 2006 12:14 PM
Subject: 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
[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]
__________ 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]
--
<<<<< 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
