Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата



end;

procedure TMainForm.FormResize(Sender: TObject);

// Наложение ограничений на минимальные размеры главной формы

begin

if MainForm.Width 0 then { if we read anything... }

FileWrite(Dest, CopyBuffer^, BytesCopied); { ...write chunk }

{} ProgressForm.ProgresCopy.Repaint;

{} ProgressForm.AllProgresCopy.Repaint;

until BytesCopied < ChunkSize; { until we run out of chunks }

{} AllReadByteFile:=AllReadByteFile+GetFileSize(FileName);

{} ProgressForm.Ready.Caption:=FormatSize(FloatToStr(AllReadByteFile));

{} ProgressForm.AllProgresCopy.Progress:=FloatToInt(((100*(AllReadByteFile)/(SizeAllCopy+1))));

{} ProgressForm.ProgresCopy.Progress:=100;

finally

FileClose(Dest); { close the destination file }

end;

finally

FileClose(Source); { close the source file }

end;

finally

FreeMem(CopyBuffer, ChunkSize); { free the buffer }

end;

end;

 

{ MoveFile procedure }

{

Moves the file passed in FileName to the directory specified in DestDir.

Tries to just rename the file. If that fails, try to copy the file and

delete the original.

Raises an exception if the source file is read-only, and therefore cannot

be deleted/moved.

}

procedure MoveFile(const FileName, DestName: string);

var

Destination: string;

begin

Destination := ExpandFileName(DestName); { expand the destination path }

if not RenameFile(FileName, Destination) then { try just renaming }

begin

CopyFile(FileName, Destination); { copy it over to destination...}

DelOneFile(FileName,All);

end;

end;

{ GetFileSize function }

{

Рекомендуем скачать другие рефераты по теме: титульный реферата, курсовая работа на тему.

Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки