ObjName - additional example proposal

[mLipok]

$obj = ObjCreate("InternetExplorer.Application")
ObjName_FlagsValue($obj)

Func ObjName_FlagsValue(ByRef $obj)
	Local $sInfo=''

	$sINFO &= '+>' & @TAB & 'ObjName($obj,1) {The name of the Object} =' & @CRLF & @TAB & ObjName($obj, 1) & @CRLF

	; HELPFILE REMARKS: Not all Objects support flags 2 to 7. Always test for @error in these cases.
	$sINFO &= '+>' & @TAB & 'ObjName($obj,2) {Description string of the Object} =' & @CRLF & @TAB & ObjName($obj, 2)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	$sINFO &= '+>' & @TAB & 'ObjName($obj,3) {The ProgID of the Object} =' & @CRLF & @TAB & ObjName($obj, 3)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	$sINFO &= '+>' & @TAB & 'ObjName($obj,4) {The file that is associated with the object in the Registry} =' & @CRLF & @TAB & ObjName($obj, 4)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	$sINFO &= '+>' & @TAB & 'ObjName($obj,5) {Module name in which the object runs (WIN XP And above). Marshaller for non-inproc objects.} =' & @CRLF & @TAB & ObjName($obj, 5)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	$sINFO &= '+>' & @TAB & 'ObjName($obj,6) {CLSID of the object''s coclass} =' & @CRLF & @TAB & ObjName($obj, 6)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	$sINFO &= '+>' & @TAB & 'ObjName($obj,7) {IID of the object''s interface} =' & @CRLF & @TAB & ObjName($obj, 7)
	If @error Then $sINFO &= '@error = ' & @error
	$sINFO &= @CRLF

	ConsoleWrite('!   ObjName :' & @CRLF)
	ConsoleWrite($sINFO & @CRLF)
EndFunc   ;==>ObjName_Values

[J-Paul Mesnage]

Added by revision [10208] in version: 3.3.13.0