Limitar o acesso �s pastas do Explorer apenas ao meu prog.

Question

Ol�, preciso saber como fa�o para proteger uma pastar do explorer exemplo: c:teste fazendo com que a mesma passe a ser acessada somente pelo meu sistema... se voc� souber voc� realmente tem algo que ...

Anonymous · Answer

se seu sistema de arquivos for FAT esqueca......

Anonymous · Answer

cara, a solu�ao disso � meio que cabulosa. veja o que eu faria.
para nao acessar a pasta, usaria o seguinte:
coloque um clock no como 100 .
no evento ontimer, coloque a seguinte rotina:
PostMessage(FindWindow(nil, �titulo da pasta�), WM_CLOSE,0,0);

essa rotina funciona assim: ela fecha a pasta pelo nome escrito na barra de titulo.
assim, para mudar qual programa fechar, exemplo calculadora mude a op�ao acima para calculadora.
com esse evento no ontimer, ele atualiza a cada 1/10 de segundo, � bastante bom. isso impediria alguem de abrir pelo explorer ou algo do tipo.

agora para acessar, use um componente que fa�a esse acesso, exemplo:
o delphi tem um componente que � usado para acessar sites, este � o webbrowser da palheta internet. coloque ele no form e no botao que vai abrir a pasta coloque o seguinte codigo:

webbrowser1.navigate(�c:\pasta�);

com isso aparece a pasta igual � no windows explorer.
obs: voce pode usar outros componentes, mas indico este.

espero que eu tenha solucionado.
qualquer coisa, mande um e-mail pra mim em davicdc@yahoo.com.br
falou...

Anonymous · Answer

foi mal, a 3� linha da mensagem acima �:coloque um timer no form e na propriedade  interval coloque 100 .heh, erros de digita�ao........

Anonymous · Answer

Iniciar-> Executar: command [OK]c:cdpastadel*.*exit:P...

Anonymous · Answer

Cara,

muito obrigado pela sua ajuda, mas na verdade eu quero que quando a minha aplica��o estiver fechada, ningu�m consiga abrir a pasta...

por exemplo n�o quero que ningu�m acesse a minha base de dados pelo explorer entendeu...

mesmo assim agrade�o a aten��o dispensada e pe�o-lhe que se tiver algo a mais ficarei grato em receber...

Anonymous · Answer

simples, foi mal esqueci o mais importante.
aquela parte de atualizar e deixar sempre fechada a pasta, pode ser um outro programa, que inicia quando o computador liga, automaticamente.
para isso, fa�a o seguinte:

coloque no oncreate do form o seguinte:

//Liga automaticamente
Reg:=TRegIniFile.Create(�fechapasta�);
{HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run}
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+�\�+S2;
reg.RootKey:=HKEY_Local_Machine ;
reg.Openkey (�\Software\Microsoft\Windows\CurrentVersion�,false);
reg.WriteString(�Run�, �fechapasta�, s);

declare:
uses registry;
e antes de implementation:

var reg:TRegIniFile;
no var que tem l�.

para nao aparecer na barra do windows, coloque o seguinte codigo no onshow do form principal:

var
H : HWnd;
begin
H := FindWindow(Nil,�Project1�); {troque project1 pelo nome do seu projeto}
if H <> 0 then ShowWindow(H,SW_HIDE);
end;

e para o programa ficar invisivel, coloque o seguinte codigo antes de application.run no fonte do PROJETO

Application.ShowMainForm := False;

� isso, espero que seja isso. tudo isso que eu disse funciona.
falou. conte comigo. qualquer coisa, me contacte em davicdc@yahoo.com.br

Eniorm · Answer

Legal essa tua pergunta.Se o sistema de arquivos for FAT ou FAT32 vc pode bloquear quea pasta ou arquivo seja aberto da seguinte forma, usando o Prompt de Comando apenas:[b:4f941a3fe6]ren nomedapasta nomenovo ALT 196[/b:4f941a3fe6]ou seja, vc digita [b:4f941a3fe6]ren[/b:4f941a3fe6] mais o [b:4f941a3fe6]nomedapasta[/b:4f941a3fe6] mais o [b:4f941a3fe6]nomenovo[/b:4f941a3fe6] mas a sequencia de teclas [b:4f941a3fe6]ALT+196[/b:4f941a3fe6]agora tente impletentar isso no seu programa !!!...

Zero.z · Answer

Enio, + legal do que a pergunta � essa sua dica, simples e funcional. Valeu!!:-)...

Anonymous · Answer

Tentei o ALT 196 mas n�o deu certo, consigo ver o conte�do da pasta do mesmo geito, o legal � que com os arquivos d� certo.de qualquer forma muito obrigado.......

Nildo · Answer

Voc� deve hookar o sistema operacional. Cada vez que for alterado o CurrentDir (voce sera notificado pela DLL do hook), voc� deve cancelar a a��o. � meio complicado, mas � muito legal trabalhar com hook. Tem uma lib muito lokca com exemplos que eu uso. Qualquer coisa me avise que eu ajudo ! www.madshi.net
� assim que aqueles programas que protegem pastas com senhas fazem !

Anonymous · Answer

E como � que desbloqueia depois?...

Nildo · Answer

Deshookando. L� nos demos da lib tem um que mostra como deshookar...

Anonymous · Answer

Cara, baixei l� o componenre mas n�o funciona... :cry:  :oops:  :x...

Lady · Answer

Aquele jeito com o prompt de comando funciona?Eu n�o tive coragem de testar porque nao sei reverter......

Anonymous · Answer

Eu testei no geito do prompt mas n�o deu certo......

F�rum Limitar o acesso �s pastas do Explorer apenas ao meu prog. #143980