uscript.pas

用delphi写的杀毒软件的源程序

unit uScript;

interface

uses
  Windows, SysUtils, Messages;

procedure RunScript(I:Integer;ScriptType:Integer;LFileName:String);
procedure DeleteVirusFile(sFileName:String);

implementation

uses Unit1;

procedure RunScript(I:Integer;ScriptType:Integer;LFileName:String);
var
 WinDir, SystemDir:String;
begin
 WinDir:= Form1.WinDir;
 SystemDir:= Form1.SystemDir;

 if ScriptType=1 then
 begin
  if (i=1) or (i=2) then i:=0;
  case I of
   0: begin
    DeleteVirusFile(WinDir+SystemDir+'msnus.exe');
    DeleteVirusFile(WinDir+SystemDir+'winis.exe');
    DeleteVirusFile(WinDir+SystemDir+'winhost.exe');
   end;
   4: DeleteVirusFile(WinDir+SystemDir+'updates.exe');
   5: DeleteVirusFile(WinDir+SystemDir+'msnmsr.exe');
   6: DeleteVirusFile(WinDir+SystemDir+'isass.exe');
   7: begin
    DeleteVirusFile(WinDir+'integitor.exe');
    DeleteVirusFile(WinDir+SystemDir+'integitor.exe');
   end;
   8: begin
    DeleteVirusFile(WinDir+'msmbw.exe');
    DeleteVirusFile(WinDir+SystemDir+'msmbw.exe');
   end;
  else
   Form1.Memo1.Lines.Add('没有处理！');
  end;
 end;

 if ScriptType=2 then
 begin
  case I of
   2: begin
    DeleteVirusFile(LFileName);
   end;
   3: begin
    Form1.Memo1.Lines.Add('发现不知名病毒！');
    DeleteVirusFile(WinDir+'n0tepad.exe');
    DeleteVirusFile(WinDir+'system\n0tepad.exe');
    DeleteVirusFile(WinDir+SystemDir+'n0tepad.exe');
    DeleteVirusFile(LFileName);
   end;
  else
   Form1.Memo1.Lines.Add('没有处理！');
  end;
 end;
end;

procedure DeleteVirusFile(sFileName:String);
begin
 while FileExists(sFileName) do
 begin
  SetFileAttributes(PChar(sFileName),FILE_ATTRIBUTE_ARCHIVE);
  if DeleteFile(sFileName) then
   Form1.memo1.Lines.Add('病毒文件'+sFileName+'删除成功！');
 end;
end;

end.