Bilgisyar bilgileri

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

Bilgisyar bilgileri

Mesaj gönderen sako »

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: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen SimaWB »

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 »

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 01:22
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen ertemsoft »

merhaba

ekteki örnek işinizi görecektir.

saygılarımla
Dosya ekleri
esutils.zip
pc özellikleri
(24.42 KiB) 134 kere indirildi
Bilgi Paylaştıkça Çoğalır
orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 02:14
Konum: İstanbul / Kadıköy
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen orhancc »

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 06:13

Re: Bilgisyar bilgileri

Mesaj gönderen savasgti »

jedinin hangi componenti
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen SimaWB »

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 02:14
Konum: İstanbul / Kadıköy
İletişim:

Re: Bilgisyar bilgileri

Mesaj gönderen orhancc »

JvComputerInfoEx
Cevapla