Gönderen Konu: CPU seri numarasını almak (Okunma sayısı 2831 defa)

barutali · « : 28 Haziran 2009 07:53:03 »

arkadaşlar bana bi ara lazım olmuştu belki işine yarayan çıkar kodlar bana ait olmayıp nerden aldığımı hatırlamamaktayım :S,

forma bir adet edit ve bir adet button koyun button un onclik olayında Cpu procedure ünü çalıştırın ....

Kod: (Unknown Language)

unit Unit1;
 
interface
 
uses SysUtils, Forms, Dialogs, Classes, Controls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure CPU(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
const
     ID_BIT     =     $200000;               // EFLAGS ID bit
type
     TCPUID     = array[1..4] of Longint;
     TVendor     = array [0..11] of char;
 
 
function IsCPUID_Available : Boolean; register;
asm
     PUSHFD                                   {direct access to flags no possible, only via stack}
  POP     EAX                         {flags to EAX}
  MOV     EDX,EAX               {save current flags}
  XOR     EAX,ID_BIT     {not ID bit}
  PUSH    EAX                         {onto stack}
  POPFD                                        {from stack to flags, with not ID bit}
  PUSHFD                                   {back to stack}
  POP     EAX                         {get back to EAX}
  XOR     EAX,EDX               {check if ID bit affected}
  JZ      @exit                    {no, CPUID not availavle}
  MOV     AL,True               {Result=True}
@exit:
end;
 
 
function GetCPUID : TCPUID; assembler; register;
asm
  PUSH    EBX         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX     {@Resukt}
  MOV     EAX,1
  DW      $A20F       {CPUID Command}
  STOSD                         {CPUID[1]}
  MOV     EAX,EBX
  STOSD               {CPUID[2]}
  MOV     EAX,ECX
  STOSD               {CPUID[3]}
  MOV     EAX,EDX
  STOSD               {CPUID[4]}
  POP     EDI                         {Restore registers}
  POP     EBX
end;
 
 
function GetCPUVendor : TVendor; assembler; register;
asm
  PUSH    EBX                         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX               {@Result (TVendor)}
  MOV     EAX,0
  DW      $A20F                    {CPUID Command}
  MOV     EAX,EBX
  XCHG          EBX,ECX     {save ECX result}
  MOV               ECX,4
@1:
  STOSB
  SHR     EAX,8
  LOOP    @1
  MOV     EAX,EDX
  MOV               ECX,4
@2:
  STOSB
  SHR     EAX,8
  LOOP    @2
  MOV     EAX,EBX
  MOV               ECX,4
@3:
  STOSB
  SHR     EAX,8
  LOOP    @3
  POP     EDI                         {Restore registers}
  POP     EBX
end;
 
procedure TForm1.CPU(Sender: TObject);
var
  CPUID : TCPUID;
  I     : Integer;
  S               : String;
begin
     for I := Low(CPUID) to High(CPUID)
     do CPUID[I] := -1;
 
 
  if IsCPUID_Available then
  begin
       CPUID     := GetCPUID;
 
       S := IntToHex(CPUID[1],8) + '_';
       S := S + IntToHex(CPUID[4],8) + '_';
       S := S + IntToHex(CPUID[3],8) + '_';
       S := S + IntToHex(CPUID[2],8);
 
       Edit1.Text := (S);
 
  end;
end;
 
end.
 
 
 
 

selchuk · « **Yanıtla #1 :** 09 Ocak 2010 00:55:23 »

Çalışan bir örnek varmı acaba?

Ben çalıştıramadım.

MosCom · « **Yanıtla #2 :** 09 Ocak 2010 09:17:48 »

sağolasın barutali..

selchuk · « **Yanıtla #3 :** 10 Ocak 2010 01:02:02 »

MosCom arkadaşım bu kodu çalıştırabildiysen örneği yollarmısın?

barutali · « **Yanıtla #4 :** 10 Ocak 2010 08:11:08 »

örnek ektedir ... Kodu biraz değiştirdim son CPU procedure ünü function yaptım ..

selchuk · « **Yanıtla #5 :** 10 Ocak 2010 15:46:41 »

Çok teşekkür ederim.

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: CPU seri numarasını almak (Okunma sayısı 2831 defa)

barutali

CPU seri numarasını almak

selchuk

Ynt: CPU seri numarasını almak

MosCom

Ynt: CPU seri numarasını almak

selchuk

Ynt: CPU seri numarasını almak

barutali

Ynt: CPU seri numarasını almak

selchuk

Ynt: CPU seri numarasını almak