LucAlucard
23/11/2010 - 09:34
Ola família script brasil, venho mais uma vez até vocês pois hoje me foi entregue a tarefa de fazer algo um tanto diferente pra mim...
Precisaria fingir q não existo no PC rsrsrsrs... Não entenderam? Vou explicar:
Acontece que preciso deletar hostórico da internet, (tanto Firefox , Opera , Google Chrome, Internet Explorer), deletar lixeira, deletar emails do outlook e derivados.. E se der até deletar do meu e-mail mesmo rsrsrs...
até q lixeira eu consegui achar.. mas meus maiores problemas são, a diferença de windows (o que pode alterar as pastas) o fato do usuário poder escolher onde isntalar os arquivos, pois assim fica um tanto complicado eu deleta-los..
Será possível pegar o caminho no Regedit? Ou lá ele também é alterado?
Bom.. em fim.. estou aceitando todo tipo de ajuda possível. Conto com a ajuda de todos p/ resolver essa "treta"... Muitíssimo obrigado a todos! Tenham um ótimo dia e bons estudos! ^^
Jhonas
24/11/2010 - 10:50
voce pode fazer isso via registro do windows
Exclua todos os valores com exceção do valor (Default) da seguinte chave do Registro:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
OBSERVAÇÃO: Os valores nessa chave do Registro são listados como Url1, Url2, Url3 e assim por diante.
Caso você exclua apenas alguns valores e os restantes não estejam em ordem numérica consecutiva, apenas algumas das entradas remanescentes serão listadas na caixa Endereço.
Para evitar esse comportamento, renomeie os valores restantes para que estejam em ordem numérica consecutiva.
OBS: procure no forum sobre como usar Registry com o delphi
abraço
LucAlucard
24/11/2010 - 12:07
aewww =D
Vlw Jhonas, vou tentar aqui e depois eu posto o resultado.. Lógico.. também vou dar uma caçada sobre o registry em Delphi, e posto o resultado. Vlw Jhonas! ^^
Jhonas
26/11/2010 - 14:13
Imagino que não tenha conseguido montar não é ???
CODE
uses Registry;
procedure RemoveFromRunKey(ApTitle: string);
var
Reg: TRegistry;
TheKey, s: string;
ListOfEntries: TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
TheKey := 'SOFTWARE\MICROSOFT\INTERNET EXPLORER\TypedURLs\';
if not Reg.OpenKey(TheKey, False) then
ShowMessage('Registro não Encontrado')
else begin
if Reg.DeleteValue(ApTitle) then
ShowMessage('Removido: ' + ApTitle)
else
ShowMessage('Não Encontrado: ' + ApTitle);
end;
Reg.CloseKey;
Reg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i := 1 to 10 do
RemoveFromRunKey('url'+inttostr(i));
end;
OBS: procure sempre se esforçar em aprender ... leitura e pesquisa é fundamental
abraço
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor
clique aqui.