-- Retrieve table of all installed software via Control Panel's Uninstall Utility
tblSoftware = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall");

-- Concatenate table of results and display in dialog-message
sResult = Table.Concat(tblSoftware, "\r\n", 1, TABLE_ALL);
Dialog.Message("List of Installed Software", sResult, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

version_info = File.GetVersionInfo( _ProgramFilesFolder .. "\\Doopernator\\Doopernator.exe");
fv = version_info.FileVersion;
pv = version_info.ProductVersion;

-- Get the file information, and load it into a table
tVersionInfo = File.GetVersionInfo(_SourceFolder .. "\\setup.exe");

-- Get the last error code
nError = Application.GetLastError();
if nError == 0 then
    -- There was not an error
    sOutput = "";

    -- Traverse the table, storing info in a string
    for Name, Contents in pairs(tVersionInfo) do
        sOutput = sOutput .. Name .. ": " .. Contents .. "\r\n";
    end

    -- Output string contents to the user
    Dialog.Message("File Version Information", sOutput);
else
    -- There was an error, alert the user
    Dialog.Message("Error", _tblErrorMessages[nError]);
end