Victor_Dobrov
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа! Проверьте скрипт, определяющий видео и звуковые карты. У всех работает?
[Setup]
AppName=GetDeviceInfo
AppVerName=GetDeviceInfo
CreateAppDir=false
[Code]
Function InitializeSetup: Boolean;
var n, ier, DeviceID: Integer; Info, DeviceKey, DeviceData, DeviceName: String; Keys: TArrayOfString;
Begin
RegQueryStringValue(HKLM,'Hardware\Devicemap\Video','\Device\Video0', DeviceKey); StringChange(DeviceKey,'\Registry\Machine\','')
RegQueryStringValue(HKLM, DeviceKey, 'Device Description', DeviceName)
RegQueryBinaryValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', DeviceData)
ier:= 1; for n:= ier to Length(DeviceData) do begin
DeviceID:= DeviceID + Ord(DeviceData[n]) * ier; ier:= ier * $100
end;
RegQueryStringValue(HKLM,'System\CurrentControlSet\Enum\Root\Media\MS_MMDRV','ClassGUID', DeviceKey)
RegGetSubkeyNames(HKLM, 'System\CurrentControlSet\Control\Class\' + DeviceKey, Keys)
ier:= 0;
for n:= 0 to GetArrayLength(Keys)-1 do
if RegQueryStringValue(HKLM, 'System\CurrentControlSet\Control\Class\' + DeviceKey +'\'+ Keys[n]+'\Drivers\mixer\wdmaud.drv', 'Description', Keys[ier])
then ier:= ier +1
SetArrayLength(Keys, ier)
for n:= 0 to GetArrayLength(Keys)-1 do Info:= Info + 'Sound Device: '+ Keys[n] +#13#10
MsgBox('Video Card: '+ DeviceName +', '+ IntToStr(DeviceID/(1024*1024)) +' MB'#13#10 + Info, mbInformation, mb_Ok)
End; |
