Just as I expected, "Jack Frandsen" <isl52160@worldonline.dk> came up
with this:
>Hejsa, der skulle vel ikke være en eller anden der havde noget kode til at
>se cpu/motherboard temperatur?
Det er vistnok forskelligt fra producent til producent hvordan man
finder det. Spørg dem der har lavet dit motherboard.
>Også gerne cpu speed/antal ram?
Jeg ved ikke lige med CPU clock, men RAM er der en API funktion der
kan hente info om, tjek den her kode:
|var
| MemInfo: TMemoryStatus;
| Msg: string;
|begin
| Result := True;
| MemInfo.dwLength := SizeOf(MemInfo);
| GlobalMemoryStatus(MemInfo);
| Msg := '';
| with MemInfo do
| begin
| Msg := Msg + 'Memory usage: ' + IntToStr(dwMemoryLoad) + '%'#13#10#13#10;
| Msg := Msg + 'Total physical memory: ' + IntToStr(dwTotalPhys div 1024 div 1024) + ' MB'#13#10;
| Msg := Msg + 'Free phisical memory: ' + IntToStr(dwAvailPhys div 1024) + ' KB'#13#10;
| Msg := Msg + 'Used physical memory: ' + IntToStr((dwTotalPhys - dwAvailPhys) div 1024 div 1024) + ' MB'#13#10#13#10;
| Msg := Msg + 'Swap-file size: ' + IntToStr(dwTotalPageFile div 1024 div 1024) + ' MB'#13#10;
| Msg := Msg + 'Free swap-file: ' + IntToStr(dwAvailPageFile div 1024 div 1024) + ' MB'#13#10;
| Msg := Msg + 'Used swap-file: ' + IntToStr((dwTotalPageFile - dwAvailPageFile) div 1024 div 1024) + ' MB'#13#10#13#10;
| Msg := Msg + 'Total memory: ' + IntToStr((dwTotalPhys + dwTotalPageFile) div 1024 div 1024) + ' MB'#13#10;
| Msg := Msg + 'Free memory: ' + IntToStr((dwAvailPhys + dwAvailPageFile) div 1024 div 1024) + ' MB'#13#10;
| Msg := Msg + 'Used memory: ' + IntToStr((dwTotalPhys + dwTotalPageFile - dwAvailPhys - dwAvailPageFile) div 1024 div 1024) + ' MB'#13#10;
| end;
| MessageBox(0, PChar(Msg), 'Memory information', 0);
|end;
(fjern de lodrette pipes i starten af hver linie, de er der bare for
at slå text-wrapping fra.
Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://xoasis.com/~niller/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)
-- I've been Windozed!