sjwrec
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program
[Code]
Function InitializeSetup: Boolean;
var
xml, currNode, currNode1, currNode1s1, currNode2, currNode2s1, currNode2s2, currNode2s3, currNode3, currNode4, currNode4s1: Variant;
ResultCode: Integer;
begin
Exec('DXDIAG', '/x '+ExpandConstant('{tmp}')+'\info.xml', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
xml:= CreateOleObject('MSXML2.DOMDocument');
xml.async:= false;
xml.preserveWhiteSpace:= true;
xml.load(ExpandConstant('{tmp}\info.xml'));
currNode:= xml.selectSingleNode('//Processor'); // Процессор
currNode1:= xml.selectSingleNode('//Memory'); // ОЗУ
currNode1s1:= xml.selectSingleNode('//PageFile'); // Файл подкачки
currNode2:= xml.selectSingleNode('//CardName'); //Видеокарта
currNode2s1:= xml.selectSingleNode('//DisplayMemory'); //Память видео
currNode2s2:= xml.selectSingleNode('//CurrentMode'); //Разрешение
currNode2s3:= xml.selectSingleNode('//DDIVersion'); //DDI
currNode3:= xml.selectSingleNode('//SoundDevice/Description'); //Звуковая карта
currNode4:= xml.selectSingleNode('//OperatingSystem'); //Операционная система
currNode4s1:= xml.selectSingleNode('//DirectXVersion'); //Версия DirectX
MsgBox(
'Процессор: '+currNode.text+#13#13
+'Оперативная память: ~'+currNode1.text+#13
+'Файл подкачки: '+currNode1s1.text+#13#13
+'Видеокарта: '+currNode2.text+' '+currNode2s1.text+' '+currNode2s2.text+' DDI: '+currNode2s3.text+#13#13
+'Звуковая карта: '+currNode3.text+#13#13
+'Операционная система: '+currNode4.text+' Версия DirectX: '+currNode4s1.text
,mbInformation, MB_OK);
End;
|
Всего записей: 473 | Зарегистр. 01-10-2010 | Отправлено: 09:52 06-12-2013 | Исправлено: sjwrec, 10:31 06-12-2013 |
|
