سریال درایو c

[رحمانیان]

سلام
چطور می سود سریال درایو c را بدست آورد :oops:

[کاظم]

به نام خدا

فکر می کنم کد زیر به دردتان بخورد.


function GetDiskVolSerialID(
cDriveName : char ) : DWord;
var
dwTemp1,
dwTemp2 : DWord;
begin
GetVolumeInformation(
PChar( cDriveName + ':\' ),
Nil,
0,
@Result,
dwTemp2,
dwTemp2,
Nil,
0
);
end;






مثال

MessageDlg(
'Serial number: ' +
Format( '%X', [ GetDiskVolSerialID( 'E' ) ] ),
mtInformation, [mbOk], 0 );