coderdan

[QUOTE=Sinha's]Hi ushineon, As we all know that C is the mother of all languages. Most of the concepts are taken from C. ...... U can choose Java, C++, VB.NET etc.[/QUOTE] Heheheh.. is VB a language?

[QUOTE=Sub Xero;912138]Found the answer myself. And it's yes, I do need to call Synchronize() or the program hangs at random points. Sub Xero[/QUOTE] Honestly, TMultiReadExclusiveWriteSynchronizer is MUCH better than Syncronize. Makes better use of memory and thread execution will stand much less of a chance of hanging. Cheers

Easiest way I do it: var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; TheSerialNumber : String; begin if GetVolumeInformation('C:',nil,0,@VolumeSerialNumber, MaximumComponentLength,FileSystemFlags,nil,0) then begin TheSerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + IntToHex(LoWord(VolumeSerialNumber), 4); end; ShowMessage('The drive serial number is: '+TheSerialNumber);