[Admiral]

qE+, совсем недавно была тема Delphi - Определение количества RAM и количества видеопамяти

[Virtyaluk]

Admiral,
спасибо за ссылку на не решенною тему
но мне нужно в одном окне отобразить не только количество RAM и количество видеопамяти,
а всю информацию о системе + все это организовать на C++!!
И желательно чтоб кто-то помог т.е. написал полностью рабочий код.

[Drongo]

qE+, У меня такой код есть.

1. Разрешение монитора

Код:

...
// Узнаём разрешение монитора
   Label1->Caption = String(Screen->Monitors[0]->Width) + "x" +Screen->Monitors[0]->Height;
...

2. Узнаём количество оперативной памяти

Код:

...
// Узнаём количество оперативной памяти
   TMemoryStatus MS;
   MS.dwLength = sizeof(MS);
   GlobalMemoryStatus(&MS);
   Label2->Caption = String("Всего памяти:                         ") + FormatFloat("#,###' МБ'", MS.dwTotalPhys / 1024);
   CHAR lpMemLoad[5];
   sprintf(lpMemLoad, "%d %%", MS.dwMemoryLoad);
   Label3->Caption = String("Использование ОЗУ:               ") + lpMemLoad;
...

3. Всего памяти.

Код:

 ...
   MEMORYSTATUS mem;
   memset((void*)&mem, 0, sizeof(mem));
   mem.dwLength = sizeof(mem);
   GlobalMemoryStatus(&mem);
   Label4->Caption = String("Всего памяти: ") + IntToStr(mem.dwTotalPhys);
...

И проект прикреплю, честно скажу, не мой, скачал с другого форума, но в своё время мне этот проект немного помог.

[Virtyaluk]

Drongo,
спасибо за код.
если можно, напишите еще для определения ОС и VRAM
И поместите все это в одно окошко в окне всей программы т.е. сюда:

Код:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Label1Click(TObject *Sender)
{

}
//---------------------------------------------------------------------------

P.S. Программа из прикрепленного файла не запустилась, просит vcl60.bpl - ОСь у меня Win7U

[Drongo]

P.S. Программа из прикрепленного файла не запустилась, просит vcl60.bpl »

Это потому что при компиляции не снята галка "использовать пакеты" Вот рабочая прога.

И поместите все это в одно окошко в окне всей программы т.е. сюда: »

Ну, поместить вы впринципе и сами можете, дело в том, что я не знаю структуры вашей программы, что и куда должно выводиться у вас... В моём примере всё выводится на Label1, Label2, и т.д...

если можно, напишите еще для определения ОС и VRAM »

Боюсь, здесь тоже ничем не смогу помочь.

[Virtyaluk]

Drongo,
исходя из прикрепленного вами файла:
- как сделать чтоб информация отображалась не при нажатии кнопки?
- можно ли как-то MessageDlg(Information_String, mtInformation, TMsgDlgButtons() << mbOK, 0);
поместить в форму??

[Drongo]

- как сделать чтоб информация отображалась не при нажатии кнопки? можно ли как-то MessageDlg(Information_String, mtInformation, TMsgDlgButtons() << mbOK, 0); поместить в форму?? »

Конечно, в комменте 4 на листинге (не в прикреклённом файле) примеры приведены. Нужно на форму кинуть компоненты Label1, Label2, и т.д.

[Virtyaluk]

Всем спасибо за помощь, сам решил все!
На сайте Майкрософт есть специальная утилита, которая показывает код для нужного устройства.

[Drongo]

На сайте Майкрософт есть специальная утилита, которая показывает код для нужного устройства »

Скинь название проги и ссылку на неё.

Решением поделиться можешь?