Как можно узнать параметры компьютера?

← →
Olfi (2002-01-26 12:33) [0]

Например, частоту процессора, или параметры монитора, размер ОЗУ и т. д. ?

← →
VuDZ (2002-01-26 13:44) [1]

а справку по API почитать сложно?
частота проца - абсолютно точно _declspec(naked) __int64 GetCpuTick() { __asm { rdtsc ret } } int GetCpuFrequency () { __int64 Frequency, TimerCount1, TimerCount2, CpuCount1, CpuCount2; if (!QueryPerformanceFrequency ((LARGE_INTEGER*) &Frequency)) return 0; QueryPerformanceCounter ((LARGE_INTEGER*) &TimerCount1); CpuCount1 = GetCpuTick (); Sleep (500); CpuCount2 = GetCpuTick (); QueryPerformanceCounter ((LARGE_INTEGER*) &TimerCount2); if (TimerCount1 == TimerCount2) return 0; return (int) ((double) ((CpuCount2 - CpuCount1) * Frequency) / (double) (TimerCount2 - TimerCount1)); }

для типа проца - CPUID - assembly
всё остальное - GetSystemInfo()

← →
Роман_79 (2002-02-13 13:44) [2]

Удалено модератором

← →
MCi (2002-02-13 19:38) [3]

Для примера: получение ин-фы о видео

function video(i:integer):string;
var
reg : TRegIniFile;
begin
Result:="unavailable";
reg := TRegIniFile.Create("");
with reg do begin
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey("Config\0001\Display\Settings",true);
case i of
0: if ReadString("","DriverDesc","")<>"" then Result:=ReadString("","DriverDesc","");
1: if ReadString("","ProviderName","")<>"" then Result:=ReadString("","ProviderName","");
2: if ReadString("","DriverDate","")<>"" then Result:=ReadString("","DriverDate","");
3: if ReadString("","Ver","")<>"" then Result:=ReadString("","Ver","");
end;
CloseKey;
finally
Free;
end;
end;
end;

Для получения другой информации пошарся в реестре и найдешь все что тебе нужно.

← →
Fthr (2002-02-14 09:26) [4]

MiTeC System Information Component v.7.0 (1891kb) (12.02.02 17:47)
Компонент предоставляет детальную информацию о системе:
-зарегистрированная организация,пользователь;
-часовой пояс;
-имя машины, IP адрес, MAC адрес;
-дата и время последней загрузки системы;
-тип процессора, количество, ID, частота;
-версия ОС, платформа, имя пользователя, серийный номер;
-тип графического адаптера, объем видеопамяти, разрешение экрана, глубина цвета;
-тип звуковой карты;
-принтеры;
-мониторы;
-информация о памяти, минимальные и максимальные адреса приложений;
-информация о дисках, файловой системе;
-данные о BIOS"е: дата, производитель, доп. информация;
-версия и дата видеобиоса;
-сетевой адаптер, протоколы, клиенты, информация о Winsock;
-версия BDE, ODBC;
-информация о DirectX;
-список запущеных процессов;
-список установленых программ;
-автозагружаемые программы;
Компонент отображает загрузку процессора. Включен апплет для панели управления.
Новая версия компоненты
Компонента из раздела: System: System Info
Источник: www.torry.net Автор: Michal Mutl
-= · VCL · =- [Перевел: Сергей Касаткин]

Не хочешь напрягаться - воспользуйся!! Это из вчерашней рассылки.

← →
Blackeye (2002-02-14 14:14) [5]

Напиши мне я тебе вышлю свой проэкт по определпнию сисетмной информации компа, с нормальными функциями

← →
Blackeye (2002-02-14 14:14) [6]

Напиши мне я тебе вышлю свой проэкт по определению сисетмной информации компа, с нормальными функциями

← →
Quest (2002-02-14 14:49) [7]

>Blackeye
можно и мне взглянуть? (quest@beep.ru)

← →
dusky (2002-02-22 20:31) [8]

Если можно, я бы тоже очень хотела посмотреть.

← →
Poirot (2002-02-23 20:11) [9]

И мне плиз.....

Как можно узнать параметры компьютера? Найти похожие ветки