Форум: "Потрепаться";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
помогите мне   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c