www.domaci.de Forum Indeks Home
Portal • Forum • Novi upisi • Pretraga • Link do nas • Domaći filmovi • Lista korisnika • Tim sajta • Proverite privatne poruke • Prijava • Registracija
Pravilnik • FAQ • Profil • Favorites • Galerija slika • Top lista • Download MP3 • MP3 razno • Spotovi • Noviteti 2013 • Muzički noviteti 2014

Delphi: Određivanje brzine i familije procesora
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~
::  
Autor Poruka
himzo
Banovan!

Odomaćeni član
Odomaćeni član



Godine: 42

Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa

serbia.gif
PorukaPostavljena: Uto Nov 29, 2005 1:08 am    Naslov poruke: Delphi: Određivanje brzine i familije procesora Na vrh strane Na dno strane

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
Početnik Domaćeg.de



Godine: 41

Datum registracije: 06 Nov 2005
Poruke: 12
Mesto: Subotica

serbia.gif
PorukaPostavljena: Sub Dec 17, 2005 3:23 pm    Naslov poruke: Na vrh strane Na dno strane

nista tu meni nije jasno Shocked Sad
 
himzo
Banovan!

Odomaćeni član
Odomaćeni član



Godine: 42

Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa

serbia.gif
PorukaPostavljena: Ned Dec 18, 2005 7:43 pm    Naslov poruke: Na vrh strane Na dno strane

A jel ti jasno sto imas upozorenje!? Ako nije pitaj...
 
Prikaz poruka:   
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~ -> Delphi: Određivanje brzine i familije procesora Vreme je podešeno za GMT + 1 sat
Strana 1 od 1

 
Pređite u:  
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





- Burek Forum - Doček Nove 2018. godine - Venčanja, svadbe - Proslave - TipoTravel - Kuda večeras - Anwalt - legal -

Bookmark to: Twitter Bookmark to: Facebook Bookmark to: Digg Bookmark to: Del.icio.us Bookmark to: StumbleUpon