\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430 \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438
\n<\/p>\n
\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430 \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438\n\n\u0412\u043e\u0442 \u043f\u0440\u043e\u0441\u0442\u0435\u043d\u044c\u043a\u0438\u0439 \u043f\u0440\u0438\u043c\u0435\u0440:\n\nprocedure TForm2.Button2Click(Sender: TObject);\nvar s,t: TFileStream;\nbegin\ns:=TFileStream.Create('D:\\Full_DB_Convert_Enterprise_v2.12.rar',fmOpenRead);\ntry\nt:=TFileStream.Create('C:\\Full_DB_Convert_Enterprise_v2.12.rar',fmOpenWrite or fmCreate);\ntry\nt.CopyFrom(s,s.Size);\nfinally\nt.Free;\nend;\nfinally\ns.Free;\nend;\nend;\n\n*********************************************************************\n\n\u0410 \u0432\u043e\u0442 \u0435\u0449\u0435 \u043a\u0443\u0447\u043a\u0430 \u043c\u0435\u0442\u043e\u0434\u043e\u0432:\n\n\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u043e\u043c TurboPascal\n\nType\nTCallBack=procedure (Position,Size:Longint); {\u0414\u043b\u044f \u0438\u043d\u0434\u0438\u043a\u0430\u0446\u0438\u0438 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f}\nprocedure FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack);\nConst BufSize = 3*4*4096; { 48Kbytes \u0434\u0430\u0435\u0442 \u043f\u0440\u0435\u043a\u0440\u0430\u0441\u043d\u044b\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 }\nType\nPBuffer = ^TBuffer;\nTBuffer = array [1..BufSize] of Byte;\nvar\nSize : integer;\nBuffer : PBuffer;\ninfile, outfile : File;\nSizeDone,SizeFile: Longint;\nbegin\nif (InFileName <> OutFileName) then\nbegin\nbuffer := Nil;\nAssignFile(infile, InFileName);\nSystem.Reset(infile, 1);\ntry\nSizeFile := FileSize(infile);\nAssignFile(outfile, OutFileName);\nSystem.Rewrite(outfile, 1);\ntry\nSizeDone := 0; New(Buffer);\nrepeat\nBlockRead(infile, Buffer^, BufSize, Size);\nInc(SizeDone, Size);\nCallBack(SizeDone, SizeFile);\nBlockWrite(outfile,Buffer^, Size)\nuntil Size < BufSize;\nFileSetDate(TFileRec(outfile).Handle,\nFileGetDate(TFileRec(infile).Handle));\nfinally\nif Buffer <> Nil then Dispose(Buffer);\nSystem.close(outfile)\nend;\nfinally\nSystem.close(infile);\nend;\nend else\nRaise EInOutError.Create('File cannot be copied into itself');\nend;\n\n\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u043f\u043e\u0442\u043e\u043a\u0430\n\nProcedure FileCopy(Const SourceFileName, TargetFileName: String);\nVar\nS,T : TFileStream;\nBegin\nS := TFileStream.Create(sourcefilename, fmOpenRead );\ntry\nT := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);\ntry\nT.CopyFrom(S, S.Size ) ;\nFileSetDate(T.Handle, FileGetDate(S.Handle));\nfinally\nT.Free;\nend;\nfinally\nS.Free;\nend;\nend;\n\n\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u043e\u043c LZExpand\n\nuses LZExpand;\n\nprocedure CopyFile(FromFileName, ToFileName : string);\nvar\nFromFile, ToFile: File;\nbegin\nAssignFile(FromFile, FromFileName);\nAssignFile(ToFile, ToFileName);\nReset(FromFile);\ntry\nRewrite(ToFile);\ntry\nif LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle)<0 then\nraise Exception.Create('Error using LZCopy')\nfinally\nCloseFile(ToFile);\nend;\nfinally\nCloseFile(FromFile);\nend;\nend;\n\n\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438 Windows\n\nuses ShellApi; \/\/ !!! \u0432\u0430\u0436\u043d\u043e\n\nfunction WindowsCopyFile(FromFile, ToDir : string) : boolean;\nvar F : TShFileOpStruct;\nbegin\nF.Wnd := 0; F.wFunc := FO_COPY;\nFromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);\nToDir:=ToDir+#0; F.pTo:=pchar(ToDir);\nF.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;\nresult:=ShFileOperation(F) = 0;\nend;\n\n\/\/ \u043f\u0440\u0438\u043c\u0435\u0440 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f\nprocedure TForm1.Button1Click(Sender: TObject);\nbegin\nif not WindowsCopyFile('C:\\UTIL\\ARJ.EXE', GetCurrentDir) then\nShowMessage('Copy Failed');\nend;\n<\/div><\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u041a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0430\u0439\u043b\u0430 \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u043c\u0435\u0442\u043e\u0434\u0430\u043c\u0438<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,459],"tags":[253,1431,954,342],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/770"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=770"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/770\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=770"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=770"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=770"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}