Evitar deleção de diretório e arquivos
é uma coisa simples:
quero evitar que espiritos de porcos, vao no c:\meuprograma e delete tudo!!!!
Como eu faço??
quero evitar que espiritos de porcos, vao no c:\meuprograma e delete tudo!!!!
Como eu faço??
O4pr3ndiz
Curtidas 0
Respostas
Inutaishou
19/11/2004
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,
E o cliente também não vai gostar muito da idéia do Spy...
[]´s,
GOSTEI 0
O4pr3ndiz
19/11/2004
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???????
alguem pode me ajudar efetivamente???????
GOSTEI 0
Reginaldo174
19/11/2004
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
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
GOSTEI 0
O4pr3ndiz
19/11/2004
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???
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???
GOSTEI 0
Reginaldo174
19/11/2004
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.
GOSTEI 0
O4pr3ndiz
19/11/2004
pode mandar o exemplo para o4pr3ndiz@yahoo.com.br...
Obrigado...
Obrigado...
GOSTEI 0