 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
Za određivanje brzine i familije procesora napisaćemo dve funkcije. Važno je da se u Uses klauzulu obavezno doda i unit Registry.
za brzinu procesora
| Code: | function GetCpuSpeed: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False) then
begin
Result := IntToStr(Reg.ReadInteger('~MHz')) + ' MHz';
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end; |
za familiju procesora
| Code: | function CPUname: string;
var
Reg: TRegistry;
begin
CPUname := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then
CPUname := Reg.ReadString('Identifier');
finally
Reg.Free;
end;
end; |
Primer:
| Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := CPUName + ' (' +GetCPUSpeed + ')';
end; |
Moguć izlazni rezultat je na primer: x86 Family 6 Model 8 Stepping 6 (851 MHz)
|
|
|
| |
|
 |
lazarevic2006
Upozorenja: 1 od 3
Početnik Domaćeg.de
|
Godine: 41
Datum registracije: 06 Nov 2005
Poruke: 12
Mesto: Subotica
|
|
nista tu meni nije jasno  
|
|
|
| |
|
|
himzo
Banovan!
Odomaćeni član
|
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
|
A jel ti jasno sto imas upozorenje!? Ako nije pitaj...
|
|
|
| |
|
|
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
