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 !
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
Obrigado por ter respondido vou procurar saber mais sobre isso.
Valeu OnlyOne !
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.
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.
Valeu meu amigo , muito obrigado !!!