[Delphi] InnoSetup : 설치 시 압축파일 풀기


[Files]

Source: unzip.exe; DestDir: {userappdata}\testFolder; AfterInstall: Unzip

Source: testFile.zip; DestDir: {userappdata}\testFolder


[Code]

procedure Unzip;

var

  path: string;

  ResultCode: Integer;

begin


path := ExpandConstant('{userappdata}') + '\testFolder\'


Exec(path + 'unzip.exe', '-u ' + path + 'testFile.zip', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);


end;


unzip.exe