Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
herkese merhabalar.
Birkaç gündür araştırıyorum ama düzgün çalışan bir kod bulamadım , ya çok eski yeni disk numaralarını okumuyor yada hiç çalışmıyor.
Delphi den Windows 8 veya Windows 10 a ait fiziksel disklerin seri numaralarını nasıl öğrenebilirim. (SSD disklerde var tabi)
Birkaç gündür araştırıyorum ama düzgün çalışan bir kod bulamadım , ya çok eski yeni disk numaralarını okumuyor yada hiç çalışmıyor.
Delphi den Windows 8 veya Windows 10 a ait fiziksel disklerin seri numaralarını nasıl öğrenebilirim. (SSD disklerde var tabi)
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Merhaba,
Aşağıdaki bağlantıdaki kabul edilmiş cevaba ait kodu denediniz mi?
https://stackoverflow.com/questions/520 ... ial-number
Aşağıdaki bağlantıdaki kabul edilmiş cevaba ait kodu denediniz mi?
https://stackoverflow.com/questions/520 ... ial-number
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Windows 7,8,10 sistemlerinde denediğim ve sorunsuz çalışan kodla küçük bir örnek hazırladım. Umarım işine yarar.
http://s8.dosya.tc/server5/2tyx97/hddno.rar.html
http://s8.dosya.tc/server5/2tyx97/hddno.rar.html
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Önerdiğim bağlantıyı test ettiğimde çalışmadığını gördüm. Sanırım son sürüm işletim sistemlerinde Windows Messaging Interface (WMI) kullanmak dışında HDD seri numarasını Admin yetkisi olmadan öğrenmek çok mümkün olmuyor.
Ekteki örnek @ihalilcoban örneği ile aynı. Sadece kolay kullanılabilir bir fonksiyon haline getirilmiş şekli. Birçok üretici Hexadecimal olarak yazar seri numaralarını. Kontrol eder iken fonksiyonun hexadecimal dönüştürülmüş hali ile kontrol etmekte fayda var.
Eğer fonksiyon boş değer çeviriyor ise seri numarası okunamamış demektir.
Parametre olarak geçilen değer bilgisayara bağlı sabit disk numaraları anlamına gelir. Bu yöntem RAID kurulu bilgisayarlarda RAID seri numarasını veya RAID sisteme bağlı ilk HDD seri numarasını çevirebilir.
Ekteki örnek @ihalilcoban örneği ile aynı. Sadece kolay kullanılabilir bir fonksiyon haline getirilmiş şekli. Birçok üretici Hexadecimal olarak yazar seri numaralarını. Kontrol eder iken fonksiyonun hexadecimal dönüştürülmüş hali ile kontrol etmekte fayda var.
Eğer fonksiyon boş değer çeviriyor ise seri numarası okunamamış demektir.
Parametre olarak geçilen değer bilgisayara bağlı sabit disk numaraları anlamına gelir. Bu yöntem RAID kurulu bilgisayarlarda RAID seri numarasını veya RAID sisteme bağlı ilk HDD seri numarasını çevirebilir.
- Dosya ekleri
-
- hdd fiziki seri no.7z
- (6.17 KiB) 78 kere indirildi
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Ertan bey en üsteki onaylanmış cevabı çalıştırdığımda Windows 10 da hata almıştım.
Her ikinizede çok teşekkür ediyorum.
Hemen deneyerek bilgilendirme yapacağım.
Kolaylıklar dilerim.
Her ikinizede çok teşekkür ediyorum.
Hemen deneyerek bilgilendirme yapacağım.
Kolaylıklar dilerim.
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Öncelikle Halil beyin kodunu çalıştırdım bir uyarı veriyor integer değer dönüşümü ile ilgili ama asıl sorun SSD disk numarasını okuyamadı bilgisayarımda 2 disk takılı biri normal diğeri SSD ve Windows 10 kurulu normal diske ait seri numarasını okudu ama SSd olanı maalesef okuyamadı.
Ertan beyin göndermiş olduğu kod da gayet güzel çalışıyor onda da normal disk seri numarası geldi zaten tek bir edit var ve 2.disk için bir seçenek yok tüm disklere nasıl erişebiliriz. en önemlisi ssd diskin numarasını nasıl alabiliriz.
Teşekkürler.
Ertan beyin göndermiş olduğu kod da gayet güzel çalışıyor onda da normal disk seri numarası geldi zaten tek bir edit var ve 2.disk için bir seçenek yok tüm disklere nasıl erişebiliriz. en önemlisi ssd diskin numarasını nasıl alabiliriz.
Teşekkürler.
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Eğer örnek kod içine aşağıdaki fonksiyonu ekleyip
Buton tıklamasını aşağıdaki şekilde günceller iseniz sanırım istediğinizi elde edersiniz.
Kod: Tümünü seç
function GetAvailableDrives(): Word;
var
Drives : set of 0..25;
ADrive : Integer;
dString : String;
begin
Result := 0;
Integer(Drives) := GetLogicalDrives();
for ADrive := 3 to 25 do
begin
if ( ADrive in Drives) then
begin
dString := Chr( ADrive + ord( 'A')) + ':\';
if GetDriveType( PChar( dString)) = DRIVE_FIXED then Inc(Result);
end;
end;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
PhysicalDriveCount: Integer;
I: Integer;
TempString: string;
begin
PhysicalDriveCount := GetAvailableDrives();
Memo1.Lines.Add('Physical Drive count: ' + PhysicalDriveCount.ToString());
for I := 0 to Pred(PhysicalDriveCount) do
begin
Memo1.Lines.Add(Format('SerialNumber(%d) Numerik: ', [I]) + GetHDDPhysicalSerialNumber(I));
TempString := GetHDDPhysicalSerialNumber(I);
if TempString <> EmptyStr then
begin
Memo1.Lines.Add(Format('SerialNumber(%d) Hexadecimal: ', [I]) + Format('%x', [StrToInt64(TempString)]));
end;
end;
end;
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Ekteki araç işine yarar sanırım.
- Dosya ekleri
-
- magwmi55.rar
- (345.72 KiB) 76 kere indirildi
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Öncelikle ilgi ve alakanıza teşekkür ediyorum. Çok uğraştırdım farkındayım özür diliyorum ama son durum aşağıdaki gibidir.
Bir hata veriyor derlerken .ToString değeri ile ilgili ..
http://dosya.co/s6kewx8514tn/Hata.jpg.html
Halil Bey ekteki program çok güzel kapsamlı baya bir parametre gösteriyor ama orda yine ikinci disk yok daha doğrusu ikinci diski nasıl göreceğiz.
yani orda seçili olan seçeneklere bastım ama hata veriyor sadece xp diskserial de bir numara var ama o eski disk e ait.
http://dosya.co/vhrbtsht1cz1/Hata2.jpg.html
Bir hata veriyor derlerken .ToString değeri ile ilgili ..
http://dosya.co/s6kewx8514tn/Hata.jpg.html
Halil Bey ekteki program çok güzel kapsamlı baya bir parametre gösteriyor ama orda yine ikinci disk yok daha doğrusu ikinci diski nasıl göreceğiz.
yani orda seçili olan seçeneklere bastım ama hata veriyor sadece xp diskserial de bir numara var ama o eski disk e ait.
http://dosya.co/vhrbtsht1cz1/Hata2.jpg.html
-
- Üye
- Mesajlar: 121
- Kayıt: 10 Ara 2015 10:39
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Resimdeki şekilde denersen bütün diskleri görebilirsin
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
İlgili satırı aşağıdaki şekilde de kullanabilirsiniz
Kod: Tümünü seç
Memo1.Lines.Add('Physical Drive count: ' + IntToStr(PhysicalDriveCount));
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Ertan bey aslinda bu şekilde kullandım aslında ama o zaman dediğim gibi sadece bir disk geliyor ve değerin integral dönüşümü ile ilgili hata veriyor bilgisayar başına geçince tam olarak hatayı ve ekrani paylasirim.
Teşekkürler ederim cevap için
Teşekkürler ederim cevap için
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
ilk firsat buldugumda kontrol edecegim kusura bakmayın telefondan yazıyorum ama cevap için çok teşekkür ederim.
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Sistemde tek SSD üzerinde birden fazla mantıksal sürücü olabilir mi? Diğer bir deyişle SSD kapasitesini ikiye veya daha fazla parçaya bölerek C, D, E gibi sürücü harfi şeklinde kullanıyor olabilir misiniz?
Re: Windows 8 Ve Windows 10 Fiziksel Disk Numaraları
Teşekkürler burası dediğin gibi seçildiğinde tek disk geliyor ama SSD olan geliyor o daha önce görünmüyordu. teşekkürler , ben detaylı inceleyeceğim.