Windows 98 で動作確認
#define CLSID_ActiveDesktop "{75048700-EF1F-11D0-9888-006097DEACF9}"
#define IID_IActiveDesktop "{F490EB00-1240-11D1-9888-006097DEACF9}"
#usecom IActiveDesktop IID_IActiveDesktop CLSID_ActiveDesktop
#comfunc IActiveDesktop_GetDesktopItemOptions 10 int, int
newcom adesktop, CLSID_ActiveDesktop
dim comopt, 3
comopt(0) = 12
IActiveDesktop_GetDesktopItemOptions adesktop, varptr(comopt), 0
if (comopt(2) == 1) : print "有効" : else : print "無効"
参考は
http://lhsp.s206.xrea.com/hsp_system.html#9
http://www5a.biglobe.ne.jp/~dinah/tips/wintipsp.htm#a7
http://com.it-berater.org/COM/windows_shell/interfaces/IActiveDesktop.htm
http://msdn.microsoft.com/en-us/library/bb773227.aspx
アクティブデスクトップが有効か否か判別。
