- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Could someone send or post a snippet of code that shows how to do this? I can't make it work. Thanks,
Wayne
Wayne
Link Copied
4 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Here's a snippet...
Steve
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Steve, what besides
program test
your code snippet
end program
does this need to compile/run ?
program test
your code snippet
end program
does this need to compile/run ?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
Steve
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Been out of the office for awhile, but am back, and your solutions worked perfectly! Thanks much for the assistance.
Wayne
Wayne
![](/skins/images/895D6060305DF45A57FACF854B5A8CD1/responsive_peak/images/icon_anonymous_message.png)
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page