Архив форумов ЦИТФорума

[Alex8]

Как и какой в программе надо добавить код
или что-либо подобное что бы определить
его конфигурацию(монитор, видео-аудиокарты и т. д.) Помогите пожалуста!

[Anatoliy]

"Накромсал" из своей проги некоторый код может сгодиться для чего нибудь:
//-----------------------------------------------------------.. TInfoPC::TInfoPC(TComponent* Owner)
: TForm(Owner)
{
// Height;
AnsiString ScreenWidth = Screen->Width;
ResolutionLabel->Caption = ScreenWidth + " x " + ScreenHeight;
int ColorDepth = 0;
if(GetDeviceCaps(Canvas->Handle, RASTERCAPS) & RC_PALETTE)
{ ColorDepth = GetDeviceCaps(Canvas->Handle, COLORRES); }
else
{ ColorDepth = GetDeviceCaps(Canvas->Handle, BITSPIXEL)
* GetDeviceCaps(Canvas->Handle, PLANES); }
ColorDepthLabel->Caption = AnsiString(ColorDepth) + " bits per pixel";
if(Screen->PixelsPerInch == 120)
{ FontSizeLabel->Caption = "Large"; }
else
if(Screen->PixelsPerInch == 96)
{ FontSizeLabel->Caption = "Small"; }
else
{ FontSizeLabel->Caption = AnsiString("Custom Font Size = ")
+ Screen->PixelsPerInch
+ " pixels per inch"; }
// -- Разр.экрана, цвет.палитра, шрифт -- >>
// Caption = "Операционная система: Windows Win32s";
else if (osinfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
Label10->Caption = "Операционная система: Windows 9x";
else if (osinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
Label10->Caption = "Операционная система: Windows NT";
else Label10->Caption = "Операционная система: Unknown";
// -- определение ОС -- >>
// Caption = String("Версия операционной системы: ") + String(osinfo.dwMajorVersion)
+ "." + String(osinfo.dwMinorVersion);
// -- определение ОС версии-- >>
Label2->Caption = String("Сборка ОС #: ") + String(osinfo.dwBuildNumber);
Label3->Caption = String("System Version Info: '")
+ osinfo.szCSDVersion + "'";