Delphi 7 文件管理類函數

文件管理類函數(1)
//判斷文件是否存在 FileExists
var
  f: string;
begin
  f := 'c:/temp/test.txt';
  if not FileExists(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:
  Windows.DeleteFile(PChar(f));  //返回 Boolean
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;
  ShowMessage(dir); //C:/Documents and Settings/wy/My Documents/RAD Studio/Projects
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
var
  OldName,NewName: string;
begin
  OldName := 'c:/temp/Old.txt';
  NewName := 'c:/temp/New.txt';
  if RenameFile(OldName,NewName) then
    ShowMessage('改名成功!');
  //也可以:
  SetCurrentDir('c:/temp');
  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);
  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;
文件管理類函數(2)
//查找一個文件 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;

Delphi 7 文件管理類函數

樹上跳棋

不是，哥們

又一道好題

美麗區間

SEO行業沒落了嗎？

Mac下配置sublime實現LaTeX

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結