|
||
| procedure TForm1.Button1Click(Sender: TObject); var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; SerialNumber : string; begin GetVolumeInformation('C:\'*nil*0*@VolumeSerialNumb er*MaximumComponentLength *FileSystemFlags*nil*0); SerialNumber := IntToHex(HiWord(VolumeSerialNumber)* 4) + '-' +IntToHex(LoWord(VolumeSerialNumber)* 4); Memo1.Lines.Add(SerialNumber); |
||
| Dost Sitelerimiz | |
|
|
|
| Dost Sitelerimiz | |
| Arma Dizayn - Dijital Darbe - Z.K.U.D Blogcu - SosyeteForum - SHeZoFReN - SHeZoFReN - Ayna Grubum - Rusça Gülerek - Deliperi - SanalKaos - Mevzu Alemi - kudRet* - PayLaSiM-TuRK - Graphic-Turk.Com - SMF SeO Destek | |