[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