请问各位高手可否留下一个文件复制的程序,先谢了
解决方案 »
- 在程序运行期动态设置控件焦点顺序,listbox1里面能否改成中文名称呢?
- 如何在 dbgrid 中这样用 combobox ?
- 急急:TQuickRep自定义打印页面大小代码,
- 制作串口通讯Dll动态库方案
- 请问谁用过遗传算法,开发排课系统,谢谢指教了。。。
- 为什么我在关闭这个窗体后 再次打开运行的时候 曲线就显示不出来呢 ????顶者有份!!!!!!
- Raize 有没有问题,进者有分
- 有个问题我没解决,不知道大家有没有兴趣讨论一下!关于动态产生控件的。@_#
- 请问各位大侠用client中传输自定义数据类型时如何在server中接收
- 是什么错误?[Fatal Error] XXX.dpr(1): file not found: 'System.pas'
- 那有pascal的编陈平台可以下载啊,就象TARBO PASCAL5.5那样的,或者有谁能寄一份给我,不胜感激,[email protected]
- 300分求MD5算法源码和解密算法
http://expert.csdn.net/Expert/topic/1225/1225130.xml?temp=.9217798
http://expert.csdn.net/Expert/topic/1379/1379283.xml?temp=.6265833
http://expert.csdn.net/Expert/topic/1379/1379306.xml?temp=.5951807搜索一下,还有更多 ~
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
if CreateDir('c:\Test3') then
ShowMessage('目录成功的创建')
else
ShowMessage('指定目录无法创建');
end;end.