sürücü seri no

[sako]

Aşağıdaki kod ile CD room un seri numarasını almak istiyorum fakat benim istediğim programın çalıştığı sürücünün seri numarasını almak.

var
s,a:string;
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetDir(0,s); { 0 = Current drive }
edit1.Text:=s;
a:=Copy(edit1.Text,1,3);//edite aktarılan yol
GetVolumeInformation('E:\', //buradaya a ya aktardığım değeri yazmak istiyorum ama beceremedim bi türlü.
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
edit2.Text:=(SerialNumber);
end;

[sadettinpolat]

Kod: Tümünü seç

GetVolumeInformation('E:\', Pchar(a),
nil, 
0, 
@VolumeSerialNumber, 
MaximumComponentLength, 
FileSystemFlags, 
nil, 
0);