[Award]

Подскажите пжлста как получить инфомацию о том какая видюха, сетевуха и т.д. установлены на компьютере? Нужно написать прогу которая получала бы инфу о внутренностях компа. Или хотяб ссылочку где можно посмотреть.

[Dragonsoul]

procedure TForm1.button1click(Sender: TObject);
var
lpDisplayDevice: TDisplayDevice;
dwFlags: DWORD;
cc: DWORD;
begin
form2.memo1.Clear;
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
dwFlags := 0;
cc := 0;
while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
begin
Inc(cc);
form2.memo1.lines.add(lpDisplayDevice.DeviceString );
{Так же мы увидим дополнительную информацию в lpDisplayDevice}
form2.show;
end;
end;

[Dragonsoul]

http://delphiworld.narod.ru/base/search_audiocard.html

[Award]

Вот что я нашел по поводу видюхи, а ваще хотелсь сделать прогу чтоб о всех железяках на компе выдавала инфу.
var
lpDisplayDevice: TDisplayDevice;
DevMode : TDevMode;
S : String;
i, j, k : integer;
begin
// Подготовка структуры lpDisplayDevice
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
// Получение списка видеоадаптеров
i := 0;
while EnumDisplayDevices(nil, i, lpDisplayDevice, 0) do begin
Inc(i);
Memo1.Lines.Add('***** '+lpDisplayDevice.DeviceString + ' *****');
Memo1.Lines.Add(' DeviceName = ' +lpDisplayDevice.DeviceName + ' - ' + lpDisplayDevice.DeviceString);
S := lpDisplayDevice.DeviceName;
j := 0;
Memo1.Lines.Add(' Мониторы ' );
// Получение списка мониторов
while EnumDisplayDevices(@S[1], j, lpDisplayDevice, 0) do begin
inc(j);
memo1.lines.add(' DeviceMonitor = ' +lpDisplayDevice.DeviceName + ' - ' + lpDisplayDevice.DeviceString);
end;
k := 0;
Memo1.Lines.Add(' Видеорежимы ' );
// Получение списка поддерживаемых видеорежимов
while EnumDisplaySettings(Pchar(S), k, DevMode) do begin
Memo1.Lines.Add(' --- режим № '+IntToStr(k)+' ---');
inc(k);
Memo1.Lines.Add('DevMode.dmDeviceName = ' + DevMode.dmDeviceName);
Memo1.Lines.Add('DevMode.dmBitsPerPel = ' + IntToStr(DevMode.dmBitsPerPel));
Memo1.Lines.Add('DevMode.dmPelsWidth = ' + IntToStr(DevMode.dmPelsWidth));
Memo1.Lines.Add('DevMode.dmPelsHeight = ' + IntToStr(DevMode.dmPelsHeight));
Memo1.Lines.Add('DevMode.dmDisplayFrequency = ' + IntToStr(DevMode.dmDisplayFrequency) + ' Гц');
end;
end;
end;
end.

[Nataly]

Там всё покажет видео, звук, сис директорий, Hdd, всякое короче пиши на Mihailova-Nataly@inbox.ru