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...
Bilgisyar bilgileri
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Bilgisyar bilgileri
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
Re: Bilgisyar bilgileri
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
Re: Bilgisyar bilgileri
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.)
Re: Bilgisyar bilgileri
merhaba
ekteki örnek işinizi görecektir.
saygılarımla
ekteki örnek işinizi görecektir.
saygılarımla
- Dosya ekleri
-
- esutils.zip
- pc özellikleri
- (24.42 KiB) 138 kere indirildi
Bilgi Paylaştıkça Çoğalır
Re: Bilgisyar bilgileri
JEDI nin bir componenti var bu tür bilgileri alabilen onu bir inceleyin. Örnek uygulaması da vardı.
Re: Bilgisyar bilgileri
jedinin hangi componenti
Re: Bilgisyar bilgileri
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)
Not: Öncelikle WMI'ı Import etmeniz gerekiyor.
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;
There's no place like 127.0.0.1