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);
...
И проект прикреплю, честно скажу, не мой, скачал с другого форума, но в своё время мне этот проект немного помог.