왕족 님이 쓰신 글 :
: 안녕하십니까? 초보 왕족입니다.
:
: TnT #275 에 "Harddisk Serial 번호 알아내기" 소스가 올라와 있길래,
: 시험해보려니,,, 안타깝게도 파스칼이네요...
:
: 아직까지 있는 콤포넌트 갖다놓고 쓸 수준밖에 안되니, 답답합니다.
: 고수님~ 5줄 좀 바꿔 주세요...

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin
  if GetVolumeInformation( PChar('C:\'), Buffer, 256, @SerialNum, A, B, C, 256 ) then
      Label1.Caption := IntToStr( SerialNum );
end;

=======================================>

유앤아이 현지 아빠입니다.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    DWORD SerialNum;
    DWORD A,B;
    char  C[256];
    char  Buffer[256];

    if(GetVolumeInformation("C:\", Buffer, 256, &SerialNum, A, B, C, 256)) {
        Label1->Caption = IntToStr(SerialNum);
    }
}