[code delphi]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Timer1: TTimer; Timer2: TTimer; Edit2: TEdit; Label1: TLabel; Label2: TLabel; procedure FormActivate(Sender: TObject); function GetFileSize(FileName: string): dword; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; first: bool; pk: integer; aFile: TextFile; cx: string; implementation {$R *.dfm} function Tform1.GetFileSize(FileName: string): dword; const c: array [0..11] of char = ('c',':','\','t','e','s','t','.','t','x','t',#00); var i: integer; // c: array [0..MAX_PATH] of char; f:TWIN32FINDDATA; h:THANDLE; {TWin32FindDataA = record dwFileAttributes: DWORD; // 檔案屬性 ftCreationTime: TFileTime; // 檔案建立時間 ftLastAccessTime: TFileTime; // 檔案最後存取時間 ftLastWriteTime: TFileTime; // 檔案最後寫入時間 nFilesSizeHigh: DWORD; // 檔案大小（高位元組部分） nFilesSizeLow: DWORD; // 檔案大小（低位元組部分） dwReserved0:DWORD; dwReserved1:DWORD; cFileName: array[0..MAX_PATH-1] of AnsiChar; // 檔案名稱字串 cAlternateFileName: array[0..13] of AnsiChar; // 短檔名 end; TWin32FindData = Twin32FindDataA; f:TWIN32FINDDATA; h:THANDLE; } begin h := FindFirstFile(c, f); if (h <> INVALID_HANDLE_VALUE) then begin // Result := f.nFileSizeHigh*(4294967295 div 1024) f.nFileSizeLow div 1024; Result := f.nFileSizeHigh*(4294967295 div 1024) f.nFileSizeLow div 1024; end else begin Result := 0; end; end; procedure TForm1.FormActivate(Sender: TObject); begin edit1.Text := IntToStr(GetFileSize('c:\test.tmp')); end; procedure TForm1.FormCreate(Sender: TObject); begin AssignFile(aFile,'c:\test.txt'); Rewrite(aFile); cx := '1234567890abcdefghijklmnopqrstuvwxyz'; pk := 0; end; procedure TForm1.Timer1Timer(Sender: TObject); var // aFile: TextFile; // i, NumRead, NumWritten: integer; // buf: array[1.. 2048] of char; str: string; begin pk := pk 1; edit1.Text := IntToStr(pk); str := IntToStr(pk) cx; WriteLn(aFile,str); end; procedure TForm1.Timer2Timer(Sender: TObject); begin edit2.Text := IntToStr(GetFileSize('c:\test.txt')); end; end.
[/code]

------
Ampelos

編輯記錄