您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi文件操作所涉及的一些函数(5)

时间:2011/9/3 15:20:08 点击:


  
//建立新文件 FileCreate   
var  
  FileName: string;   
  i: Integer;   
begin  
  FileName := 'c:\temp\test.dat';   
  i := FileCreate(FileName);   
  
  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:总空间, 单位是字节   
  r := r/1024/1024/1024;   
  Str(r:0:2,s); //格式为保留两位小数的字符串   
  s := 'C盘总空间是: ' + s + ' GB';   
  ShowMessage(s); //xx.xx GB   
  
  r := DiskFree(3); //获取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;    
   

上一页1234567下一页

作者:webfly 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号