Delphi中ExtractFilePath、ParamStr以及更多文件/目录操作涉及的函数。附加对应的例子

先介绍ExtractFilePath和ParamStr        

ParamStr

  该函数的原型是:function paramstr(i: Integer): String;

  对于任何的application,paramstr(0)都默认代表的是应用程序的绝对路径。假如你这个编译号的exe 文件在 d:\delphi下,名字叫做 project1.exe。那么 在该应用程序中paramstr(0)返回:d:\delphi\project1.exe。这个值是变的,exe程序在哪,这个值就变为哪儿。

  那么有paramstr(0),就肯定有paramstr(1),paramstr(2)…了。它们的值又是什么了?我试了下取出的是空值,又不能赋值。

  delphi帮助中说Returns a specified parameter from the command-line.从命令行中返回一个特别的参数。折腾了半天才搞清楚,就是在exe文件后面可以跟参数,paramstr 获取的就是exe文件后面跟参数。

  如有可执行文件project1.exe 在运行(cmd命令行)中输入 e:\project1.exe 123 456 789。 那么paramstr(1)=’123′ paramstr(2)=’456′ paramstr(3)=’789′

  用shellexecute的话可以在parameters参数位置输入值。不同的参数值之间用空格隔开。如 

shellexecute(application.Handle,’open’,’project4.exe’,’123 456′, ‘e:\’,SW_SHOW);

  所以用paramstr可以在应用程序间进行数据传输。

 

ExtractFilePath

  功能:返回完整文件名中的路径。 具体使用的方法参见例子:

Extractfilepath(‘d:\delphi\project1.exe’) ;
// 就等于 ‘d:\delphi\’ ,它就是把最后的文件名去掉,只要路径,且路径最后有 \

  函数原型如下:  function ExtractFilePath(const FileName: string): string;

  ExtractFilePath和相近函数:

ExtractFileDrive :返回完整文件名中的驱动器,如”C:”

ExtractFilePath:返回完整文件名中的路径,最后带“/”,如”C:\test\”

ExtractFileDir:返回完整文件名中的路径,最后不带“/” ,如”C:\test”

ExtractFileName:返回完整文件名中的文件名称 (带扩展名),如”mytest.doc”

ExtractFileExt: 返回完整文件名中的文件扩展名(带.),如”.doc”

 

  上面这么多,就是取得当前可执行文件的当前路径,这里就有一个应用的示例:

myini := TIniFile.Create(ExtractFilePath(ParamStr(0))+’Config.ini’);

  config.ini 和你的可执行文件是在同一级目录下的,,这样就找到config.ini文件了.

 

再介绍更多常用的文件操作函数            

  FileExists:判断文件是否存在

  DirectoryExists:判断文件夹是不是存在

  DeleteFile、Windows.DeleteFile:删除文件

  RemoveDir、RemoveDirectory:删除文件夹

  GetCurrentDir:获取当前文件夹

  SetCurrentDir、ChDir、SetCurrentDirectory:设置当前文件夹

  GetDir:获取指定驱动器的当前路径名

  RenameFile:文件重命名

  CreateDir、CreateDirectory、ForceDirectories:建立文件夹

  RemoveDir、RemoveDirectory:删除空文件夹

  FileCreate:建立新文件

  GetFileVersion:获取当前文件的版本号

  DiskSize、DiskFree:获取磁盘空间

  FindFirst、FindNext、FindClose:搜索文件

  FileGetAttr、FileSetAttr:读取与设置文件属性

  FileAge、FileDateToDateTime:获取文件的创建时间

 

以上函数的代码示例                 

FileExists:判断文件是否存在

var
    f: String;
begin
    f:= 'c:/temp/test.txt';
    if not FileExist(f) then
    begin
        //如果文件不存在
    end;
end;

  

DirectoryExists:判断文件夹(路径)是否存在

var
    dir: String;
begin
    dir:= 'c:/temp';
    if not DirectoryExists(dir) then
    begin
        //如果文件夹不存在
    end;
end;

  

DeleteFile、Windows.DeleteFile:删除文件

var
    f: String;
begin
    f:= 'c:/temp/test.txt';
    //DeleteFile(f);    //返回Boolean
    
    //或者使用系统API,也返回Boolean
    Windows.DeleteFile(PChar(f));    //注意这里需要对String类型进行类型转换,转换为PChar,我的理解是Windows的API需要兼容C和Delphi,所以使用Char数组类型的字符串正好可以同时满足两种语言的结构

end;

  

RemoveDir、RemoveDirectory:删除文件夹 

var
    dir: String;
begin
    dir:= 'c:/temp';
    RemoveDir(dir);    //返回Boolean

    //或者使用系统API
    //RemoveDirectory(PChar(dir));    //返回Boolean
end;

  

GetCurrentDir:获取当前文件夹

var
    dir: String;
begin
    dir:= GetCurrentDir;  //  C:/Projects   
    ShowMessage(dir);
end;

  

SetCurrentDir、ChDir、SetCurrentDirectory:设置当前文件夹

var
    dir: String;
begin
    dir:= 'c:/temp';
    if SetCurrentDir(dir) then
        ShowMessage(GetCurrentDir);  // c:/temp

    //或者使用 ChDir(dir); 这个函数无返回值
    //也可以使用系统API:SetCurrentDirectory(PChar(dir));    返回Boolean
end;

  

GetDir:获取指定驱动器的当前路径名

var
    dir: String;
    b: Byte;
begin
    b:= 0;
    getDir(b, dir);
    ShowMessage(dir);
    //第一个参数:1、2、3、4……分别对应:A、B、C、D……
    //0是缺省驱动器
end;

  
RenameFile:文件改名

//文件改名 RenameFile   
var  
  OldName,NewName: string;   
begin  
  OldName := 'c:/temp/Old.txt';   
  NewName := 'c:/temp/New.txt';   
  
  if RenameFile(OldName,NewName) then  
    ShowMessage('改名成功!');   
  
//也可以:   
  SetCurrentDir('c:/temp');
//所以可以看出来,SetCurrentDir是切换目录路径(上面所说的设置路径就是指切换目录路径)   
  OldName := 'Old.txt';   
  NewName := 'New.txt';   
  
  if RenameFile(OldName,NewName) then  
    ShowMessage('改名成功!');   
end; 

  

CreateDir; CreateDirectory; ForceDirectories: 建立文件夹 

var
    dir: String;
begin
    dir:= 'c:/temp/delphi';
    if not DirectoryExists(dir) then
        CreateDir(dir);    //返回Boolean
        //也可以直接使用系统API
        //CreateDirectory(PChar(dir), nil);    //返回Boolean
    
    //如果缺少上层目录将自动补齐
    dir:= 'c:/temp/CodeGear/Delphi/2007/万一';
    ForceDirectories(dir);    //返回Boolean
end;

  

RemoveDir、RemoveDirectory删除空文件夹

var
    dir: String;
begin
    dir:= 'c:/temp/delphi';
    RemoveDir(dir);    //返回Boolean

    //也可以使用系统API
    //RemoveDirectory(PChar(dir));    //返回Boolean
end;

  

FileCreate:建立新文件

var  
  FileName: string;   
  i: Integer;   
begin  
  FileName := 'c:/temp/test.dat';   
  i := FileCreate(FileName);   
  //FileCreate返回的是创建的文件的句柄,大于0成功,否则失败
  
  if i>0 then  
    ShowMessage('新文件的句柄是: ' + IntToStr(i))   
  else  
    ShowMessage('创建失败!');   
end;   

  

GetFileVersion获取当前文件的版本号

var
    s:String;
    i: Integer;
begin
    s:= 'C:/WINDOWS/notepad.exe';
    i:= GetFileVersion(s);
    //如果没有版本号就返回-1
    ShowMessage(IntToStr(i));    //327681 这是当前记事本的版本号(还应该再转换一下)   
end;

  

DiskSize、DiskFree:获取磁盘空间

var
    r: Real;
    s: String;
begin
    r:= DiskSize(3);    //获取C:(序号是3)的总空间,单位是字节
    r:= r/1024/1024/1204;
    Str(r:0:2, s);    //格式为保留两位小数的字符串
    s:='C盘的总空间是:' + s + ' GB';
    ShowMessage(s);    //xx.xx GB

    r:= DiskFree(s);    //获取C: 盘的可用空间
    r:= r/1024/1024/1024;
    Str(r:0:2, s);
    s:= 'C盘的可用空间是:' + s + ' GB';
    ShowMessage(s);    //xx.xx GB
end;

  

FileSearch:查找一个文件

var
    FileNAme, Dir, s: String;
begin
    FileName:= 'notepad.exe';
    Dir:= 'c:/windows';
    s:= FileSearch(FileName, Dir);

    if s <> '' then
        ShowMessage(s)    // c:/windows/notepad.exe
    else
        ShowMessage('没找到');
end;

  

FindFirst、FindNext、FindClose:搜索文件

var  
  sr: TSearchRec;    //定义 TSearchRec 结构变量   
  Attr: Integer;     //文件属性   
  s: string;         //要搜索的内容   
  List: TStringList; //存放搜索结果   
begin  
  s := 'c:/windows/*.txt';   
  Attr := faAnyFile;             //文件属性值faAnyFile表示是所有文件   
  List := TStringList.Create;    //List建立   
  
  if FindFirst(s,Attr,sr)=0 then //开始搜索,并给 sr 赋予信息, 返回0表示找到第一个   
  begin  
    repeat                       //如果有第一个就继续找   
      List.Add(sr.Name);         //用List记下结果   
    until(FindNext(sr)<>0);      //因为sr已经有了搜索信息, FindNext只要这一个参数, 返回0表示找到   
  end;   
  FindClose(sr);                 //需要结束搜索, 搜索是内含句柄的   
  
  ShowMessage(List.Text);        //显示搜索结果   
  List.Free;                     //释放List   
  
//更多注释:   
//TSearchRec 结构是内涵文件大小、名称、属性与时间等信息   
//TSearchRec 中的属性是一个整数值, 可能的值有:   
//faReadOnly  1   只读文件   
//faHidden    2   隐藏文件   
//faSysFile   4   系统文件   
//faVolumeID  8   卷标文件   
//faDirectory 16  目录文件   
//faArchive   32  归档文件   
//faSymLink   64  链接文件   
//faAnyFile   63  任意文件   
  
//s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是*, 譬如: C:/*   
//实际使用中还应该在 repeat 中提些条件, 譬如判断如果是文件夹就递归搜索等等   
end;   

  

FileGetAttr、FileSetAttr:读取与设置文件属性

var  
  FileName: string;   
  Attr: Integer; //属性值是一个整数   
begin  
  FileName := 'c:/temp/Test.txt';   
  Attr := FileGetAttr(FileName);   
  ShowMessage(IntToStr(Attr)); //32, 存档文件   
  
//设置为隐藏和只读文件:   
  Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;   
  if FileSetAttr(FileName,Attr)=0 then //返回0表示成功   
    ShowMessage('设置成功!');   
  
//属性可选值(有些用不着):   
//FILE_ATTRIBUTE_READONLY = 1; 只读   
//FILE_ATTRIBUTE_HIDDEN = 2; 隐藏   
//FILE_ATTRIBUTE_SYSTEM = 4; 系统   
//FILE_ATTRIBUTE_DIRECTORY = 16   
//FILE_ATTRIBUTE_ARCHIVE = 32; 存档   
//FILE_ATTRIBUTE_DEVICE = 64   
//FILE_ATTRIBUTE_NORMAL = 128; 一般   
//FILE_ATTRIBUTE_TEMPORARY = 256   
//FILE_ATTRIBUTE_SPARSE_FILE = 512   
//FILE_ATTRIBUTE_REPARSE_POINT = 1204   
//FILE_ATTRIBUTE_COMPRESSED = 2048; 压缩   
//FILE_ATTRIBUTE_OFFLINE = 4096   
//FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192; 不被索引   
//FILE_ATTRIBUTE_ENCRYPTED = 16384   
end;   

  

FileAge、FileDateToDateTime:获取文件的创建时间

var  
  FileName: string;   
  ti: Integer;   
  dt: TDateTime;   
begin  
  FileName := 'c:/temp/Test.txt';   
  ti := FileAge(FileName);   
  ShowMessage(IntToStr(ti)); //返回: 931951472, 需要转换   
  
  dt := FileDateToDateTime(ti); //转换   
  ShowMessage(DateTimeToStr(dt)); //2007-12-12 14:27:32   
end;  

  

posted @ 2015-07-31 13:59  xumenger  阅读(2833)  评论(0编辑  收藏  举报

业精于勤而荒于嬉,行成于思而毁于随

十万小时的反复练习