+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخراج serial hdd للدلفي xe2 (/showthread.php?tid=4564)
استخراج serial hdd للدلفي xe2 - sa7er100 - 20-09-2012
السلام عليكم
هل يوجد كود يعمل على ال xe2 لاستخراج رقم الهارد
جربت اكثر من كود يعمل فقط على دلفي 7 لكنفي xe2 لا تعمل
استخراج serial hdd للدلفي xe2 - M_Mori2010 - 22-09-2012
اخي الكريم جرب هذه الطريقة فهي ناجحة معي
PHP كود :
function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('%X',
[VolumeSerialNumber])
end;
procedure TForm1.FormCreate(Sender: TObject);
var str1:string;
I:integer;
begin
edit1.Text:=GetHardDiskSerial('c');
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.text := StringReplace(Edit1.text,'v—)¹TVolSer=' , '', [rfReplaceAll, rfIgnoreCase]);;
end;
بالتوفيق اخي
استخراج serial hdd للدلفي xe2 - محمد عبد العزيز - 22-09-2012
وعليكم السلام
sa7er100 كتب :جربت اكثر من كود يعمل فقط على دلفي 7 لكنفي xe2 لا تعملما الذي جربته وعمل على دلفي 7 ولم يعمل على xe2 ؟ يمكن التعديل عليه ليعمل.
استخراج serial hdd للدلفي xe2 - sa7er100 - 22-09-2012
استعملت الاداة GetHardDiskSerial
استخراج serial hdd للدلفي xe2 - محمد عبد العزيز - 22-09-2012
TGetDiskSerial VCL تعمل على XE2
وتحديدا كل اصدارات دلفي RAD Studio XE2/XE/2010/2009/2007, BDS 2006, Delphi 5/6/7/2005
كود :
http://www.devlib.net/tgetdiskserial.htm