20-09-2012, 06:40 PM
22-09-2012, 04:58 AM
اخي الكريم جرب هذه الطريقة فهي ناجحة معي
بالتوفيق اخي
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;
بالتوفيق اخي
22-09-2012, 07:13 AM
وعليكم السلام
sa7er100 كتب :جربت اكثر من كود يعمل فقط على دلفي 7 لكنفي xe2 لا تعملما الذي جربته وعمل على دلفي 7 ولم يعمل على xe2 ؟ يمكن التعديل عليه ليعمل.
22-09-2012, 07:29 PM
استعملت الاداة GetHardDiskSerial
22-09-2012, 07:43 PM
TGetDiskSerial VCL تعمل على XE2
وتحديدا كل اصدارات دلفي RAD Studio XE2/XE/2010/2009/2007, BDS 2006, Delphi 5/6/7/2005
وتحديدا كل اصدارات دلفي RAD Studio XE2/XE/2010/2009/2007, BDS 2006, Delphi 5/6/7/2005
كود :
http://www.devlib.net/tgetdiskserial.htm