:: |
Autor |
Poruka |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
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)
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
lazarevic2006 Upozorenja: 1 od 3 Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 41
Datum registracije: 06 Nov 2005 Poruke: 12 Mesto: Subotica
![serbia.gif](images/flags/serbia.gif)
|
|
nista tu meni nije jasno
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
A jel ti jasno sto imas upozorenje!? Ako nije pitaj...
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
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
|
|