Bilgisyar bilgileri

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sako
Üye
Mesajlar: 453
Kayıt: 11 Haz 2003 01:40
Konum: ERZURUM

Bilgisyar bilgileri

Mesaj gönderen sako » 09 Nis 2012 11:14

Bilgisayarda format atılsa dahi değişmeyen bir bilgi var mıdır ? (örn:CPU numarası, HDD Numarası vb). Varsa ben bu bilgiyi nasıl alabirilim ?

Kolay gelsin...
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI

Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1315
Kayıt: 07 May 2009 09:42
Konum: İstanbul
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen SimaWB » 09 Nis 2012 11:30

Bu forumda birçok kez konuşulmuş bir konu bu. Çok basit bir arama yaparak ulaşabilirsiniz...
There's no place like 127.0.0.1

cecihan
Üye
Mesajlar: 94
Kayıt: 30 Ara 2006 11:40
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen cecihan » 09 Nis 2012 02:10

AZsdk hardwareid isimli bir dll var. satın almak isterseniz fiyatıda makul bana göre. hdd serial, cpu id, bios id gibi sizin seçtiğiniz numaralardan o pc için bir key üretiyor. ben resource içine gömüp geçici bir dosyaya yazdırıp çalıştırıyorum.delphide direk hafızadan çalıştırmakta mümkün. biraz aratırsanız bu konuyla ilgili sourcelar var.(c++builderde nedense çalıştıramadım.)

ertemsoft
Üye
Mesajlar: 129
Kayıt: 19 Nis 2005 12:22
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen ertemsoft » 11 Nis 2012 10:36

merhaba

ekteki örnek işinizi görecektir.

saygılarımla
Dosya ekleri
esutils.zip
pc özellikleri
(24.52 KiB) 95 kere indirildi
Bilgi Paylaştıkça Çoğalır

orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 01:14
Konum: İstanbul / Kadıköy
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen orhancc » 12 Nis 2012 11:13

JEDI nin bir componenti var bu tür bilgileri alabilen onu bir inceleyin. Örnek uygulaması da vardı.

savasgti
Üye
Mesajlar: 103
Kayıt: 07 Eki 2008 05:13

Re: Bilgisyar bilgileri

Mesaj gönderen savasgti » 13 Nis 2012 10:59

jedinin hangi componenti

Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1315
Kayıt: 07 May 2009 09:42
Konum: İstanbul
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen SimaWB » 13 Nis 2012 11:54

WMI kullanarak kolayca istediğiniz bilgilere ulaşabilirsiniz. Ben bir projemde aşağıdaki 2 fonksiyonu kullanarak anakartın ve HDD'nin seri numaralarını okuyorum. (Delphi5 + Windows7)

Kod: Tümünü seç

function GetMotherBoardSerial:String;
var
  WMIServices : ISWbemServices;
  Root        : ISWbemObjectSet;
  Item        : Variant;
begin
  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select SerialNumber From Win32_BaseBoard','WQL', 0, nil);
  Item := Root.ItemIndex(0);
  Result:=VarToStr(Item.SerialNumber);
end;

function GetHDDSerial:string;
var
  WMIServices : ISWbemServices;
  Root        : ISWbemObjectSet;
  Item        : Variant;
begin
  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select SerialNumber From Win32_DiskDrive','WQL', 0, nil);
  Item := Root.ItemIndex(0);
  Result:=VarToStr(Item.SerialNumber);
end;
Not: Öncelikle WMI'ı Import etmeniz gerekiyor.
There's no place like 127.0.0.1

orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 01:14
Konum: İstanbul / Kadıköy
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen orhancc » 13 Nis 2012 12:44

JvComputerInfoEx

Cevapla