Thread: File Splitter
View Single Post
  #8  
Old 01-12-2014, 06:59
Carldric Clement's Avatar
Carldric Clement Carldric Clement is offline
Registered User
 
Join Date: Aug 2014
Location: Toboh, Sabah, Malaysia
Posts: 596
Thanks: 599
Thanked 659 Times in 234 Posts
Carldric Clement is on a distinguished road
Quote:
Originally Posted by Razor12911 View Post
Inno Setup Usage

function Splitter(OriginalFile: String; SplitSize: Integer):Boolean;
var
ResultCode: Integer;
begin
if FileExists(ExpandConstant('{tmp}\Split.exe')) = False then
ExtractTemporaryFile('Split.exe');
Result:=Exec(ExpandConstant('{tmp}\Split.exe'), 's "' + ExpandConstant(OriginalFile) + '" "' + IntToStr(SplitSize) + '"', '',
SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

function Merger(SplitFile, OriginalFile: String):Boolean;
var
ResultCode: Integer;
begin
if FileExists(ExpandConstant('{tmp}\Split.exe')) = False then
ExtractTemporaryFile('Split.exe');
Result:=Exec(ExpandConstant('{tmp}\Split.exe'), 'm "' + ExpandConstant(SplitFile) + '" "' + ExpandConstant(OriginalFile) + '"', '',
SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
How to use it the code it?
after was copy in this function,
how to extract it?
Reply With Quote