تويت
tbl = Registry.GetKeyNames(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
for i,prog in pairs (tbl) do
ListBox.AddItem("ListBox1", prog);
end
tbl = Registry.GetKeyNames(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
for i,prog in pairs (tbl) do
ListBox.AddItem("ListBox1", prog);
end
function GetItemForUninstallKey(strKeyName,strItemName)
local strFullKey = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"..strKeyName;
local strName = Registry.GetValue(HKEY_LOCAL_MACHINE,strFullKey,strItemName);
return strName;
end
function FillProgramsList()
ListBox.DeleteItem("ListBox1", -1);
ListBox.SetUpdate("ListBox1", false);
StatusDlg.Show();
StatusDlg.SetTitle("Initializing...");
StatusDlg.SetMessage("");
local tblKeys = Registry.GetKeyNames(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
StatusDlg.SetMeterRange(1,Table.Count(tblKeys));
local nCounter = 1;
for i,Name in pairs (tblKeys) do
StatusDlg.SetMessage(Name);
StatusDlg.SetMeterPos(nCounter);
local strDisplayName = GetItemForUninstallKey(Name,"DisplayName");
if(strDisplayName ~= "")then
ListBox.AddItem("ListBox1", strDisplayName, Name);
end
nCounter = nCounter + 1;
end
StatusDlg.Hide();
ListBox.SetUpdate("ListBox1", true);
end
FillProgramsList()
function GetItemForUninstallKey(strKeyName,strItemName)
local strFullKey = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"..strKeyName;
local strName = Registry.GetValue(HKEY_LOCAL_MACHINE,strFullKey,strItemName);
return strName;
end
function FillProgramsList()
ListBox.DeleteItem("ListBox1", -1);
ListBox.SetUpdate("ListBox1", false);
StatusDlg.Show();
StatusDlg.SetTitle("Initializing...");
StatusDlg.SetMessage("");
local tblKeys = Registry.GetKeyNames(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall");
StatusDlg.SetMeterRange(1,Table.Count(tblKeys));
local nCounter = 1;
for i,Name in pairs (tblKeys) do
StatusDlg.SetMessage(Name);
StatusDlg.SetMeterPos(nCounter);
local strDisplayName = GetItemForUninstallKey(Name,"DisplayName");
if(strDisplayName ~= "")then
ListBox.AddItem("ListBox1", strDisplayName, Name);
end
nCounter = nCounter + 1;
end
StatusDlg.Hide();
ListBox.SetUpdate("ListBox1", true);
end
FillProgramsList()
#include <Array.au3> ;Only for array displaying
Local $strComputer, $strInput
$strComputer = (InputBox("List software","Enter COMPUTER NAME to query list of installed programs."))
If $strComputer = '' Then
$strComputer = "\\" & @ComputerName & "\" ;current computer
Else
$strComputer = "\\" & $strComputer & "\"
EndIf
$return = _SoftwareInfo($strComputer)
_ArrayDisplay($return, "Installed Programs")
Func _SoftwareInfo($computer = $strComputer)
Local Const $regkey = $computer & 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
Local $key, $Count = 0, $avArray[1]
While 1
$Count = $Count + 1
$key = RegEnumKey($regkey, $Count)
If @error Then ExitLoop
$line = RegRead($regkey & '\' & $key, 'Displayname')
If @error Then ContinueLoop
$line = StringReplace($line, ' (remove only)', '')
$avArray[0] += 1
ReDim $avArray[$avArray[0] + 1]
$avArray[$avArray[0]] = $line
WEnd
Return $avArray
EndFunc
تعليق