Determine if program running in XP SP3 compatibility mode

Is there way to tell if a program is running on Win7 in XP SP3 compatibility mode? (not VM XP Mode) Have an msaccess app where 1 of its functions only works if yes, so want to disable internal menu item to it if no. Would like to do this in VBA from within msaccess, but other examples welcome.

Thanks, but what I need is to be able to look at those settings programmatically. Where are they stored? If I can get to them from within msaccess, that'd be great. If there's a way to get them using the command line and store an environmental variable or create a txt file, that'd work too.

So far, it looks like the value may be in HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\programpath. I think I've found a method to read the registry, so I may be off & running. If not, I believe there's a way to save the reg value to a text file as a backup, but syntax is tripping me up. Missing quotes?

reg save HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\C:\Program Files\Office97\Office\WINWORD.EXE d:\data\reg.txt

edit: Brink, I've use tons of your tutorials and your .reg files. Many, many thanks. What would be the contents for the .reg to add/remove this entry?

You may guess it by using the Windows API directly from VBA. In particular, the GetVersionEx API function does that. In the remarks section it explains that this API is affected by the current compatibility mode:

If compatibility mode is in effect, the GetVersionEx function reports the operating system as it identifies itself, which may not be the operating system that is installed. For example, if compatibility mode is in effect, GetVersionEx reports the operating system that is selected for application compatibility.

So by calling it, it returns the Windows version. But if compatibility is used, it will return the version that's indicated to be compatible, NOT the real Windows version actually used.
You can use the Declare Function statement together with a custom type for the return struct for calling this.

Brink -
But I only want to control 2 entries under Layers, msaccess & winword. Can I not just isolate to those or do I have to do the whole Layers? What I'm thinking is that i could create a bat file for the app & force the Compat Mode before & after. I'd be calling the bat with a shortcut that avoids UAC like one of your tutorials outlined.

Maybe something like the following?

reg.exe Add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" /v "C:\Program Files\MyApp\Test.exe" /d "WINXPSP3"

reg.exe Delete "HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" /v "C:\Program Files\MyApp\Text.exe"

The Goggled source for the delete was actually:

for %x in ("*.exe") do reg.exe Delete "HKCU\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers" /v "%~fx"

Have no idea what the "%~fx" is.


Alejandro85 -
That looks really promising. One of those "is it a feature or a bug" deals?

Got .reg stuff working

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\_Program Files\\Office97\\Office\\MSACCESS.EXE"="WINXPSP3"
"C:\\_Program Files\\Office97\\Office\\WINWORD.EXE"="WINXPSP3"

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers]
"C:\\_Program Files\\Office97\\Office\\MSACCESS.EXE"=-
"C:\\_Program Files\\Office97\\Office\\WINWORD.EXE"=-

Thanks for helping a .reg neophyte. Now onwards to GetVersionEX

All is working. Thanks for help. Been many, many years since I've programmed Access.