Re: [delphi-br] Bloquear o teclado

Hudson Wed, 09 Aug 2006 08:22:08 -0700

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]



-- 
<<<<< 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

Re: [delphi-br] Bloquear o teclado

Responder a