blob: 09e08d0ac077640ae4e90bb5a193a78b55705cfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) DIGITEO - 2011 - Allan CORNET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
//
//------------------------------------------------------------------------------
// Inno Setup Script (5.3 and more) for Scilab (UNICODE version required)
//
//------------------------------------------------------------------------------
function Unzip(const ZipFile: String): Boolean;
var
ErrorCode: Integer;
TmpDirName: String;
sUNZIP: String;
sParams: String;
begin
ExtractTemporaryFile('unzip.exe');
Result := False;
TmpDirName := ExpandConstant('{tmp}') + '\';
sUNZIP := TmpDirName + 'unzip.exe';
sParams := '-e -o ' + ZipFile + ' -d ' + TmpDirName;
Result := Exec(sUNZIP, sParams, TmpDirName, SW_HIDE, ewWaitUntilTerminated, ErrorCode);
if (ErrorCode = 0) then
begin
Result := True;
end;
end;
//------------------------------------------------------------------------------
|
