Описание основных алгоритмов

Алгоритм сбора информации из реестра:

Алгоритм сбора информации из реестра:

создаем объект реестра (класс TRegistry);

для класса указываем корень дерева реестра, т. е. фиксируем параметр класса RootKey значением HKEY_LOCAL_MACHINE;

открываем необходимый ключ, к примеру: SOFTWARE Microsoft Windows CurrentVersion Run при помощи функции класса OpenKeyReadOnly;

получаем список значений из открытого ключа при помощи функции GetValueNames;

для каждого значения получаем его параметр при помощи функции ReadString.

Алгоритм сбора информации с помощью WMI:

создаём объект SWbemLocator, класс которого определен в модуле WbemScripting_TLB.pass;

выполняем подключение к SWbemLocator с помощью объекта Service интерфейса ISWbemServices;

с помощью объекта SObject интерфейса ISWbemObject выполняем подключение к классу [Win32_имя класса];

с помощью объекта ObjectSet интерфейса ISWbemObjectSet получаем список столбцов и полей;

заполняем данными столбцами и полями объект Enum интерфейса IEnumVariant;

с помощью цикла перебираем все столбцы с записями объекта Enum и выводим в компонент TMemo в виде записи [имя столбца]: [значение поля, соответствующее столбцу];

уничтожаем объект SWbemLocator.

Алгоритм отправки информации на FTP-сервер:

формируем имя создаваемого файла;

сохраняем на диске этот файл;

заполняем поля компонента idFTP1 информацией, необходимой для подключения к FTP-серверу, и выполняем подключение к этому серверу;

с помощью метода Put отправляем файл на сервер;

отключаемся от FTP-сервера.

Для получения списка процессов необходимо определиться с версией операционной системы Windows. Для этого используются следующие алгоритмы:

с помощью метода dwOSVersionInfoSize объекта ovi класса TOSVersionInfo и функции GetVersionEx получим номер платформы ОС Windows;

исходя из значения ovi. dwPlatformId создаём список текущих процессов с помощью методов Win32API Process32First и Process32Next и объекта ProcInfo класса TprocessEntry32 в случае, если платформа ОС Windows будет 9.х. В случае, если платформа OC Windows будет NT, с помощью методов EnumProcessModules и GetModuleFileNameEx и объекта hProcess класса THandle получаем информацию о текущих процессах.

Демонстрация работы программы

Исходное состояние программы показано на рисунке 2.1.

Рисунок 2.1 Исходное состояние программы.

Результат сбора информации о компьютере по нажатию кнопки «Сбор информации о ПК» показан на рисунке 2.2. Листинг полной информации приведён в Приложении Б.

Рисунок 2.2 Сбор и вывод информации в окно программы.