Usb Disk Gerçek seri no

[true_false]

Merhaba şu aralar başlıktaki konu ile ilgilenmekteyim. volumeno her format sonrası değişiyor nette usbdeview diye bir program var (http://www.snapfiles.com/get/usbdeview.html)
bu program usb diskin gerçek seri numarasını gösterebiliyor. daha önce bu konuda işlem yapmış arkadaşların bilgisine ihtiyacım var. iyi çalışmalar.

[SimaWB]

WMI (Windows Management Instrumentation) ile bu istediğini yapabilirsin.
Burada örnek var.

[mrmarman]

Örneği sadeleştilerim istersen :

Örnek Proje için

USB SeriNumarasi.rar

USB Seri Numarası Görüntüleme

(192.01 KiB) 1596 kere indirildi

dosyasını indirebilirsiniz.
WbemScripting_TLB dosyasını oluşturmak için Import Type Library ile "Microsoft WMI Scripting V1.2 Library" seçmeniz yeterli. Verdiğim linkte bu dosya hali hazırda mevcut.

Kod: Tümünü seç

Uses ActiveX, WbemScripting_TLB;

Procedure USBCihazlar( Liste: TStrings );
var
  WMISer        : ISWbemServices;
  USBDiskler    : ISWbemObjectSet;
  Item          : Variant;
  i             : Integer;
  Cihaz, SeriNo : String;
begin
  Liste.Clear;
  WMISer      := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  USBDiskler  := WMISer.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil);
  for i := 0 to USBDiskler.Count - 1 do
  begin
    Item   := USBDiskler.ItemIndex(i);
    Cihaz  := VarToStr(Item.Model);
    SeriNo := VarToStr(Item.PNPDeviceID);
    while POS('\', SeriNo) > 0
      do System.Delete(SeriNo, 1, Pos('\', SeriNo) );
    if Pos('&', SeriNo) > 0
      then SeriNo := Trim( Copy(SeriNo, 1, Pos('&', SeriNo)-1) );
    Liste.Add(Format('Cihaz %.2d : %s ( s/n: %s )',[i+1, Cihaz, SeriNo]) );
  End;
end;

Kullanımı :

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  USBCihazlar( Memo1.Lines );
end;

[lazymule]

bu siteyide inceleyebilirsin

http://theroadtodelphi.wordpress.com/wm ... e-creator/

[true_false]

cevaplarınız için teşekkürler @mrmarman özel teşekkür.

[true_false]

Kod: Tümünü seç

  USBDiskler  := WMISer.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil);

yukarıdaki sorguda windows XP 'de hata alınıyor Win32_DiskDrive bu kütüphadeki bütün alanlar xp'de yok onun için sadece işimize yarayanları alırsak daha iyi olacaktır.
ben Xp için aşağıdaki değişikliği yaptım bir sorun çıkmadı.

Kod: Tümünü seç

  USBDiskler  := WMISer.ExecQuery('Select pnpdeviceid,interfacetype From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil);

[greenegitim]

XP kullanıyorum değiştirdiğim halde aşağıdaki hatayı alıyorum
acces violation

[true_false]

@greenegitim aldığınız hata sanırım başka birşeyden kaynaklı eğer doğru kodları yazıp xp de çalıştırmayı denediğinizde EOleexception hatası alırsınız Access violation değil.

[greenegitim]

başka bilgisayarlardada denedim XP üzerinde bir türlü çalıştıramadım Win7 de sorunsuz çalışıyor ama.

[orhancc]

Bedava eklenti var kullanırsan.
http://neftali.clubdelphi.com/?p=586

[greenegitim]

@mrmarman nın yaptığı Windows 7 de işimi görüyor ama xp bilgisayarlarda hata veriyor @mrmarman yaptığı şekilde xp de çalıştırabilen varmı?

[true_false]

bende @mrmarman yazdığı kodu yaptım xp'de hata aldım sonra bir önceki mesajımda yazdığım değişikliği uyguladım şuan sorunsuz çalışıyor. kodlarını birkezdaha gözden geçir.

[true_false]

yazdığım deneme uygulamasına göz atabilirsin.

[greenegitim]

@true_false file not found unit1.dcu hatası veriyor bendemi bir eksiklik var bide bunu xp de çalıştırdım diyelim ama exe yi yeri geldiğinde windows 7, vista, xp kullanmam gerekecek onu nasıl yapacağım?

[true_false]

önclikle UnUSBGet unitini bir inceleyin burada sadece GetUsbDriveSerial fonksiyonunu kullanacaksınız kullanımı unit1de var edite flash diskin takılı olduğu driver adını girmeniz yeterli
gelelim sorduğunuz soruya

Kod: Tümünü seç

Select * From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil

bu sorguda Win32_DiskDrive bu kütüphanenin bütün alanlarını çekiyoruz win 7'de bir hata yok (vistada aynı durum) bu kütüphanede birçok alan var misal deviceid bu alanı xp'de çekmek istediğimizde hata alıyoruz ama 7'de sorun yok.
eğer siz programınızda deviceid ile ilgili bir kod yazacaksanız xp'de farklı bir çözüm üretmeniz gerekecek.

konuyu fazla uzatıp kafa karıştırmayalım. eğer sadece flash belleğin serinumarasını almak istiyorsanız ihtiyacınız olan alan pnpdeviceid bu alanı win7,xp,vista destekliyor
sorgunuzu

Kod: Tümünü seç

Select pnpdeviceid  From Win32_DiskDrive Where InterfaceType="USB"','WQL', 0, nil

olarak değiştirirseniz win7,xp,vista da sorun yaşamazsınız.
Win32_DiskDrive kütüphanesi hakkında bilgi almak ve bütün alanlarını merak ediyorsanız ilk mesajımdaki programı inceleyebilirsiniz.
(http://www.snapfiles.com/get/usbdeview.html)
umarım açıklayıcı olmuşdur.
kolay gelsin.