- 积分
- 874
- 下载分
- 分
- 威望
- 点
- 原创币
- 点
- 下载
- 次
- 上传
- 次
- 注册时间
- 2006-10-31
- 精华
|
6#
发表于 2009-12-25 09:04:25
|
只看该作者
来自: 重庆 来自 重庆
今天有空把原代码整理了一下,发上来。大家可看看,其实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. |
|