De mon coté j'avais un script a l'epoque quand je me servais de winape, qui permet aussi d'utiliser des zip du coup
#include <array.au3>
#include <File.au3>
;Parsing
Local $count = StringInStr($CmdLineRaw, ".exe", 0 , 1, 1)
local $app = StringLeft ( $CmdLineRaw, $count + 4 )
local $command = StringTrimLeft( $CmdLineRaw, $count + 4 )
if not $command then exit 0
;HotKeySet("{ESC}", "Terminate")
;Correction to use zipfile
local $file = StringTrimRight( $command, 4 )
$file = StringTrimLeft ($file,1)
local $liste = _Zip_List($file)
IniWrite ( "WinApe.ini", "Drives", "Drive(0)", $file & '\:' & $liste[1] )
;If there is 2 D7
if StringInStr($file,"(Disk 1 of") Then
local $file2 = StringReplace($file,"(Disk 1 of","(Disk 2 of",0,2)
local $liste2 = StringReplace($liste[1],"(Disk 1 of","(Disk 2 of",0,2)
IniWrite ( "WinApe.ini", "Drives", "Drive(1)", $file2 & '\:' & $liste2 )
endif
;$PID = Run ( '"' & $app & '" ' & $file & '\:' & $liste[1] & ' /A' )
$PID = Run ( '"' & $app & '" ' & $command )
While ProcessExists ( $PID )
sleep(500)
WEnd
Exit 0
;Functions
;Func Terminate()
; While ProcessExists ( $PID )
; ProcessClose ( $PID )
; WEnd
; Exit 0
;EndFunc
;==========================================================================
;
; Function Name: _Zip_DllChk()
; Description: Internal error handler.
; Parameter(s): none.
; Requirement(s): none.
; Return Value(s): Failure - @extended = 1
; Author(s): smashley
;
;===============================================================================
Func _Zip_DllChk()
If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
Return 0
EndFunc ;==>_Zip_DllChk
;===============================================================================
;
; Function Name: _Hide()
; Description: Internal Function.
; Parameter(s): none
; Requirement(s): none.
; Return Value(s): none.
; Author(s): torels_
;
;===============================================================================
Func _Hide()
If ControlGetHandle("[CLASS:#32770]", "", "[CLASS:SysAnimate32; INSTANCE:1]") <> "" And WinGetState("[CLASS:#32770]") <> @SW_HIDE Then ;The Window Exists
$hWnd = WinGetHandle("[CLASS:#32770]")
WinSetState($hWnd, "", @SW_HIDE)
EndIf
EndFunc
;===============================================================================
;
; Function Name: _IsFullPath()
; Description: Internal Function.
; Parameter(s): $path - a zip path
; Requirement(s): none.
; Return Value(s): success - True.
; failure - False.
; Author(s): torels_
;
;===============================================================================
Func _IsFullPath($path)
if StringInStr($path,":\") then
Return True
Else
Return False
EndIf
Endfunc
;===============================================================================
;
; Function Name: _Zip_List()
; Description: Returns an Array containing of all the files contained in a ZIP Archieve.
; Parameter(s): $hZipFile - Complete path to zip file that will be created (or handle if existant)
; Requirement(s): none.
; Return Value(s): On Success - 0
; On Failure - sets @error 1~3
; @error = 1 no Zip file
; @error = 2 no dll
; @error = 3 dll isn't registered
; Author(s): torels_
;
;===============================================================================
Func _Zip_List($hZipFile)
local $aArray[1]
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0) ;no dll
If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
If Not FileExists($hZipFile) Then Return SetError(1, 0, 0) ;no zip file
$oApp = ObjCreate("Shell.Application")
$hList = $oApp.Namespace($hZipFile).Items
For $item in $hList
_ArrayAdd($aArray,$item.name)
Next
$aArray[0] = UBound($aArray) - 1
Return $aArray
EndFunc ;==>_Zip_List
Topic: Amstrad CPC (demande aide...) (Read 3937 times)