code:

---

DIM $FilesToCopy,$
$tmp='%tmp%\'
$srcdir=@scriptdir+'\'
$destdir=split('%WINDIR%',':')[0]+':\Scripts\'
$message=JOIN(split(@kix,'.'),'')
 
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)
 COPYKIX($srcdir+$,$destdir+$)
NEXT
 
 $=WRITEVALUE('HKCU\Software\KiXtart','KIXPKG','kix'+$message,'REG_SZ')
 
FUNCTION COPYKIX($srcfile,$destfile)
 dim $
 IF Exist($srcfile)
  IF Exist($destfile)
   $=SetFileAttr($destfile,128)
  ENDIF
  IF GetFileSize($srcfile) <> GetFileSize($destfile) OR
   GetFileTime($srcfile) <> GetFileTime($destfile) OR
   GetFileVersion($srcfile) <> GetFileVersion($destfile)
   COPY $srcfile $destfile /h
  ENDIF
 ENDIF
ENDFUNCTION

---