Retreiving OS version from Vis. Fortran 6.6

bruzek · ‎08-11-2003

Could someone send or post a snippet of code that shows how to do this? I can't make it work. Thanks,

Wayne

Steven_L_Intel1 · ‎08-11-2003

Here's a snippet...

type (T_OSVERSIONINFO) :: ovi
! Get OS Version info
!
ovi%dwOSVersionInfoSize = sizeof(ovi)
ret = GetVersionEx (ovi)
write (*, *) "OS Version info: ",ovi%dwPlatformId,ovi%dwMajorVersion,&
ovi%dwMinorVersion, ovi%dwBuildNumber
i = index(ovi%szCSDVersion, CHAR(0)) - 1
write (*, *) "  ",ovi%szCSDVersion(1:i)

Steve

dave_frank · ‎08-12-2003

Steve, what besides
program test

your code snippet

end program

does this need to compile/run ?

Steven_L_Intel1 · ‎08-12-2003

Um, "use dfwin" and "INTEGER ret"? I extracted this out of some code of mine, and didn't think about whether it was reasonably self-sufficient. But as you point out, it is, mostly.

Steve

bruzek · ‎08-26-2003

Been out of the office for awhile, but am back, and your solutions worked perfectly! Thanks much for the assistance.

Wayne