Evitar que um programa seja fechado?
30/08/2004
0
Gostaria de sabe se tem jeito de evitar que um programa seja fechado mesmo que o usuário clique CTRL + ALT + DEL e vá em processos e finalize o processo?
desde já obrigado,
balceiro
Balceiro
Post mais votado
31/08/2004
sete a variavel CanClose para false.
Agora para não deixar que seu aplicativo seja fechado pelo C.A.D voce tem que ocultar ele
Procure por ocultar+processo.
Espero ter ajudado
Macario
Mais Posts
31/08/2004
Maurício Santos
Utilize o link ´Pesquisar´e procure no fórum ´CTRL+ALT+DEL´ ou ´Travar teclas´.
Vc vai encontrar muita informação sobre o assunto
Sucesso
Maurício
31/08/2004
Balceiro
desde já muito obrigado,
balceiro
31/08/2004
Nildo
Você se refere ao programa que você está fazendo ou a qualquer outro programa tipo o Notepad?
31/08/2004
Sandra
Dica retirada do DTDelphi 2.6:
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. var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
01/09/2004
Sandra
Veja estes tópicos:
- [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=26628]Solução para Ctrl+Alt+Del e Winkeys no XP (Para todos)[/url]
- [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=23183]pegue aqui travas pra XP (Ctrl+Alt+Del;Alt+F4;Alt+Tab)[/url]
- [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=24226]desabilitando ctrl+alt+del[/url]
- [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=19543]Desabilitar CTRL+ALT+DEL, ALT+F4 WIN XP[/url]
- [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=17573]desativar a funçao ctrl + alt+ del e tecla windows no xp[/url]
01/09/2004
Balceiro
Eu já pesquisei tudo sobre o bloquei de fechamento de um programa aqui no fórum e não encontrei nada a respeito.
Eu não quero desabilitar as teclar CTRL + ALT + DEL nem a tecla F4 na verdade eu quero somente que mesmo o usuário abrindo o gerenciador de tarefas do windows e localizando o meu processo na lista de processos ele não consiga finalizar o mesmo.
será que alguém pode me ajudar?
01/09/2004
Macario
Esconder Aplicação
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=15330&highlight=ocultar+processo[/url]
Fazer o programa não aparecer na lista de processos
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=30711&highlight=ocultar+processo[/url]
já que o que voce quer é não permitir que o usuario feche seu
[b:4227cdda76]serviço/aplicação[/b:4227cdda76]
01/09/2004
Balceiro
eita coisa complicada.
Clique aqui para fazer login e interagir na Comunidade :)
