最近,因为项目的需要,我用Delphi开发了一个小的程序。程序的功能就是选择一个文件,而后可以指定复制多少个相同的文件,用这些复制的文件做并发上传文件用。下面附源码和可执行文件。
源码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIButton, Buttons, StdCtrls, ExtCtrls, SUIForm, ComCtrls;
type
TForm1 = class(TForm)
suiForm1: TsuiForm;
lbl1: TLabel;
edt1: TEdit;
btn1: TSpeedButton;
lbl2: TLabel;
edt2: TEdit;
btn2: TsuiButton;
btn3: TsuiButton;
dlgOpen1: TOpenDialog;
pb1: TProgressBar;
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
var
i:integer;
str:string;
begin
if Trim(edt1.Text)='' then begin
Application.MessageBox('请选择要复制的源文件!', '提示', MB_OK +
MB_ICONINFORMATION);
btn1.Click();
Exit;
end;
try
if StrToInt(edt2.Text)<=0 then begin
edt2.Clear;
edt2.SetFocus;
Exit;
end;
except
Application.MessageBox('请输入合法数值!', '提示', MB_OK +
MB_ICONINFORMATION);
edt2.Clear;
edt2.SetFocus;
exit;
end;
pb1.Max:=StrToInt(edt2.Text);
if not DirectoryExists('c:/测试数据') then
ForceDirectories('c:/测试数据');
for i:=1 to StrToInt(edt2.Text) do
begin
try
str:='c:/测试数据/'+Copy(ExtractFileName(edt1.Text),1,Length(ExtractFileName(edt1.Text))-4)+inttostr(i)+Copy(ExtractFileName(edt1.Text),Length(ExtractFileName(edt1.Text))-4+1,4);
CopyFile(PChar(edt1.text),PChar(str),False);
pb1.Position:=i;
except
end;
end;
Application.MessageBox('文件生成完毕,数据存放于"c:/测试数据"目录!', '提示', MB_OK +
MB_ICONINFORMATION);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
dlgOpen1.Execute;
edt1.Text:=dlgOpen1.FileName;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
可执行文件:文件批量复制小程序
分享到:
相关推荐
数字证书:从文件中读取数字证书,生成文件输入流,输入文件为c:/mycert.cer,获取一个处理X.509证书的证书工厂…… Java+ajax写的登录实例 1个目标文件 内容索引:Java源码,初学实例,ajax,登录 一个Java+ajax写...
数字证书:从文件中读取数字证书,生成文件输入流,输入文件为c:/mycert.cer,获取一个处理X.509证书的证书工厂…… Java+ajax写的登录实例 1个目标文件 内容索引:Java源码,初学实例,ajax,登录 一个Java+ajax写...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
其中 helloscons.c 是程序的源文件,SConstruct 是 scons 的配置文件,类似使用 make 工具时的 Makefile 文件,因此,为了编译你的项目,需要手工创建一个 SConstruct 文件(注意:文件名是大小写敏感的)。...
gSOAP编译工具提供了一个SOAP/XML 关于C/C++ 语言的实现,从而让C/C++语言开发web服务或客户端程序的工作变得轻松了很多。绝大多数的C++web服务工具包提供一组API函数类库来处理特定的SOAP数据结构,这样就使得用户...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理...
这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用,只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试! 如题。详细见源码。 GMem 内存管理单元源码。GMem.cpp...
执行 Windows 及 DOS 下的可执行文件 模拟击键动作(支持大多数的键盘布局) 模拟鼠标移动和点击动作。 对窗口进行移动、调整大小和其它操作。 直接与窗口的“控件“交互(设置/获取 文字、移动、关闭,等等) 配合...
换句话说,您需要创建一个自解压的可执行文件来封装安装文档。 Inno Setup Unpacker 可以帮助您避免此类操作,这特别有用,因为多种系统安全协议会阻止可执行文件的下载。该程序允许您通过几次按键从存档中提取文件...
下面这个模块是我使用易语言时写补丁最常用的一个模块(当然很多也是抄的),一开始我觉得bug肯定会很多,放出去肯定又会坑很多人,后来我发现坑坑更健康,当你明白一个东西的优缺点之后,你才会更好的选择你所需要...
9、后台用户暴力删除 10、充值可以充小数金额 11、增加消费券的位数为12位,避免生成消费券重复 12、优惠券有效期可通过修改团购时间修改 n、其他 2010年11月15日正式发布 1、增加一日多团功能,可以设置首页显示多...
生成消费券重复 12、优惠券有效期可通过修改团购时间修改 n、其他 2010年11月15日正式发布 1、增加一日多团功能,可以设置首页显示多个团购项目 2、增加商户点评功能,购买过的用户可在7日内修改评价 3、积分兑换...
更多项目内容可下载查看,源代码已经打包好上传,且生成了exe可执行文件版本,点开即可直接运行。 项目导入到pycharm等编译器当中可以查看程序的源代码,对源码进行编辑查看等操作。有兴趣的话直接下载即可。 ...
更多项目内容可下载查看,源代码已经打包好上传,且生成了exe可执行文件版本,点开即可直接运行。 项目导入到pycharm等编译器当中可以查看程序的源代码,对源码进行编辑查看等操作。有兴趣的话直接下载即可。 ...
实例128 获取数组中最后一个元素 158 实例129 去除数组中的重复元素 158 实例130 字符串与数组的转换 159 实例131 对数组元素进行随机排序 160 实例132 随机抽取数组中元素 161 实例133 二维数组的输出 162 实例134 ...
FindDup 是一个简单易用的工具,用来检查计算机上重复的文件。 OpenID的Java客户端 JOpenID JOpenID是一个轻量级的OpenID 2.0 Java客户端,仅50KB+(含源代码),允许任何Web网站通过OpenID支持用户直接登录而无需...