Gösterilen sonuçlar: 1 ile 3 Toplam: 3
  1. #1
    Tecrübeli Üye karaca10 - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Sep 2006
    Nerden
    c:\windows\system32
    Mesaj
    264
    Rep Gücü
    877

    harddisk seri no bulunması

    procedure TForm1.Button1Click(Sender: TObject);
    var
    VolumeSerialNumber : DWORD;
    MaximumComponentLength : DWORD;
    FileSystemFlags : DWORD;
    SerialNumber : string;
    begin
    GetVolumeInformation('C:\',
    nil,
    0,
    @VolumeSerialNumber,
    MaximumComponentLength,
    FileSystemFlags,
    nil,
    0);
    SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
    IntToHex(LoWord(VolumeSerialNumber), 4);
    Memo1.Lines.Add(SerialNumber);
    end;

  2. #2
    Üyecik
    Üyelik tarihi
    Jan 2007
    Mesaj
    1
    Rep Gücü
    11

    harddisk seri no değiştirilesi

    Peki arkadaşım ben bu numaranın değiştirilebildiğini vduydum ama yapamadım yardımcı olucak arkadaşlara burdan sesleniyorum bu kodu değiştirmem lazım yani benim machine id nom DF7D-DS7D gibi bunu SD7G-TRY9 yapmak istiyorum

  3. #3
    Üyecik
    Üyelik tarihi
    Oct 2007
    Mesaj
    1
    Rep Gücü
    11

    Cevap: harddisk seri no bulunması

    eyvallah kardeş
    sağolasın

Benzer Konular

  1. İşçi Özlük Dosyası'nda Bulunması Gereken Belgeler
    dogangunes Tarafından Hukuk Forum Foruma
    Yorum: 0
    Son mesaj: 01-03-2011, 02:46 AM
  2. Harddisk Test Programı
    dogangunes Tarafından Donanım Foruma
    Yorum: 0
    Son mesaj: 13-11-2010, 06:02 AM
  3. Bu yaz dolabınızda bulunması gereken 10 şey!
    dogangunes Tarafından Kadın Modası Foruma
    Yorum: 1
    Son mesaj: 25-03-2008, 02:47 AM
  4. 1 tonluk harddisk
    karaca10 Tarafından Donanım Foruma
    Yorum: 1
    Son mesaj: 20-02-2007, 04:19 PM
  5. harddisk bölümleyici
    serocan39 Tarafından Sürücüler (driver) ve Donanım Foruma
    Yorum: 0
    Son mesaj: 30-12-2006, 09:14 PM
Yukarı Çık