limpar arquivos

[LucAlucard]

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]

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]

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]

Imagino que não tenha conseguido montar não é ???

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