View Single Post
  #10  
Old 24-05-2017, 15:14
Cesar82's Avatar
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 1,074
Thanks: 1,814
Thanked 2,304 Times in 787 Posts
Cesar82 is on a distinguished road
Using AdvSplit tool, work using cmd to join parts?

function JoinFile(const FileName, OutFile: String): Boolean;
var
Param: String;
ResultCode: Integer;
begin
ForceDirectories(ExtractFileDir(OutFile));
if FileExists(OutFile) then
Param := 'COPY /B "' + OutFile + '" + "' + FileName + '" "' + OutFile + '"'
else
Param := 'COPY /B "' + FileName + '" "' + OutFile + '"';
Result := Exec(ExpandConstant('{cmd}'), '/C "' + Param + '"', '',SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

Here is a example using sfk.exe (Swiss File Knife). Split individual parts on especify size...
https://mega.nz/#!cAQRjQBJ!gT6Owe5qE...cSgTbzp9tC-EV8

Last edited by Cesar82; 25-05-2017 at 14:38.
Reply With Quote
The Following User Says Thank You to Cesar82 For This Useful Post:
Simorq (25-05-2017)