Re: [delphi-br] Bloquear o teclado
Necessito de saber se é possível ler diretamente uma planilha Excel (coluna e linha) para captar seus dados, ou se sempre há necessidade de exportar seu conteúdo para então fazer a leitura da exportação pelo Delphi ? Se for possível, temos um exemplo disponível? Bom dia a todos. Roberto [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
o que vc pode fazer é usar os componente ADO, ADOTable mais especificamente, com ele vc pode acessar a planilha como se fosse uma tabela de dados, server tb para arquivos csv. Quanto ao exemplo vou tentar montar um aqui. Roberto Wazen (RJ) [EMAIL PROTECTED] escreveu:Necessito de saber se é possível ler diretamente uma planilha Excel (coluna e linha) para captar seus dados, ou se sempre há necessidade de exportar seu conteúdo para então fazer a leitura da exportação pelo Delphi ? Se for possível, temos um exemplo disponível? Bom dia a todos. Roberto [As partes desta mensagem que não continham texto foram removidas] GYNCOWBOY André Luis da Silveira - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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
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] -- 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
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] -- 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
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] -- 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
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: 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] -- 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
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] -- 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
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
Re: [delphi-br] Bloquear o teclado
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
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: 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] -- 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
RES: [delphi-br] Bloquear o teclado
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
Re: [delphi-br] Bloquear o teclado
O BlockInput do Windows funciona mesmo, e roda em qualquer windows: function BlockInput( fBlockIt:boolean):Boolean; StdCall; External 'User32.dll'; Daí basta fazer BlockInput(True) ou BlockInput(False); Inclusive as homologadoras TEF quase que exigem o uso do block input. Vinicius Barreira Delphi 7 / Firebird / DbExpress São Bernardo do Campo Software Para Hotéis - 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
RES: [delphi-br] Bloquear o teclado
Sim mas ela não bloqueia o CTRL+ALT+DEL _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Barreira Enviada em: quarta-feira, 9 de agosto de 2006 13:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bloquear o teclado O BlockInput do Windows funciona mesmo, e roda em qualquer windows: function BlockInput( fBlockIt:boolean):Boolean; StdCall; External 'User32.dll'; Daí basta fazer BlockInput(True) ou BlockInput(False); Inclusive as homologadoras TEF quase que exigem o uso do block input. Vinicius Barreira Delphi 7 / Firebird / DbExpress São Bernardo do Campo Software Para Hotéis - 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
Re: [delphi-br] Bloquear o teclado
Aqui funcionou. E minha aplicação vai rodar em Win98. Então não tem problema. - Original Message - From: Hayalon A. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 12:57 PM Subject: RES: [delphi-br] Bloquear o teclado 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
RES: [delphi-br] Bloquear o teclado
Beleza; Testei no XP e ok. Quanto a bloquear o ctrl + alt + del se fiser acho que as itençoes já não são boas... Imagina no meio de uma transacao...der pau com o micro com teclado e mouse travado O que o cara vai fazer...'resetar o micro'faz isso algumas veses e tu detona o micro. Eu colocaria um timer...pra cada tanto tempo chamar a funcao novamente...e so parar de chamar quando transaca acabar, entao se o cara der crtl alt del e voltar a aplicacao vai bloquear de novo Ate terminar a transacao. Atenc elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de WILLER Enviada em: quarta-feira, 9 de agosto de 2006 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bloquear o teclado Aqui funcionou. E minha aplicação vai rodar em Win98. Então não tem problema. - Original Message - From: Hayalon A. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 12:57 PM Subject: RES: [delphi-br] Bloquear o teclado 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
RES: [delphi-br] Bloquear o teclado
Complementando. Tb. Nada como por uma tela avisando o cara que o micro vai ficar paralisado. Puxa que gramatica atropelada a minha(meus..)desculpa ai pelos erros galera...rs Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elazar Dornelles Ceza Enviada em: quarta-feira, 9 de agosto de 2006 15:36 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Bloquear o teclado Beleza; Testei no XP e ok. Quanto a bloquear o ctrl + alt + del se fiser acho que as itençoes já não são boas... Imagina no meio de uma transacao...der pau com o micro com teclado e mouse travado O que o cara vai fazer...'resetar o micro'faz isso algumas veses e tu detona o micro. Eu colocaria um timer...pra cada tanto tempo chamar a funcao novamente...e so parar de chamar quando transaca acabar, entao se o cara der crtl alt del e voltar a aplicacao vai bloquear de novo Ate terminar a transacao. Atenc elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de WILLER Enviada em: quarta-feira, 9 de agosto de 2006 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bloquear o teclado Aqui funcionou. E minha aplicação vai rodar em Win98. Então não tem problema. - Original Message - From: Hayalon A. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 12:57 PM Subject: RES: [delphi-br] Bloquear o teclado 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
Re: [delphi-br] Bloquear o teclado
É só para impedir o usuário de finalizar a aplicação e utilizar outros programas do computador. Se o Ctrl+Alt+Del não estiver desabilitado o usuário faz o que quer. []s Willer Alves da Costa - Original Message - From: Elazar Dornelles Ceza To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 3:35 PM Subject: RES: [delphi-br] Bloquear o teclado Beleza; Testei no XP e ok. Quanto a bloquear o ctrl + alt + del se fiser acho que as itençoes já não são boas... Imagina no meio de uma transacao...der pau com o micro com teclado e mouse travado O que o cara vai fazer...'resetar o micro'faz isso algumas veses e tu detona o micro. Eu colocaria um timer...pra cada tanto tempo chamar a funcao novamente...e so parar de chamar quando transaca acabar, entao se o cara der crtl alt del e voltar a aplicacao vai bloquear de novo Ate terminar a transacao. Atenc elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de WILLER Enviada em: quarta-feira, 9 de agosto de 2006 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Bloquear o teclado Aqui funcionou. E minha aplicação vai rodar em Win98. Então não tem problema. - Original Message - From: Hayalon A. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 09, 2006 12:57 PM Subject: RES: [delphi-br] Bloquear o teclado 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
[delphi-br] Bloquear o teclado
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] -- 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
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 -- 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