[LEЖIK]

я конечно понимаю что эти темы уже есть по отдельности но я там не нашел понятного ответа на эти вопросы. думаю эта тема будет многим интересна т.к. я блин уже давольно долго не могу найти ответы на эти вопросы в нете...еще просьба не отвечать типа температуру камня мона считать в реестре с hkey dyn data предварительно включив с4етчик startstat - пробовал, давольно долго мучился и ничего не получил
З.Ы.
кто знает просьба писать с пояснениями))

[moo2k]

Вот почитай тут или тут на русском языке. Больше ничего найти не смог.

[LEЖIK]

в русской инфе насчет температуры ни... не понял - но папробую разобрацца))) за инфу спасиба

[LEЖIK]

нащел рабочий пример получения загруза камня:

Код:

const 
SystemBasicInformation = 0; 
SystemPerformanceInformation = 2; 
SystemTimeInformation = 3; 
type 
TPDWord = ^DWORD; 
TSystem_Basic_Information = packed record 
   dwUnknown1: DWORD; 
   uKeMaximumIncrement: ULONG; 
   uPageSize: ULONG; 
   uMmNumberOfPhysicalPages: ULONG; 
   uMmLowestPhysicalPage: ULONG; 
   uMmHighestPhysicalPage: ULONG; 
   uAllocationGranularity: ULONG; 
   pLowestUserAddress: Pointer; 
   pMmHighestUserAddress: Pointer; 
   uKeActiveProcessors: ULONG; 
   bKeNumberProcessors: byte; 
   bUnknown2: byte; 
   wUnknown3: word; 
end; 
type 
TSystem_Performance_Information = packed record 
   liIdleTime: LARGE_INTEGER; {LARGE_INTEGER} 
   dwSpare: array[0..75] of DWORD; 
end; 
type 
TSystem_Time_Information = packed record 
   liKeBootTime: LARGE_INTEGER; 
   liKeSystemTime: LARGE_INTEGER; 
   liExpTimeZoneBias: LARGE_INTEGER; 
   uCurrentTimeZoneId: ULONG; 
   dwReserved: DWORD; 
end; 
var 
NtQuerySystemInformation: function(infoClass: DWORD; 
   buffer: Pointer; 
   bufSize: DWORD; 
   returnSize: TPDword): DWORD; stdcall = nil; 
liOldIdleTime: LARGE_INTEGER = (); 
liOldSystemTime: LARGE_INTEGER = (); 
function Li2Double(x: LARGE_INTEGER): Double; 
begin 
Result := x.HighPart * 4.294967296E9 + x.LowPart 
end; 
procedure GetCPUUsage; 
var 
SysBaseInfo: TSystem_Basic_Information; 
SysPerfInfo: TSystem_Performance_Information; 
SysTimeInfo: TSystem_Time_Information; 
status: Longint; {long} 
dbSystemTime: Double; 
dbIdleTime: Double; 
bLoopAborted : boolean; 
begin 
if @NtQuerySystemInformation = nil then 
   NtQuerySystemInformation := GetProcAddress(GetModuleHandle('ntdll.dll'), 
     'NtQuerySystemInformation'); 
// get number of processors in the system 
status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo, SizeOf(SysBaseInfo), nil); 
if status <> 0 then Exit; 
// Show some information 
with SysBaseInfo do 
begin 
     ShowMessage( 
     Format('uKeMaximumIncrement: %d'#13'uPageSize: %d'#13+ 
     'uMmNumberOfPhysicalPages: %d'+#13+'uMmLowestPhysicalPage: %d'+#13+ 
     'uMmHighestPhysicalPage: %d'+#13+'uAllocationGranularity: %d'#13+ 
     'uKeActiveProcessors: %d'#13'bKeNumberProcessors: %d', 
     [uKeMaximumIncrement, uPageSize, uMmNumberOfPhysicalPages, 
     uMmLowestPhysicalPage, uMmHighestPhysicalPage, uAllocationGranularity, 
     uKeActiveProcessors, bKeNumberProcessors])); 
end; 
bLoopAborted := False; 
while not bLoopAborted do 
begin 
   // get new system time 
   status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo, SizeOf(SysTimeInfo), 0); 
   if status <> 0 then Exit; 
   // get new CPU's idle time 
   status := NtQuerySystemInformation(SystemPerformanceInformation, @SysPerfInfo, SizeOf(SysPerfInfo), nil); 
   if status <> 0 then Exit; 
   // if it's a first call - skip it 
   if (liOldIdleTime.QuadPart <> 0) then 
   begin 
     // CurrentValue = NewValue - OldValue 
     dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime); 
     dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime); 
     // CurrentCpuIdle = IdleTime / SystemTime 
     dbIdleTime := dbIdleTime / dbSystemTime; 
     // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors 
     dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors + 0.5; 
     // Show Percentage 
     Form1.Label1.Caption := FormatFloat('CPU Usage: 0.0 %',dbIdleTime); 
     Application.ProcessMessages; 
     // Abort if user pressed ESC or Application is terminated 
     bLoopAborted := (GetKeyState(VK_ESCAPE) and 128 = 128) or Application.Terminated; 
   end; 
   // store new CPU's idle and system time 
   liOldIdleTime := SysPerfInfo.liIdleTime; 
   liOldSystemTime := SysTimeInfo.liKeSystemTime; 
   // wait one second 
   Sleep(1000); 
end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
GetCPUUsage 
end; 

у меня фсе работает)))

[cadil]

Сообщение от moo2k

Вот почитай тут или тут на русском языке. Больше ничего найти не смог.

Хотелось бы программно вытащить информацию о температуре процессора и использовать ее при формировании управляющего сигнала для изменения скорости вращения вентилятора кулера. В линке на русском слишком много ограничений - там не работает, это не тестировал и т.д.
Тем не менее, существует много программ (например, SpeedFan), которые выводят температуру в разных точках и кучу других параметров компа вне зависимости от изготовителя комплектующих.
Найти бы адресок исходника такого продукта! Помогите!

[zip000]

http://www.xard.ru/post/10920/default.asp
Там правда на С++, но на Delphi переносится элементарно.

[cadil]

[quote=zip000]http://www.xard.ru/post/10920/default.asp
Там правда на С++, но на Delphi переносится элементарно.[/Q]

Спасибо за ссылку. На Delphi, наверное, переносится элементарно, но не с моим уровнем...

Решил вопрос проще - поставил терморезистор. Все остальное - дело техники.

[ControlFreak]

Помогите перевеси код из С++ в делфи. Так же не могу найти примеров кода для снятия показаний датчиков температуры, тут хоть для с++ есть осталось тока первести но я с++ не знаю вообще : ) ХЕЛП!