멋진남자 wrote:

> 하드디스크의 시리얼 번호를 알수 있는 방법이 있을까요?

> 급하걸랑요.. 고수님들 살려주세요..



하드디스크의 시리얼 넘버는 포맷을 하면 변합니다.

그런데, 공장출하시의 시리얼 넘버를 알아내는 것은 힘듭니다.



현재 하드디스크의 시리얼 넘버를 알아내는 간단한

예제를 올리겠습니다.

참조 하시기 바랍니다.



그럼, 즐거운 프로그래밍 하시길....





procedure TForm1.Button1Click(Sender: TObject);

var

VolumeName,

FileSystemName : array [0..MAX_PATH-1] of Char;

VolumeSerialNo : DWord;

MaxComponentLength,

FileSystemFlags : Integer;

begin

GetVolumeInformation('C:',VolumeName,MAX_PATH,@VolumeSerialNo,

MaxComponentLength,FileSystemFlags,

FileSystemName,MAX_PATH);

Memo1.Lines.Add('VName = '+VolumeName);

Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));

Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));

Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));

Memo1.Lines.Add('FSName = '+FileSystemName);

end;