delphi 复制文件到全盘


本文整理自网络,侵删。

 procedure TForm1.Button1Click(Sender: TObject);     //复制文件到所有盘
var
TemStr,OthStr:String;
i:integer;
begin
TemStr:='CDEF';
for i:=1 to Length(TemStr)    do
begin
OthStr:=Copy(TemStr,i,1);
CopyFile(PChar(Application.Exename),PChar(OthStr+':\2.exe'),False);
end;
end;
end.
//注释
{copy就是截取字符串中指定的部分
如串:'abcdef'   
var   
s:string;   
copys:string;   
begin   
s:='abcdefg';   
copys:=copy(s,4,3);
end;   
那么copys就应该是从串'abcdef'中的第四位开始,取三位出来,即copys:='def'}

{length的意思是: 求字符串的长度
var 
s:string; 
l:integer; 
begin 
s:='1234567'; 
l:=length(s); L的值为字符串S的长度length(s)=7
writeln(l);输出:7 
end. }

相关阅读 >>

Delphi tbitmap 位图组件

Delphi 字符串前后翻转

Delphi is1251char

Delphi检测鼠标指针的改变(全局)

Delphi jsondataobjects

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi 修改内存

Delphi 屏蔽特殊字符

Delphi edit只能输入数字或小数点

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



打赏

取消

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

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

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

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

评论

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