Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

5th
Янв

Увеличить размер файла программно

Posted by Chas under Delphi

Мне надо сделать так, чтобы можно было искуственно увеличивать размер файла на n-ое значение из Edit1.

unit untPumper;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, sSpeedButton, StdCtrls, sEdit, sDialogs, ComCtrls,

  sStatusBar, sComboBox, sLabel;
type

  TfrmPumper = class(TForm)

    FileString: TsEdit;

    PumpSize: TsEdit;

    PumperFile: TsSpeedButton;

    OpenFile: TsSpeedButton;

    StatusBar: TsStatusBar;

    PumpSet: TsComboBox;

    sLabelFX1: TsLabelFX;

    sStickyLabel1: TsStickyLabel;

    sStickyLabel2: TsStickyLabel;

    sLabelFX2: TsLabelFX;

    procedure OpenFileClick(Sender: TObject);

    procedure PumperFileClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  frmPumper: TfrmPumper;
implementation
{$R *.dfm}
function PumpExe ( Value : Int64; FileName : String) : boolean;

var

Temp: TFileStream;

begin

try

   Temp := TFileStream.Create(FileName,fmOpenWrite);

   Temp.Size := Temp.Size + Value;

   Temp.Free;

   Result:=True;

except

   Result:=False;

end;

end;
procedure TfrmPumper.PumperFileClick(Sender: TObject);

begin

  if PumpSet.ItemIndex = 0 then

  begin

    PumpExe(StrToInt64(PumpSize.Text)*1024,FileString.Text);

  end;
  if PumpSet.ItemIndex = 1 then

  begin

    PumpExe(StrToInt64(PumpSize.Text)*1048576,FileString.Text);

  end;
  if PumpSet.ItemIndex = 2 then

  begin

    PumpExe(StrToInt64(PumpSize.Text)*1073741824,FileString.Text);

  end;
  Sleep(1500);

  StatusBar.Panels[0].Text:= 'Готово :)';

    MessageBox(

    Self.Handle

    , PChar('Файл успешно увеличен!!!')

    , PChar('1111')

    , MB_OK + MB_ICONINFORMATION + MB_APPLMODAL

  );

end;

end.