ok, I'll give you an example.
this is the code for, you know without word-wrap
say how readable your posts are after this:

function existonpath($_file)
dim $
for each $ in split(readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment","path")+";"+readvalue("HKEY_CURRENT_USER\Environment","path"),";") if exist($+"\"+$_file) $existonpath=not 0 endif next
endfunction

same but little smaller:

function existonpath($_file)
dim $
for each $ in split(readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment","path")+";"+readvalue("HKEY_CURRENT_USER\Environment","path"),";") if exist($+"\"+$_file) $existonpath=not 0 endif next
endfunction


{edit}
forgot the font tags...

[ 11. December 2002, 14:44: Message edited by: Lonkero ]
_________________________
!

download KiXnet