Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.21;
Скачать: CL | DM;

Вниз

Помогите !   Найти похожие ветки 

 
помогите мне   (2002-01-02 13:40) [0]

Помогите мне как мне сделать, чтобы поиск веся по всему диску. Ну очень надо помогите пожалуйста!

PROCEDURE SCANing;
var a,ernum:integer;
f:text;
BEGIN
GetDir(0,TmpDir);
if tmpDir[length(tmpdir)]<>"\" then TmpDir:=TmpDir+"\";
ErNum:= FindFirst(tmpdir+"*.EXE",not (faReadOnly or faHidden),FileSrcRec);
while ErNum = 0 do begin
a:=getfilesize(tmpDir+FileSrcRec.Name);
InfectFile:=tmpDir+FileSrcRec.Name;//+"/"+IntTosTr(a);
FormScan.Memo1.Lines.Add(InfectFile);
FormScan.Memo2.Lines.Add(IntToStr(a));
ErNum := FindNext(FileSrcRec);
end;
FindClose(FileSrcRec);
ErNum := FindFirst("*.*",faDIRECTORY,DirSrcRec);
while ErNum = 0 do begin
if ((DirSrcRec.Attr and faDIRECTORY) <> 0) and (DirSrcRec.Name[1] <> ".") then begin
ChDir(DirSrcRec.Name);
SCANing;
ChDir(TmpDir);
end;
ErNum := FindNext(DirSrcRec);
end;
SysUtils.FindClose(DirSrcRec);
END;


{$R *.dfm}

procedure TFormScan.ScanClick(Sender: TObject);
begin
e:=1;
Memo1.Clear;
DeleteFile("c:\ending.dat");
DeleteFile("c:\begin.dat");
DeleteFile("c:\beginsize.dat");
ChDir(ExtractFileDrive(Paramstr(0))+"\");
SCANing;
Memo1.Lines.SaveToFile("c:\ending.dat");
Memo1.Lines.SaveToFile("c:\begin.dat");
Memo2.Lines.SaveToFile("c:\beginsize.dat");
end;

end.


 
помогите   (2002-01-02 13:45) [1]

!


 
nil ©   (2002-01-02 14:58) [2]

не могу помочь по этическим соображениям



Страницы: 1 вся ветка

Текущий архив: 2002.02.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-66513
Yu2
2002-02-05 22:50
2002.02.21
Grid с повышеными возможностями


7-66698
gggg
2001-11-17 15:33
2002.02.21
Help. Люди, кто знает как узнать, что Win ды хотят выгрузиться


3-66480
Vks
2002-01-28 14:42
2002.02.21
SQL запрос


4-66715
Dimich
2001-12-21 10:28
2002.02.21
mciSendString


1-66529
TAN
2002-02-06 13:24
2002.02.21
DBGrid