Hard disk Serial No öyrənmək

[Ʌüsal]

Forma 1 ədəd Button və 1 ədəd Editbox əlavə edin.Buttona klik edən və kodları daxil edin.

 

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);

Edit1.text:= SerialNumber;

 

1.jpg

[sahin666]

hard diskin seriali ne avxt bize lazim olur?

[On_LiNe]

Bu kodu buttona atdim alinmadi

[Guest Musa_]

Label yerinə TextBox əlavə etmək lazımdır..Koddan da bilinir ki,

Edit1.Text

[Ʌüsal]

kodda sehv yoxdu sadece bir yerde problem arasi vardi deye ona gore alinmirdi

 

yoxlayin yeniden..programki koddaki sehvi baxanda bilmelidir..

bura kodu kopya etdidke kodda ara boslugu yaranir

[sahin666]

Menim sualimada cavab yazinda

[Ʌüsal]

elede lazim olmur her deyen

[AliZairov]

Vüsal salam. Tşk məndə bunu axtarırdım. O kodu mən biləni əgər proqram yığırsansa pullu yəni serialla olsun verdiyin kodu hard disqə görə verir. Ona görədə kodu sındırmaq biraz çətin olur. Amma belə halda tutaq a-b-c-d idisə Ad yerini saymırsa deməli sən o kodu yazdın səndə aktiv oldu. O biri adamada verdin ondada olacaq. Amma hard disk kodu ilə kodlama etmisənsə onda işləməyəcək.

[Guest Musa_]

Vüsal ikinci fikrim səhv ola bilər..Lakin sən dediyin kimi bir label,bir button olduqda kod belə olmalıdır:

var

VolumeSerialNumber : DWORD;

MaximumComponentLength : DWORD;

FileSystemFlags : DWORD;

SerialNumber : string;

 

begin

 

GetVolumeInformation('C:\\',nil,0,@VolumeSerialNumber,MaximumCompone

ntLength, FileSystemFlags,nil,0);

SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +IntToHex(LoWord(VolumeSerialNumber), 4);

Label1.caption:= SerialNumber;

end;

 

____________________________________________________________

Yəqin bu fikrim səhv deyil...Yenə də məlumata görə çox sağ ol;)

[Ʌüsal]

he men orda label yazmsiam ona gore alinmaya biler sizde

eger labeldirse bele olsa kifayetdir

 

Label1.caption:= SerialNumber;

 

Edit bix olarsada onu yuxardia qeyd etmisem.kim nece istese labele , editbixa ve s. yazdira biler.yene qeyd edirem kodda hec bir yanlisliq yoxdu