高手們： 小女子有禮了! 如何用PROGRRESSBAR實現打開執行文件時，顯示執行進度。 小女子等你回音!

procedure TForm1.LoadFile(AFileName: string);
var
  f: file;
  iDummy: integer;
begin
  AssignFile(f, AFileName);
  try
    Reset(f, 1);
  
    ProgressBar1.Min := 0;
    ProgressBar1.Max := FileSize(f);
    While not Eof(f) do begin
      BlockRead(f, iDummy, SizeOf(iDummy));
      ProgressBar1.Position := FilePos(f);
      Form1.Update;
    end;
  finally
    CloseFile(f);
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadFile('C:\xx.txt');
end;

還有這篇也可參考: http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=450 http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&inlang=zh-TW&th=2c2406e74685929c&rnum=2 --- Everything I say is a lie. 發表人 - hagar 於 2003/11/15 10:36:50