Q&A

  • 하드디스크 고유번호 알아내기
하드디스크 고유 시리얼번호을 어떻게 찾아 내는지 알고 싶습니다.

여러 고수님들의 가르침 바랍니다...

^^^

1  COMMENTS
  • Profile
    이상우 2000.07.08 00:04
    이진배 wrote:

    > 하드디스크 고유 시리얼번호을 어떻게 찾아 내는지 알고 싶습니다.

    > 여러 고수님들의 가르침 바랍니다...

    > ^^^

    -------------------------------------------------------------------

    안녕하세요..!



    디스크 볼륨 정보 알아내기



    procedure TForm1.Button1Click(Sender: TObject);

    var

    RPName : Pchar;

    VolBuf : Pchar;

    VolSNum : Longint;

    MaxLen : Longint;

    FileFlags : Longint;

    FileNameBuf : Pchar;

    begin

    GetVolumeInformation(RPName, VolBuf, sizeof(VolBuf), VolSNum, MaxLen,

    FileFlags, FileNameBuf, sizeof(FileNameBuf));



    Label1.Caption := RPName;

    Label2.Caption := VolBuf;

    Label3.Caption := IntToStr(VolSNum);

    Label4.Caption := IntToStr(MaxLen);



    end;



    해보십시오..

    그리고 자세한 것은 GetVolumeInformation 을 참조하시면 되실것 같습니다..!