Como pesquisar no banco de dados um nome de programa e acha-lo no hd ?

[Casanova]

Estou curioso para saber como que eu faço tipo um antivirus , eu sei que falta muito mas aos poucos vou chegando lá .

A minha intenção é clicar no botão e ele pesquisar o que tem no banco de dados e encontrar no hd , tipo no banco de dados consta virus1 , ai ele faz a varredura no hd e encontra um arquivo com esse nome virus1 em tal lugar e mostra no ListBox ao lado com opção de deleta-lo !

[OnlyOne]

vc oode criar funçao recursiva pra varre o hd

usar comandos DOS

usar o find dolinux em versao DOS e depois capturar a saida

[Casanova]

Obrigado por ter respondido vou procurar saber mais sobre isso.

Valeu OnlyOne !

[Stew]

Olá Casanova,
O seguinte método cria um arquivo de texto, com o conteúdo de "arquivos" de uma pasta qualquer.
O método não faz realmente o que você precisa, peguei aqui de um source meu, mais dá pra entender como funciona e implementar. Espero que ajude.

Código Selecionar Expandir

procedure TFormServer.tmQueueTimer(Sender: TObject);
var
  F: TSearchRec;
  i:integer;
begin
  Ret := FindFirst('C:\Stew\apache\htdocs\imperiusupdate\*.*', faAnyFile, F);
  try
    Ret := FindNext(F);
    Ret := FindNext(F);
    lbarq.Clear;
    while Ret = 0 do
    begin
      lbarq.Items.Add(F.name);
      Ret := FindNext(F);
    end;
    lbarq.SaveToFile('C:\Stew\apache\htdocs\imperiusqueue.txt');
  finally
    FindClose(F);
  end;
end;
Até mais.

[Casanova]

Valeu meu amigo , muito obrigado !!!