I was thinking something like:
$tmp='%tmp%\'
$srcdir=@scriptdir+'\'
$destdir=split('%WINDIR%',':')[0]+':\Scripts\'
$msg=LEFT(JOIN(split(@kix,'.'),''),3)
$ok=$destdir+'kix'+$msg+'.ok'
 
Del $destdir+'kix*.ok'
$=WRITEPROFILESTRING($ok,'General','System',@producttype) 
$=WRITEPROFILESTRING($ok,'General','KIX',@kix) 
$=WRITEPROFILESTRING($ok,'General','Destination',$destdir) 
 
IF 0=Exist($destdir)
 MD $destdir
ENDIF
 
$FilesToCopy='kix32.exe wkix32.exe'
IF @inwin=2
 $FilesToCopy=$FilesToCopy+' kx16.dll kx32.dll kx95.dll'
ENDIF
 
FOR EACH $ IN Split($FilesToCopy)
 $=WRITEPROFILESTRING($ok,split($,'.')[0],'KIX',COPYKIX($srcdir+$,$destdir+$))
NEXT
 
FUNCTION COPYKIX($srcfile,$destfile)
 dim $
 IF Exist($srcfile)
  IF Exist($destfile)
   $=SetFileAttr($destfile,128)
   $copykix=' >replaced'
  ELSE
   $copykix=' >new'
  ENDIF
  IF ''+GetFileSize($srcfile)+GetFileTime($srcfile)+GetFileVersion($srcfile)<>''+GetFileSize($destfile)+GetFileTime($destfile)+GetFileVersion($destfile)
   COPY $srcfile $destfile /h
   if @error
    $copykix='failed'
   endif
  ENDIF
 ENDIF
ENDFUNCTION


[ 04. May 2003, 07:23: Message edited by: Lonkero ]
_________________________
!

download KiXnet