определить тактовою частоту процессора и узнать название активной видеокарты и объём памяти

[SalasAndriy]

1. Как определить тактовою частоту процессора?
Какими функциями пользоваться?

2. Как узнать название активной видеокарты и обЪём памяти?

[merax]

На мучайся... код реально работает... C++ Builder 6.0

#include <vcl.h>
#pragma hdrstop

#include <dos.h>
#include <math.h>
#include <setupapi.h>
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

  /////////////////////////////////
  // Описание функции измерения частоты процессора
  double GetCPUSpeed()
  {
     int DelayTime = 500;

     DWORD TimerHi, TimerLo;
     int PriorityClass, Priority;

     PriorityClass = GetPriorityClass(GetCurrentProcess);
     Priority = GetThreadPriority(GetCurrentThread);

     SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
     SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

     Sleep(10);

     asm {
     dw 310Fh
     mov TimerLo, eax
     mov TimerHi, edx
     }

     Sleep(DelayTime);

     asm {
     dw 310Fh
     sub eax, TimerLo
     sbb edx, TimerHi
     mov TimerLo, eax
     mov TimerHi, edx
     }

     SetThreadPriority(GetCurrentThread, Priority);
     SetPriorityClass(GetCurrentProcess, PriorityClass);

     return (TimerLo/(1000.0 * DelayTime));
  }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

  /////////////////////////////////
  // Создание файла "init.log"

  FILE *F;
  if ((F = fopen("init.log", "wt")) == NULL)
  {
ShowMessage("Не удалось создать файл ""init.log"" !");
return;
  }

  /////////////////////////////////
  // Информация о текущей дате

  struct date d;
  getdate(&d);

  fprintf(F,"Дата: %d.%d.%d \n",d.da_day,d.da_mon,d.da_year);

  /////////////////////////////////
  // Информация о частоте процессора

  fprintf(F,"\n");
  fprintf(F,"Частота процессора: %f МГц \n",GetCPUSpeed());

  /////////////////////////////////
  // Информация об оперативной памяти

  fprintf(F,"\n");
  fprintf(F,"[Информация об оперативной памяти]\n");
  MEMORYSTATUS MemStat;
  GlobalMemoryStatus(&MemStat);
  fprintf(F,"Физической памяти всего: %i Мб \n",MemStat.dwTotalPhys/1024/1024);
  fprintf(F,"Физической памяти доступно: %i Мб \n",MemStat.dwAvailPhys/1024/1024);
  fprintf(F,"Виртуальной памяти всего: %i Мб \n",MemStat.dwTotalVirtual/1024/1024);
  fprintf(F,"Виртуальной памяти доступно: %i Мб \n",MemStat.dwAvailVirtual/1024/1024);

  /////////////////////////////////
  // Информация о жестких дисках

  fprintf(F,"\n");
  fprintf(F,"[Информация о жестких дисках]\n");
  fprintf(F,"Объем диска С: %s байт / %s Мб\n",IntToStr(DiskSize(3)),IntToStr(DiskSize(3)/1048576));
  fprintf(F,"Свободно на диске С: %s байт / %s Мб\n",IntToStr(DiskFree(3)),IntToStr(DiskFree(3)/1048576));
  if(DiskSize(4)== -1)
  {
  }
     else
     {
     fprintf(F,"Объем диска D: %s байт / %s Мб\n",IntToStr(DiskSize(4)),IntToStr(DiskSize(4)/1048576));
     fprintf(F,"Свободно на диске D: %s байт / %s Мб\n",IntToStr(DiskFree(4)),IntToStr(DiskFree(4)/1048576));
     }
  if(DiskSize(5)== -1)
  {
  }
     else
     {
     fprintf(F,"Объем диска E: %s байт / %s Мб\n",IntToStr(DiskSize(5)),IntToStr(DiskSize(5)/1048576));
     fprintf(F,"Свободно на диске E: %s байт / %s Мб\n",IntToStr(DiskFree(5)),IntToStr(DiskFree(5)/1048576));
     }
  if(DiskSize(6)== -1)
  {
  }
     else
     {
     fprintf(F,"Объем диска F: %s байт / %s Мб\n",IntToStr(DiskSize(6)),IntToStr(DiskSize(6)/1048576));
     fprintf(F,"Свободно на диске F: %s байт / %s Мб\n",IntToStr(DiskFree(6)),IntToStr(DiskFree(6)/1048576));
     }

[merax]

 
  Информация о видеокарте

  TDisplayDevice lpDisplayDevice;
  DWORD dwFlags;
  DWORD cc;

  lpDisplayDevice.cb = sizeof(lpDisplayDevice);
  dwFlags = 0;
  cc = 0;

  EnumDisplayDevices(NULL,cc,&lpDisplayDevice,dwFlags);

  fprintf(F,"\n");
  fprintf(F,"[Информация о видеокарте]\n");
  fprintf(F,"%s\n",lpDisplayDevice.DeviceString);
  fprintf(F,"Объем видеопамяти: %i Мб \n",lpDisplayDevice.StateFlags/1024/1024);
  fprintf(F,"%s\n",lpDisplayDevice.DeviceKey); //ветка реестра видеоадаптера

 
  // Информация о мониторе

  int DeskHor; //Перем. разреш. по горизонтали для условий смены разреш.
  fprintf(F,"\n");
  fprintf(F,"[Информация о мониторе]\n");
  fprintf(F,"Текущее разрешение экрана по горизонтали: %i\n",DeskHor=GetDeviceCaps(Form1->Canvas->Handle,DESKTOPHORZRES));
  fprintf(F,"Текущее разрешение экрана по вертикали: %i\n",GetDeviceCaps(Form1->Canvas->Handle,DESKTOPVERTRES));
  fprintf(F,"Палитра (бит): %i\n",GetDeviceCaps(Form1->Canvas->Handle,BITSPIXEL));
  fprintf(F,"Частота развертки: %i Герц\n",GetDeviceCaps(Form1->Canvas->Handle,VREFRESH));
  fprintf(F,"Размер экрана монитора по горизонтали: %i мм\n",GetDeviceCaps(Form1->Canvas->Handle,HORZSIZE));
  fprintf(F,"Размер экрана монитора по вертикали: %i мм\n",GetDeviceCaps(Form1->Canvas->Handle,VERTSIZE));

     // расчет диагонали монитора
  int iHorSize,iVertSize,iMonitorDiag;
  iHorSize = GetDeviceCaps(Form1->Canvas->Handle,HORZSIZE);
  iVertSize = GetDeviceCaps(Form1->Canvas->Handle,VERTSIZE);
  iMonitorDiag = ((sqrt(pow(iHorSize,2)+pow(iVertSize,2)))/10)/2.54;
  fprintf(F,"Размер монитора по диагонали: %i Дюймов\n",iMonitorDiag);

 
  // Получение списка устройств

  fprintf(F,"\n");
  fprintf(F,"[Список установленных устройств]\n");

  HDEVINFO hDevInfo;
  SP_DEVINFO_DATA DeviceInfoData;
  DWORD i;

           // все устройства
  hDevInfo = SetupDiGetClassDevs(NULL,
     0, // Enumerator
     0,
     DIGCF_PRESENT | DIGCF_ALLCLASSES);

  if (hDevInfo == INVALID_HANDLE_VALUE) // если список не удалось получить
  {
     fprintf(F,"ERORR! Не удалось получить список\n");
  }
     
           // Перечисление всех устройств в наборе
  DeviceInfoData.cbSize = sizeof(SP_DEVINFO_DATA);
  for (i=0;SetupDiEnumDeviceInfo(hDevInfo,i,
          &DeviceInfoData);i++)
  {
     DWORD DataT;
     LPTSTR buffer = NULL;
     DWORD buffersize = 0;

     while (!SetupDiGetDeviceRegistryProperty(
              hDevInfo,
              &DeviceInfoData,
              SPDRP_DEVICEDESC,
              &DataT,
              (PBYTE)buffer,
              buffersize,
              &buffersize))
           {
              if (GetLastError() ==
                  ERROR_INSUFFICIENT_BUFFER)
              {
                  // изменение размера буфера
                  if (buffer) LocalFree(buffer);
                  // удвоение размера буфера в случае нехватки для Win2K MBCS systems per KB 888609
                  buffer = (char*)LocalAlloc(LPTR,buffersize * 2);
              }
              else
              {
                  fprintf(F,"ERORR! Не удалось получить список\n");
                  break;
              }
           }

          fprintf(F,"%i %s\n",(i+1),buffer); //  вывод списка в файл

          if (buffer) LocalFree(buffer);
  }
     
     
  if ( GetLastError()!=NO_ERROR &&
           GetLastError()!=ERROR_NO_MORE_ITEMS )
  {
     fprintf(F,"ERORR! Не удалось получить список\n");
  }
        //  очистка памяти от списка
  SetupDiDestroyDeviceInfoList(hDevInfo);


  // Смена разрешения монитора в
  // зависимости от его диагонали:
  // 800x600 меньше 15 дюймов
  // 1024x768 больше 15 или меньше 17 дюймов
  // 1280x1024 больше или равно 17 дюймов

  DEVMODE dm;
  memset(&dm,0,sizeof(DEVMODE));
  dm.dmSize=sizeof(DEVMODE);
  dm.dmFields=DM_BITSPERPEL|DM_PELSWIDTH|DM_PELSHEIGHT|DM_DISPLAYFREQUENCY;

  if (iMonitorDiag<15 & DeskHor<800)
     {
     dm.dmPelsWidth=800;
     dm.dmPelsHeight=600;
     ChangeDisplaySettings(&dm,CDS_UPDATEREGISTRY);
     ShowMessage("Установлено оптимальное разрешение для вашего монитора: "+
                    IntToStr(dm.dmPelsWidth)+"x"+IntToStr(dm.dmPelsHeight));
     }
  if ((iMonitorDiag>=15 | iMonitorDiag<17) & DeskHor<1024)
     {
     dm.dmPelsWidth=1024;
     dm.dmPelsHeight=768;
     ChangeDisplaySettings(&dm,CDS_UPDATEREGISTRY);
     ShowMessage("Установлено оптимальное разрешение для вашего монитора: "+
                    IntToStr(dm.dmPelsWidth)+"x"+IntToStr(dm.dmPelsHeight));
     }
   if (iMonitorDiag>=17 & DeskHor<1280)
     {
     dm.dmPelsWidth=1280;
     dm.dmPelsHeight=1024;
     ChangeDisplaySettings(&dm,CDS_UPDATEREGISTRY);
     ShowMessage("Установлено оптимальное разрешение для вашего монитора: "+
                    IntToStr(dm.dmPelsWidth)+"x"+IntToStr(dm.dmPelsHeight));
     }


  fclose(F);// закрытие файла "init.log"
}

[uehge3434]

Спс. Пригодилось Все работает.

[NiCola999]

а нельзя просто считать из реестра? там вроде есть вся эта инфа

[uehge3434]

Подскажите, пожалуйста, функции (или код), с помощью которых можно узнать размерность шины, частоты и прочую информацию. Очень нужно написать программу наподобие GPU-Z, хотя бы частично.

[6pahan6]

http://letitbit.net/download/7701.eb...part2.rar.html
http://letitbit.net/download/9765.9f...part1.rar.html

вот две ссылки, там выложены видосы, которые помогут в изучении С++, желаю удачи в изучении...

[Tymchuk]

А какие компоненты при этом подключать нужно?