unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const Size = 8192;
procedure TForm1.Button1Click(Sender: TObject);
var fFile: TFileStream;
Free,Total,TotFree: int64;
begin
fFile:= TFilestream.Create('file.dat',fmOpenWrite);
repeat
If fFile.Write(Total,Size) <> Size then ShowMessage('Не все записалось');
GetDiskFreeSpaceEx('C:\',Free,Total,@TotFree);
until Free<= 8192;//пока на диске не останется 8килобайт
fFile.Free;
end;
end.
это весь код что не так ? ошибка project progect1.exe raised exception class efopenerror with message"
'cannot open filefile.dat'
|