delphi建文件夹
A. delphi中CreateDirectory和CreateDir有什么区别创建文件夹的同时能定义文件夹的属性吗
CreateDirectory可以再创建目录是指定文件夹的属性,CreateDir则不能。
B. delphi xe5怎么让image图片自动保存并新建文件夹
image没有自动保存功能,除非你派生一个能这么做的类,一切都靠你自己掌握
C. Delphi 7创建文件夹的问题
DateToStr()返回的字符串格式跟系统的日期分隔符有关,只有当系统的日期分隔符是“-”和“.”时,用返回的字符串通过ForceDirectories()创建文件夹才会成功。系统的日期分隔符是“/”时是不行的。 在XP下也一样。系统的日期分隔符在用资源管理器浏览文件的“详细信息”视图下就看得出来。
D. 我想在DELPHI 中在本机PROGRAM FILES 文件夹下建立一个目录123
var
adr:array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH);
end;
adr里面就是你想要的路径,然后在去创建目录去。
E. 怎么用delphi建立一个文件夹
给你个函数吧
/*******************************************************************************
* 建立文件夹路径函数 *
*******************************************************************************/
int SearchStr(CString Source,char SearChar,int Howth) //搜索匹配的字符位置
{
int HowBit;
HowBit = Howth;
int len = strlen(Source);
for (int i = HowBit;i <len;i++)
{
if (Source[i] == SearChar)
{
return i;
break;
}
}
return -1 ;
}
/*******************************************************************************
* 建立文件夹 *
*******************************************************************************/
void CreatePath(CString Path)
{
int SearSult = SearchStr(Path, ': ',1);
CString a;
CString Pathstr;
int len = strlen(Path);
while(SearSult != -1)
{
SearSult = SearchStr(Path, '\\ ',SearSult+3);
if(SearSult!=-1)
{
Pathstr = Path.Left(SearSult);
if(_access(Pathstr,0)!=0)
CreateDirectory(Pathstr,0);
}
else
break;
}
if(Path[len-1]!= '\\ ')
{
if(_access(Path,0)!=0)
CreateDirectory(Path,0);
}
}
F. 如何用DELPHI创建一个文件夹和一个文本文件
创建文件:
CreateFile(FileName, fmCreate,)
创建文件夹:
ForceDirectiory
帮助里面有这两个函数的详细说明。
G. 用delphi7.0写一个生成文件夹的程序
var
path:string;
str:TStringList;
begin
path:='C: est';
CreateDir(path);
str:=TStringList.create;
str.text:='这是测试';
str.savetofile(path+'file.txt');
str.free;
end;
H. Delphi判断文件夹是否存在,不存在就创建一个
delphi 判断文件夹目录可以使用 DirectoryExists 函数,而创建目录可以使用 CreateDir 和ForceDirectories 函数。
CreateDir 和ForceDirectories 函数都可以创建文件夹,两者的区别在于:
ForceDirectories 创建多级目录,父目录不必存在;而 CreateDir 只能创建最后的一级目录,父目录必须存在。举例说明:
如果需要建立 d:path1subPath1,那么CreateDir 函数只能先建立d:path1(或必须该路径存在),再建立d:path1subPath1。而用ForceDirectories 函数可以一次性建立。
示例代码如下:
procereTForm1.Button1Click(Sender:TObject);
begin
ifnotDirectoryExists(Edit1.Text)then//判断目录是否存在
try
begin
ForceDirectories(Edit1.Text);//创建目录
end;
finally
raiseException.Create('无法建立路径:'+Edit1.Text);
end;
end;
I. 如何禁止 delphi 创建history文件夹
//创建单个文件夹
uses Windows;
CreateDirectory('C:/history', nil);
//创建多级文件夹
uses FileCtrl;
ForceDirectories('C:/history/1/2/3');