Fórum Evitar deleção de diretório e arquivos #259156

19/11/2004

0

é uma coisa simples:
quero evitar que espiritos de porcos, vao no c:\meuprograma e delete tudo!!!!

Como eu faço??


O4pr3ndiz

O4pr3ndiz

Responder

Posts

19/11/2004

Inutaishou

Colega, não é possível... Para fazer isso, seria necessário você criar um Spyware que ficasse bloqueando os arquivos... Mas aí, entra em modo de segurança e já era o seu Spy...

E o cliente também não vai gostar muito da idéia do Spy...

[]´s,


Responder

Gostei + 0

19/11/2004

O4pr3ndiz

Este tipo de proteção já serve, naum te importancia se a pessoa entra no modo segurança e apaga de lá.......

alguem pode me ajudar efetivamente???????


Responder

Gostei + 0

19/11/2004

Reginaldo174

Como o [b:03d8585d0c]GRFrones[/b:03d8585d0c] disse nada impede o usuario de entrar pelo modo de segurança ou mesmo pelo DOS e apagar o conteudo da sua pasta. Mas tem como proteger assim:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

PostMessage(FindWindow(nil, ´Sua pasta - Microsoft Internet Explorer´), WM_CLOSE,0,0);
end;

terá que mudar o nome conforme o sistema operacional (98,2000,xp). Este exemplo bloqueia no win2000


Responder

Gostei + 0

24/11/2004

O4pr3ndiz

O codigo
apagar diretorio

procedure TForm1.Timer1Timer(Sender: TObject);
begin

PostMessage(FindWindow(nil, ´Sua pasta - Microsoft Internet Explorer´), WM_CLOSE,0,0);
end;

terá que mudar o nome conforme o sistema operacional (98,2000,xp).

Este exemplo naum funciona, alguem pode me ajudar???


Responder

Gostei + 0

24/11/2004

Reginaldo174

Este exemplo naum funciona, alguem pode me ajudar???


Garanto a vc que funciona. Me mande um e-mail informando qual o sistema operacional que vc utiliza que te mando um exemplo com executável funcionando.


Responder

Gostei + 0

24/11/2004

O4pr3ndiz

pode mandar o exemplo para o4pr3ndiz@yahoo.com.br...

Obrigado...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar