harddisk seri no bulunması

karaca10 · 21-11-2006, 08:55 AM

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;

karakas · 19-09-2007, 05:34 PM

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

mescere · 06-10-2007, 12:05 PM

eyvallah kardeş
sağolasın

21-11-2006, 08:55 AM	#1
karaca10 Uye Kafanda binbir planla gömerler bi gün... Üyelik tarihi: Sep 2006 Nerden: c:\windows\system32 Mesajlar: 436 Cinsiyet: Rep Gücü: 9 Rep: 652	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; __________________ http://www.loadtr.com/b-101968-trkçe.gif

19-09-2007, 05:34 PM	#2
karakas Yeni Kayıt Üyelik tarihi: Jan 2007 Mesajlar: 1 Cinsiyet: Rep Gücü: 2 Rep: 10	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

06-10-2007, 12:05 PM	#3
mescere Yeni Kayıt SUPERMEYDAN Üyelik tarihi: Oct 2007 Mesajlar: 1 Cinsiyet: Rep Gücü: 2 Rep: 10	Cevap: harddisk seri no bulunması eyvallah kardeş sağolasın

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevap	Son Mesaj
Bu yaz dolabınızda bulunması gereken 10 şey!	doğangüneş	Giyim & Moda	1	25-03-2008 02:47 AM
seri katiller	Mevt	ilginç konular	2	20-10-2007 05:36 PM
Seri Katiller	Runaw@y	Genel Kultur	0	14-10-2007 08:26 PM
'Kafa kesen' seri katil dehşeti!	ErDaLL	Haberler	2	11-10-2007 08:35 PM
SERİ KATİLİN ŞOK İFADESİ	hayatyolunda55	Haberler	1	10-10-2007 08:49 PM