.Button1Click(Sender: TObject); var S: String; FileDate1:Integer; DateTime1:TDateTime; begin FileDate1 := FileAge(''''c:\delphi_d\delphi_help1.txt''''); DateTime1 := FileDateToDateTime(FileDate1); S := DateTimeToStr(DateTime1); Label1.Caption:=S; end; -------------------------------------------------------- FileDateToDateTime 将DOS型态的日期时间转换为TDateTime型态. -------------------------------------------------------- Unit SysUtils 函数原型 function FileDateToDateTime(FileDate: Integer):TDateTime; ----------------------------------------------------------------------------- DateTimeToFileDate 将TDateTime型态的日期时间转换为 DOS型态. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function DateTimeToFileDate(DateTime: TDateTime):Integer; FileGetDate 传回档案的日期及时间(DOS型态). Unit SysUtils 函数原型 function FileGetDate(Handle: Integer): Integer; 说明 就是档案总管中档案内容裹面的修改日期. 范例 procedure TForm1.Button1Click(Sender: TObject); var FileHandle:Integer; S: String; FileDate1:Integer; DateTime1:TDateTime; begin FileHandle :=FileOpen(''''c:\delphi_d\delphi_help2.txt'''', fmOpenReadWrite); if FileHandle > 0 then Begin FileDate1 := FileGetDate(FileHandle); DateTime1 := FileDateToDateTime(FileDate1); S := DateTimeToStr(DateTime1); FileClose(FileHandle); End else S := ''''Open File Error''''; Label1.Caption:=S; end; ----------------------------------------------------------------------------- FileSetDate 设定档案的日期及时间(DOS型态). ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function FileSetDate(Handle: Integer; Age: Integer): Integer; 说明 传回值为0表示成功. ----------------------------------------------------------------------------- DeleteFile 删除档案 ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function DeleteFile(const FileName: string): Boolean; 范例 一 DeleteFile(''''DELETE.ME'''');
范例 二 if FileExists(FileName) then if MessageDlg(''''Do you really want to delete '''' + ExtractFileName(FileName) + ''''?''''), []) = IDYes then DeleteFile(FileName); ##FileExists, DeleteFile Example ----------------------------------------------------------------------------- RenameFile 更改档名 ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function RenameFile(const OldName, NewName: string):Boolean; 范例 procedure TForm1.Button1Click(Sender: TObject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then begin BackupName := ExtractFileName(SaveDialog1.FileName); BackupName := ChangeFileExt(BackupName, ''''.BAK''''); if not RenameFile(SaveDialog1.FileName, BackupName) then raise Exception.Create(''''Unable to create backup file.''''); end; FileHandle := FileCreate(SaveDialog1.FileName); { Write out the number of rows and columns in the grid. } FileWrite(FileHandle, StringGrid1.ColCount, SizeOf(StringGrid1.ColCount)); FileWrite(FileHandle, StringGrid1.RowCount, SizeOf(StringGrid1.RowCount)); for X := 0 to StringGrid1.ColCount ? 1 do begin for Y := 0 to StringGrid1.RowCount ? 1 do begin { Write out the length of each string, followed by the string itself. } StringLen := Length(StringGrid1.Cells[X,Y]); FileWrite(FileHandle, StringLen, SizeOf(StringLen)); FileWrite(FileHandle, StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]); end; end; FileClose(FileHandle); end; end; ----------------------------------------------------------------------------- DiskFree 磁碟机剩馀空间(Bytes) ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function DiskFree(Drive: Byte): Integer; 范例 var S: string; begin S := IntToStr(DiskFree(0) div 1024) + '''' Kbytes free.''''; Label1.Caption:=S; end; 说明 Drive 0=目前磁碟机,1=A磁碟机,2=B磁碟机...传回值若为-1,表示磁碟机侦测错误. 范例 var S: string; AmtFree: Int64; Total: Int64; begin AmtFree := DiskFree(0); Total := DiskSize(0); S := IntToStr(AmtFree div Total) + ''''percent of the space on drive 0 is free: '''' (AmtFree div 1024) + '''' Kbytes free. ''''; Canvas.TextOut(10, 10, S); end; ##DiskFree, DiskSize Example ----------------------------------------------------------------------------- DiskSize 磁碟机空间大小(Bytes) ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function DiskSize(Drive: Byte): Integer; 范例 var S: string; begin S := IntToStr(DiskSize(0) div 1024) + '''' Kbytes free.''''; Label1.Caption:=S; end; 说明 Drive 0=目前磁碟机,1=A磁碟机,2=B磁碟机....传回值若为-1,表示磁碟机侦测错误. ##DiskFree, DiskSize Example ----------------------------------------------------------------------------- FileExists 判断档案是否存在. ----------------------------------------------------------------------------- Unit SysUtils 函数原型 function FileExists(const FileName: string): Boolean; 类似 FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example 范例 procedure TForm1.Button1Click(Sender: TObject); var BackupName: string; FileHandle: Integer; StringLen: Integer; X: Integer; Y: Integer; begin if SaveDialog1.Execute then begin &nbs
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
