首页    新闻    下载    文档    论坛     最新漏洞    黑客教程    数据库    搜索    小榕软件实验室怀旧版    星际争霸WEB版    最新IP准确查询   
名称: 密码:      忘记密码  马上注册
安全知识 :: 黑客教程

在delphi中进行文件及目录的相关操作


http://www.gipsky.com/
一、创建目录与删除目录



porcedure CreateDir(DirectoryPath:String);

begin

if (not DirectoryExists(DirectoryPath)) then

begin

CreateDirectory(pchar(DirectoryPath),nil);

end;

end;





procedure DeleteDir(DirectoryPath:String);

begin

if (not DirectoryExists(DirectoryPath)) then

begin

RemoveDirectory(pchar(DirectoryPath),nil);

end;

end;



二、文件操作



Procedure SaveLogFile(errStr:String);

var

DirectoryPath:String;

logFileName:String;

begin

logFileName := FormatDateTime('YYYYMMDDhh',now) '.txt';//每小时记录一个文件

DirectoryPath := ExtractFilePath(paramstr(0)) 'errlog\\';

if (not DirectoryExists(DirectoryPath)) then

begin

CreateDirectory(pchar(DirectoryPath),nil);

end;

if not fileExists(DirectoryPath logFileName) then

begin

NewTxt(DirectoryPath logFileName);

AppendTxt(DirectoryPath logFileName,errStr);

end

else

AppendTxt(DirectoryPath logFileName,errStr)

end;



Procedure AppendTxt(filePath:String;Str:String);

Var

F:Textfile;

Begin

AssignFile(F, filePath);

Append(F);

Writeln(F, Str);

Closefile(F);

End;

//新建文件

Procedure NewTxt(filePath:String);

Var

F : Textfile;

Begin

AssignFile(F, filePath);

ReWrite(F);

Closefile(F);

End;



Procedure FileCopy( Const sourcefilename, targetfilename: String );

Var

S, T: TFileStream;

Begin

S := TFileStream.Create( sourcefilename, fmOpenRead );

try

T := TFileStream.Create( targetfilename,fmOpenWrite or fmCreate );

try

T.CopyFrom(S, S.Size );

finally

T.Free;

end;

finally

S.Free;

end;

End;



//删除文件



procedure delFile(filePath:String)



begin

if fileExists(filePath) then

begin

DeleteFile(pchar(filePath));

end;

end;



//获得文件名



procedure getFileName;

var

filename:String;

begin

filename := ChangeFileExt(filename,'')

end;
<< Delphi编译错误中文手册 网上收集:Delphi 下载文件方法- - >>
评分
10987654321
API:
gipsky.com& 安信网络
网友个人意见,不代表本站立场。对于发言内容,由发表者自负责任。

系统导航

 

Copyright © 2001-2010 安信网络. All Rights Reserved
京ICP备05056747号