Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: İşlemci Firması bulmak  (Okunma sayısı 2047 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Mikdad

  • Delphi 4 Level 1
  • *
  • İleti: 150
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.mikdad.net
İşlemci Firması bulmak
« : 08 Kasım 2005 20:14:03 »
İşlemcinin üretici firmasını bulma.
� ne işe yarıyacak bilmiyorum ama belki size yarar
Kod:  (Unknown Language)
  1. function GetVendorString: string;
  2. var
  3. aVendor: array[0..2] of DWord;
  4. iI, iJ : Integer;
  5. begin
  6. asm
  7. push ebx
  8. xor eax, eax
  9. dw $A20F // CPUID instruction
  10. mov DWord ptr aVendor, ebx
  11. mov DWord ptr aVendor[+4], edx
  12. mov DWord ptr aVendor[+8], ecx
  13. pop ebx
  14. end;
  15. for iI := 0 to 2 do
  16. for iJ := 0 to 3 do
  17. Result := Result + Chr((aVendor[iI] and ($000000FF shl (iJ * 8))) shr (iJ * 8));
  18. end;

« Son Düzenleme: 20 Mayıs 2009 12:52:27 by Kocaturk »
Kayıtlı
Hiç KiMSe VaZGeÇiLMeZ DeĞiLDiR
WwW.Minikhost.Net    Host Dünyasında Yeni Bir Soluk
WwW.Mikdad.Net        İslami İçerikli Portalınız
WwW.Pckahvesi.com   Netteki Yeni Adresiniz

Çevrimdışı XLG

  • Delphi 2 Level 5
  • *****
  • İleti: 91
  • Rep: +0/-0
  • Cinsiyet: Bay
  • BEST-OF-GKN
Ynt: İşlemci Firması bulmak
« Yanıtla #1 : 20 Mayıs 2009 12:13:37 »
sağol
İŞLETİM SİSTEMİ YAPMAK İSTYENLER BEİ BULSUN BERABER YAPALIM
Kayıtlı
BEST-OF-GKN

Çevrimdışı ufk180

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
Ynt: İşlemci Firması bulmak
« Yanıtla #2 : 25 Ağustos 2009 22:53:29 »
Bunu Nasıl Çağırıcaz yada Kullanıcaz ? Acil lazım :)
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: İşlemci Firması bulmak
« Yanıtla #3 : 26 Ağustos 2009 09:45:03 »
arkadaşın verdiğin function ı unit ine ekle daha sonra bi button koy verdiğim kodları içine yaz ...

Kod:  (Unknown Language)
  1.  var
  2.  s : string;
  3. begin
  4.   s := GetVendorString;
  5.   ShowMessage(s)
  6.  
Kayıtlı



Amatör Küme Programcı
Sayfa: [1]   Yukarı git
« önceki sonraki »