[原创]用DELPHI写的U盘免疫程序 - 迅维网

2009-12-8 09:23 上传

点击文件名下载附件

作者: 单多 时间: 2009-12-8 09:32
也想学编程，但不知道从何学起

作者: yzz163 时间: 2009-12-8 09:34
我也是边看书，边学习做程序。这个是为　家电控制器　的上位机做准备的。
http://www.chinafix.com.cn/thread-155605-1-1.html

作者: 王大修 时间: 2009-12-8 09:49
编程我不会，余管的病毒免疫方式很不错。

作者: zengronghk 时间: 2009-12-8 09:51
不错哦，应该比较简单，生成一个特别的目录。

作者: yzz163 时间: 2009-12-25 09:04
今天有空把原代码整理了一下，发上来。大家可看看，其实delphi编程（小软件）是很简单的。
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ListBox1: TListBox;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function get_drives():tstringlist; //获取磁盘
var
i:integer;
n:integer;
a:tstringlist;
begin
a:=tstringlist.Create;

for i:=65 to (65+25) do
begin
   n:=getdrivetype(pchar(chr(i)+':\'));
   case n of
      drive_removable:
         a.add(chr(i)+':\（移动硬盘）');
      drive_fixed:
         a.add(chr(i)+':\（硬盘）');
   end;
end;

result:=a;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.assign(get_drives());
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;//退出程序运行
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
listbox1.Clear;
listbox1.Items.assign(get_drives());
for i:=0 to listbox1.Items.Count-1 do
begin
   s:=copy(listbox1.Items.Strings[i],1,1); //得到磁盘名
   winexec(pchar('cmd.exe /c md '+s+':\autorun.inf\'),sw_hide); //建立AUTORUN.INF目录
   winexec(pchar('cmd.exe /c md '+s+':\autorun.inf\免疫..\'),sw_hide);//建立畸形目录
   listbox1.items.Add(s+':\  免疫成功！');
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
s:string;
begin
listbox1.Clear;       //清除列表
listbox1.Items.assign(get_drives());          //装入磁盘
for i:=0 to listbox1.Items.Count-1 do
begin
   s:=copy(listbox1.Items.Strings[i],1,1); //得到磁盘名
   winexec(pchar('cmd.exe /c rd '+s+':\autorun.inf /s/q'),sw_hide); //删除AUTORUN.INF目录
   listbox1.items.Add(s+':\ 解除成功！');
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  listbox1.Items.assign(get_drives());
end;

end.

作者: yzz163 时间: 2011-1-18 17:44
今天弄一个U盘,顺便整理一下,其实就是两句DOS命令:
g:>md g:\autorun.inf\autorun.inf\免疫..\ (建立畸形目录)
g:>rd g:\autorun.inf /s/q (删除顽固文件)

欢迎光临迅维网 (https://www.chinafix.com/)