19-10-2011, 03:26 PM
السلام عليكم
ما رأيكم في هّذه الدالة لاستخراج الرقم التسلسلي للقرص الصلب :
مثال على الإستدعاء
ما رأيكم في هّذه الدالة لاستخراج الرقم التسلسلي للقرص الصلب :
كود :
function GetVolumeID(DriveChar: Char): String;
var
MaxFileNameLength, VolFlags, SerNum: DWord;
begin
if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
@SerNum, MaxFileNameLength, VolFlags, nil, 0)
then
begin
Result := IntToHex(SerNum,8);
Insert('-', Result, 5);
end
else
Result := '';
end;كود :
Label1.Caption:=GetVolumeId('c');
السلام عليكمLabel1.Caption:=GetVolumeId('c');
Label1.Caption:=GetVolumeId('c');