최보현.U&I 님이 쓰신 글 :
: 왕족 님이 쓰신 글 :
: : 안녕하십니까? 초보 왕족입니다.
: :
: : 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);
:     }
: }
:

답변 감사합니다.
그런데 그대로 퍼서 컴파일 해보니, 한줄에서 에러가 4개 뜨네요...헐~
type이 안맞는다는 둥,,,,

[C++ Error] Unit1.cpp(25): E2034 Cannot convert 'unsigned long' to 'unsigned long *'
[C++ Error] Unit1.cpp(25): E2342 Type mismatch in parameter 'lpMaximumComponentLength' (wanted 'unsigned long *', got 'unsigned long')
[C++ Error] Unit1.cpp(25): E2034 Cannot convert 'unsigned long' to 'unsigned long *'
[C++ Error] Unit1.cpp(25): E2342 Type mismatch in parameter 'lpFileSystemFlags' (wanted 'unsigned long *', got 'unsigned long')