Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Hdd Nin Seri Nosunu almak  (Okunma sayısı 2754 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Mikdad

  • Kıdemli Üye
  • *****
  • İleti: 150
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.mikdad.net
Hdd Nin Seri Nosunu almak
« : 08 Kasım 2005 19:03:41 »
Kod: Delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. VolumeSerialNumber : DWORD;
  4. MaximumComponentLength : DWORD;
  5. FileSystemFlags : DWORD;
  6. SerialNumber : string;
  7. begin
  8. GetVolumeInformation('C:\',
  9. nil,
  10. 0,
  11. @VolumeSerialNumber,
  12. MaximumComponentLength,
  13. FileSystemFlags,
  14. nil,
  15. 0);
  16. SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
  17. IntToHex(LoWord(VolumeSerialNumber), 4);
  18. Memo1.Lines.Add(SerialNumber);
  19. end;
« Son Düzenleme: 21 Haziran 2009 10:23:28 by Kocaturk »
Kayıtlı
Hiç KiMSe VaZGeÇiLMeZ DeĞiLDiR
WwW.Minikhost.Net    Host Dünyasında Yeni Bir Soluk
WwW.Mikdad.Net        İslami İçerikli Portalınız
WwW.Pckahvesi.com   Netteki Yeni Adresiniz

Çevrimdışı karakas

  • Yeni Üye
  • *
  • İleti: 6
  • Rep: +0/-0
Ynt: Hdd Nin Seri Nosunu almak
« Yanıtla #1 : 19 Eylül 2007 16:05:43 »
arkadaşım bu seri numarasını değiştirmeyi biliyorsan yardım etsen
Kayıtlı

Çevrimdışı mattik

  • Üye
  • ***
  • İleti: 38
  • Rep: +0/-0
Ynt: Hdd Nin Seri Nosunu almak
« Yanıtla #2 : 13 Eylül 2009 14:55:52 »
bu kodla aldığını hdd seri no her formattan sonra değişir. eğer program lisanslamasında kullanacaksanız bunu göz önünde bulundurun.
Kayıtlı

Çevrimdışı sabanakman

  • Global Moderatör
  • *****
  • İleti: 769
  • Rep: +13/-0
  • Cinsiyet: Bay
Ynt: Hdd Nin Seri Nosunu almak
« Yanıtla #3 : 15 Eylül 2009 22:49:58 »
Kayıtlı
Şaban Şahin AKMAN

Derin olan kuyu değil kısa olan iptir
Sayfa: [1]   Yukarı git
« önceki sonraki »