함수를 하나 만들어 올립니다.

파라메터는 드라이브의 이니셜을 넣으세요 'C'이렇게요





From 류..



---------



Function GetDiskSerialNumber(Drive:Char):String;

Var

FileSystemFlags : DWORD;

VolumeSerialNumber : DWORD;

MaximumComponentLength : DWORD;

Begin

GetVolumeInformation(PChar(Drive+':'), Nil, 0,

@VolumeSerialNumber,

MaximumComponentLength,

FileSystemFlags, Nil, 0);

Result:= IntToHex(HiWord(VolumeSerialNumber), 4)+

IntToHex(LoWord(VolumeSerialNumber), 4);

End;







가람 wrote:

> GetVolumeInformation을 이용하여 각 볼륨들의 정보를 알아내는 프로그램을

> 작성하고 있읍니다...

> 그런데 제 PC는 서버에 LAN상태로 연결이 되어 있고, PC에서 서버가 갖고 있는

> 각종 볼륨들의 정보(시리얼번호등)를 알려하니깐 위 함수는 계속 값을 주지 못하고

> 있읍니다..

> 적어도 시리얼번호까지는 알아야하는디...

> 고수님들의 도움을 바랍니다..

> 가능 하시면 짧은 소스라도 붙여 주시면 감사하겠읍니다...그럼...

님의 답변에 감사드립니다..

그런데, 제컴(CLIENT)의 디스크들은 모두 제값을 표현하는데

서버쪽 디스크들은 모두 '0'으로 표현됩니다..

참고로 제컴은 Win98이고 서버는 WinNT가 설치 되어 있읍니다..

그리고 제컴에서 네트

네트워크 드라이브를 연결한 후 사용하니 되는데요..





가람 wrote:

> 님의 답변에 감사드립니다..

> 그런데, 제컴(CLIENT)의 디스크들은 모두 제값을 표현하는데

> 서버쪽 디스크들은 모두 '0'으로 표현됩니다..

> 참고로 제컴은 Win98이고 서버는 WinNT가 설치 되어 있읍니다..

> 그리고 제컴에서 네트

네트워크 드라이브에서 확인은 되는데...(PC 대 PC...WINDOWS 대 WINDOWS)

nt서버에 아래프로그램을 설치하여 놓고, 제 pc에서 서버에 설치된 프로그램을 실행시키면 값은 '0'이 나옵니다..(PC 대 SERVER.. WINDOWS 대 WINNT)

다음은 소스입니다..



Function TForm1.GetDiskSerialNumber(Drive:String):String;

Var

FileSystemFlags : DWORD;

VolumeSerialNumber : DWORD;

MaximumComponentLength : DWORD;

Begin

GetVolumeInformation(PChar(Drive), Nil, 0,

@VolumeSerialNumber,

MaximumComponentLength,

FileSystemFlags, Nil, 0);

Result:= IntToHex(HiWord(VolumeSerialNumber), 4)+

IntToHex(LoWord(VolumeSerialNumber), 4);

End;



procedure TForm1.Button2Click(Sender: TObject);

begin

showmessage('DRIVE_REMOTE:'+'['+ExtractFilePath(Application.ExeName)+']'

+'->'+GetDiskSerialNumber(ExtractFilePath(Application.ExeName)));

end;



정말 염치불구하고 또 부탁드립니다...

위 경우라면 nt 와 win98의 하드디스크 인식차이가 아닐까요?...