Guidance
指路人
g.yi.org
Software / Reginald / Examples / repository / Applications / Client Applications / ListAllInstalled.rex

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
hklm = X2D(80000002) /* HKEY_LOCAL_MACHINE */
strcomputer = "."
strkey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strentry1a = "DisplayName"
strentry1b = "QuietDisplayName"
strentry2 = "InstallDate"
strentry3 = "VersionMajor"
strentry4 = "VersionMinor"
strentry5 = "EstimatedSize"
objreg = getobject("winmgmts://" || strcomputer || "/root/default:StdRegProv")
objreg~enumkey(hklm, strkey, arrsubkeys)
SAY "Installed Applications"
DO strsubkey OVER arrsubkeys
	intret1 = objreg~getstringvalue(hklm, strkey || strsubkey, strentry1a, strvalue1)
	IF intret1 \= 0 THEN
		objreg~getstringvalue(hklm, strkey || strsubkey, strentry1b, strvalue1)
	IF strvalue1 \= "" THEN
		SAY "Display Name:" strvalue1
	objreg~getstringvalue(hklm, strkey || strsubkey, strentry2, strvalue2)
	IF strvalue2 \= "" THEN
		SAY "Install Date:" strvalue2
	objreg~getdwordvalue(hklm, strkey || strsubkey, strentry3, intvalue3)
	objreg~getdwordvalue(hklm, strkey || strsubkey, strentry4, intvalue4)
	IF intvalue3 \= "" THEN
		SAY "Version:" intvalue3 || "." || intvalue4
	objreg~getdwordvalue(hklm, strkey || strsubkey, strentry5, intvalue5)
	IF intvalue5 \= "" THEN
		SAY "Estimated Size:" || TRUNC(intvalue5/1024, 3) "megabytes"
END
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Wed 2022-8-10  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2010-07-16 20:49:16