Bilgisayarın CPU İDSİNİ ALMAK?

[Shou]

Merhabalar ben bir proje buldumda bilgisayarın cpu idsini alan fakat delphi 7 kullanıyorum proje açtıgımda hata verıyor + ben tek cpuidsini almak istiyorum bu program birçok detayı gösteriyor buyrun bakın ;



Program linki : http://www.lohninger.com/cpuid.html
İndirme linki : http://www.lohninger.com/examples/cpuinfo.zip

benım yapmak istedigim tek cpuid sini almak resimde gördügünüz en alttaki cpu idyi kendı projemde nasıl yapabılırım yardımcı olursanız sevinirim.

[ALUCARD]

aslında verdiğin örneklerde cevabınıda vermişsin.

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);

var
  CPUfs : longint;
  i     : integer;

begin
MM.Lines.Clear;
MM.Lines.Add('Number of installed CPUs: '+IntToStr(CPU_Count));
MM.Lines.Add('      Name of CPU vendor: '+CPU_VendorString);
MM.Lines.Add('      Market Name of CPU: '+CPU_MarketName);
MM.Lines.Add('            Brand of CPU: '+IntToStr(CPU_BrandID));
MM.Lines.Add('        Signature of CPU: '+Bin(CPU_Signature,32));
CPUfs := CPU_FeatureSet;
MM.Lines.Add('      Feature set of CPU: '+Bin(CPUfs,32));
MM.Lines.Add('    Serial number of CPU: '+CPU_SerialNumber);
MM.Lines.Add('      Measured CPU Speed: '+IntToStr(round(CPU_Speed(1000)))+' MHz');
MM.Lines.Add(' ');
MM.Lines.Add('       Calculated CPU Id: '+GenerateCPUID);
MM.Lines.Add(' ');

MM.Lines.Add('The following information has been extracted from the CPU signature:');
MM.Lines.Add('               CPU Model: '+IntTostr(CPU_Model));
MM.Lines.Add('      CPU Model/Extended: '+IntTostr(CPU_ExModel));
MM.Lines.Add('     CPU Stepping Number: '+IntTostr(CPU_Stepping));
MM.Lines.Add('             Type of CPU: '+IntToStr(CPU_Type));
MM.Lines.Add('               Overdrive: '+BoolTostr(CPU_OverDrive,0));
MM.Lines.Add('              CPU Family: '+IntToStr(CPU_Family));
MM.Lines.Add('     CPU Family/Extended: '+IntToStr(CPU_exFamily));
MM.Lines.Add(' ');
MM.Lines.Add('List of CPU features (extracted from the CPU feature set):');
for i:= 0 to 31 do
  begin
  if (CPUfs and $0000001) <> 0 then
    MM.Lines.Add('Bit '+IntToStr(i)+': '+CPUFeatureNames[TCPUFeatures(i)]);
  CPUfs := CPUfs shr 1;
  end;
EdCpuId.Text := GenerateCPUID;
end;

kodunun içinde senin aradığın şey

Kod: Tümünü seç

EdCpuId.Text := GenerateCPUID;

bunu istediğin yerde kullanabilirsin.

[Shou]

eminmisin abi çalışmıyor ama proje olarak yüklermisin bi test edeyim sağdece cpu idsini alan kod lazım bana ?

[ALUCARD]

çalışmıyor demek yerine keşke hatanın ne olduğunu yazsaydın belki başkasıda sana yardımcı olabilirdi.

[Shou]

Hocam o rar'lı verdigim projede çalışmıyor farkındaysan hata olarak birçok hata verıyor hangisini söylüyüm indirip bakarsınız diye linkinide verdim yardımcı olursanız sevinirim şimdiden teşekkürler..

[White Rose]

CPU bilgilerini alabilmeniz için implementation altına
Uses SDL_cpuid;
şeklinde unit eklemeniz lazım.
diğer bilgiler için de yine ilgili unitler ekleyeceksiniz.

[Shou]

Pardon hocam çalışmamasının nedeni delphi 7 componentini kurmamam mış indirdim sorunsuz çalıştı bende diyorum neden çalışmıyor

http://www.lohninger.com/download_sdlsuite.html

buradan delphi 7 sürümü kullanıyorum indirdim sorunum düzeldi teşekkürler..