OpenEuphoria

======== The Euphoria Mailing List ========

Hi EuMan,
Thanx a lot for the code. It works great!. Is there a way to detect the
difference btn XP & .Net Servers?. Anyway, the code looks and works great.
Thanx for the contibution.

Jordah
--- Original Message
From: <euman at bellsouth.net>
To: "EUforum" <EUforum at topica.com>
Sent: Saturday, March 22, 2003 9:09 PM
Subject: Re: Win32Lib not showing WS_EX_WINDOWEDGE



Jordah writes:
> Hi EuMan,
> Unfortunately, i'm back to win98 on my new laptop. Bythe time i used
to
> code in xp, i used to use 4.0 and received desired results without a
> manifest. Its kinda funny, all control classes in user32.dll in XP use
> themes by default(window,button).
> Maybe, it would be a good idea to post your manifest file and the
two
> examples showing this for other users to check. AFAIK, 3.1/4.0
applications
> made in other languages work great with XP.
> BTW, Just to save me time. Could u paste the code snippets for
> detecting which OS u use. i think this will be ideal for euwin win32GUI
> library.

Hey Jordah,

And I thought you werent coding Win32lib anymore :)

I will need to construct a "small demo" showing the issue
with the button controls I mentioned earlier but for your
request, here is (not sure this is my latest edition) to
collect information about .dll versions and the O/S they
run on.

In fact Im sure this isnt the latest issue, I'll hunt for it.
This doesnt detect the (sp) updates for 2K, XP etc.

Should give you an idea that its pretty straight forward
and easy besides, knowing you, you'll pick thru it and
update what I have here anyway.\

I have my own memory handling routines (found in my installer)
"EuSup" so the below code could need an occasional mem_set
I very quickly renamed myalloc/myfree back to allocate/free

I'll make a complete module including the define_c_func's, const. etc
in a day or so and submit a "clean" user ready module for .dll and O/S
version detection to RDS.

Here's what I have for now, Good luck!

Copyright 2002 Euman -> HW. Overman

global function allocate_string2(sequence s)
atom mem
mem allocate(length(s) + 1)
poke(mem, s)
return mem
end function

function GetFileVersionInfoSize(sequence FileName)
atom pZero, pStr
integer size
pZero = allocate(16)
pStr allocate_string2(FileName)
size c_func(xGetFileVersionInfoSize,{pStr,pZero})
free(pStr)
free(pZero)
return size
end function

function GetFileVersionInfo(sequence FileName)
atom pInfo, pStr, success
integer size
sequence info
size = GetFileVersionInfoSize(FileName)
if not size then return -1 end if
pStr allocate_string2(FileName)
pInfo = allocate(size)
success c_func(xGetFileVersionInfo,{pStr,0,size,pInfo})
free(pStr)
if not success then
free(pInfo)
return -1
end if
info = peek({pInfo,size})
free(pInfo)
return info
end function

function VerQueryValue(sequence info, sequence ValueName)
atom pInfo, pValueName, ppValue, pLen, index, dat1, dat2, dat3, dat4
integer bool, size

size length(info)+1
pInfo = allocate(size)
poke(pInfo, info)
pValueName allocate_string2(ValueName)
ppValue = allocate(16)
pLen = allocate(16)
bool c_func(xVerQueryValue,{pInfo, pValueName,ppValue,pLen})
free(pInfo)
free(pValueName)
if not bool then
free(ppValue)
free(pLen)
return -1
end if
index=peek4u(ppValue)
dat1=HIWORD(peek4u(index+8))
dat2=LOWORD(peek4u(index+8))
dat3HIWORD(peek4u(index+12))
dat4=LOWORD(peek4u(index+12))
free(pLen)
free(ppValue)
return {dat1,dat2,dat3,dat4 > return sprint(dat1,dat2,dat3,dat4)
end function

global function GetVersionStr(sequence FileName)
object info
sequence version
info GetFileVersionInfo(FileName)
if atom(info) then return -1 end if
version = VerQueryValue(info,"
")
return version
end function

global sequence kernel32_inf,
comctl32_inf,
user32_inf,
gdi32_inf,
lz32_inf,
advapi32_inf

comctl32_inf GetVersionStr("comctl32.dll")
rem'd the others for message size "You get the idea"

atom testver, bad

if comctl32_inf[1] < 4 then
if comctl32_inf[2] < 69 then
bad=message_box("Incompatible CommCtl32.dll
Version","Error",MB_ICONERROR)
end if
if getc(0) then
abort(0)
end if
end if

OS Version

atom ptOS, val, major, minor, build, platf
global sequence OS


ptOS = allocate( 148 )
poke4(ptOS,148)
val c_func(OSVersion, {ptOS})

major = peek4u(ptOS+4)
minor = peek4u(ptOS+8)
build peek4u(ptOS+12)
platf peek4u(ptOS+16)

if major = 3 then NT3.51

OS = "NT 3.51"

elsif major 4 then 95,98,ME,NT4

if minor = 0 then
if platf = 1 then
OS = "95"
elsif platf = 2 then
OS = "NT 4.0"
end if

elsif minor 10 then
OS = "98"
elsif minor = 90 then
OS "ME"
end if

elsif major 5 then 2k,XP,.Net Server

if minor 0 then
OS "2000"
elsif minor 1 then
OS "XP or .Net Server"
end if
end if

junk = message_box(sprintf( "Boolean: %d.%d", > {peek4u(ptOS+4),peek4u(ptOS+8)} ), > "OSVersion",MB_ICONINFORMATION+MB_TASKMODAL ) > free(ptOS)


regards
THE EUMAN

--- Original Message
From: <jordah at btopenworld.com>
To: "EUforum" <EUforum at topica.com>
Sent: Saturday, March 22, 2003 10:14 AM
Subject: Re: Win32Lib not showing WS_EX_WINDOWEDGE


>

=^{========================================== > This email was sent to: jordah at btopenworld.com}


TOPICA - Start your own email discussion group. FREE!

=^==========================================
This email was sent to: euman@be>