Thread: File Splitter
View Single Post
  #17  
Old 25-04-2017, 04:54
Simorq's Avatar
Simorq Simorq is offline
Registered User
 
Join Date: Mar 2014
Location: Iran
Posts: 642
Thanks: 3,602
Thanked 1,308 Times in 464 Posts
Simorq is on a distinguished road
Unhappy

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;
Not Work
Please Help
Reply With Quote