最近，在学习DELPHI编程，写了个磁盘免疫的程序，就是给每个磁盘建立个Autorun.inf目录，在该目录里放一个WIN下不能访问、删除的文件夹（但ＤＯＳ下可以），就可阻止此类病毒的感染了。没啥特别的地方，只是做成了能在ＷＩＮ下运行的程序，操作简单点。
mianyi.rar
评论
也想学编程，但不知道从何学起
评论
我也是边看书，边学习做程序。这个是为 家电控制器 的上位机做准备的。
http://.cn/thread-155605-1-1.html
评论
编程我不会，余管的病毒免疫方式很不错。
评论
不错哦，应该比较简单，生成一个特别的目录。
评论
今天有空把原代码整理了一下，发上来。大家可看看，其实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.
评论
今天弄一个U盘,顺便整理一下,其实就是两句DOS命令:
g:>md g:\autorun.inf\autorun.inf\免疫..\ (建立畸形目录)
g:>rd g:\autorun.inf /s/q (删除顽固文件) 电路 电子 维修 求创维42c08RD电路图 评论 电视的图纸很少见 评论 电视的图纸很少见 评论 创维的图纸你要说 版号，不然无能为力 评论 板号5800-p42ALM-0050 168P-P42CLM-01 电路 电子 维修 我现在把定影部分拆出来了。想换下滚，因为卡纸。但是我发现灯管挡住了。拆不了。不会拆。论坛里的高手拆解过吗？ 评论 认真看，认真瞧。果然有收
·日本中文新闻 唐田绘里香为新剧《极恶女王》剃光头 展现演员决心
·日本中文新闻 真子小室夫妇新居引发隐私担忧
·日本中文新闻 前AKB48成员柏木由纪与搞笑艺人交往曝光
·日本学校 ｛日本国际学校｝梅田インターナショナルスクール
·日本学校 LINE：sm287 陳雨菲、20歳、台湾からの留学生、東京に来たばかり
·日本留学生活 出售平成22年走行48000km 代步小车
·日本华人网络交流 円相場 一時1ドル＝140円台まで上昇？
·日本华人网络交流 问日本华人一个问题
·日本旅游代购 富山接机
·生活百科 英国转澳大利亚转换插头
·汽车 【求助】修车遇到困难怎么办？