include gui/tin/tinewg.exw
include euphoria/info.e

sequence win_string=WINVERSION& " "&SERVICEPACK& "\r\n"& "Buildnumber: "&sprintf( "%d",BUILDNUMBER)& "\r\n"&
         "Versionnumber: "&sprintf( "%0.1f",WINVER)
         
sequence eu_version=version_string_long(1)

sequence eu_includes=include_paths(1)

sequence eu_paths=""

sequence wow=""

if is32on64() then
    wow="WOW64\n"
end if
for i = 1 to length(eu_includes) do
    eu_paths=eu_paths&"\n"&eu_includes[i]
end for

InfoMsg (win_string&"\n"&wow&eu_version&eu_paths, "Info")
