رحمانیان
پنج شنبه 26 آذر 1383, 20:48 عصر
سلام
چطور می سود سریال درایو c را بدست آورد :oops:
کاظم
جمعه 27 آذر 1383, 15:28 عصر
به نام خدا
فکر می کنم کد زیر به دردتان بخورد.
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 );
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.