아래꺼중 하나를 써봄이 어떨런지...



김영대씨의 답변 내용중...



> // 아래에서 GetVolumeInfo 를 보세요

>

> unit GetInfo;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Registry;

>

> type

> SystemInfoRecord = record

> VolumeName, // 디스크 볼륨명

> VolumeSerial, // 디스크 시리얼번호

> FileSystemName, // 파일구조

> Drives : shortstring;// 디스크명들

> ProcessorType : shortstring;// CPU 타입(MMX나 P-II는 안됨)

> Version, // 윈도우 버전

> Plattform : shortstring;// 윈도우 종류

> PlattId : DWORD; // 현 플랫폼 ID

> ComputerName, // 컴퓨터 이름

> FPU, // FPU 유무

> UserName, // 사용자 이름

> CompanyName, // 회사이름

> CDSerial : shortstring;// 윈도우 시디 시리얼번호

> TotalPhys, // 총 메모리

> AvailPhys, // 이용할 수 있는 메모리

> TotalVirtual, // 총 가상메모리

> AvailVirtual, // 이용할 수 있는 가상메모리

> MemoryLoad : DWORD; // 메모리 적재율

> BiosDate, // 마더보더의 바이오스 날짜

> BiosName, // 마더보더의 바이오스 이름

> BiosVer, // 마더보더의 바이오스 버전

> BusType, // 버스타입

> CPU, // 바이오스에 나타난 CPU종류

> MachineType : shortstring;// 바이오스에 나타난 컴종류

> end;

>

> var

> SysInfoRec: SystemInfoRecord;

>

> function GetAllSystemInfo: SystemInfoRecord; stdcall;

>

> implementation

>

> var

> OSVerInfo: TOSVersionInfo;

>

> function GetRegStr(Key, St: string): string;

> begin

> with TRegistry.Create do

> try

> RootKey := HKEY_LOCAL_MACHINE;

> if OpenKey(Key, False) then result := ReadString(St);

> finally

> Free;

> end;

> end;

>

> procedure GetComputerName;

> var

> Computer : PChar;

> CSize : DWORD;

> begin

> CSize := MAX_COMPUTERNAME_LENGTH + 1;

> try

> GetMem( Computer, CSize );

> if Windows.GetComputerName( Computer, CSize ) then

> SysInfoRec.ComputerName := Computer;

> finally

> FreeMem( Computer );

> end;

> end;

>

> procedure GetVolumeInfo;

> var

> lpRootPathName : PChar;

> lpVolumeNameBuffer : PChar;

> nVolumeNameSize : DWORD;

> lpVolumeSerialNumber : DWORD;

> lpMaximumComponentLength : DWORD;

> lpFileSystemFlags : DWORD;

> lpFileSystemNameBuffer : PChar;

> nFileSystemNameSize : DWORD;

> begin

> try

> GetMem( lpVolumeNameBuffer, MAX_PATH + 1 );

> GetMem( lpFileSystemNameBuffer, MAX_PATH + 1 );

>

> nVolumeNameSize := MAX_PATH + 1;

> nFileSystemNameSize := MAX_PATH + 1;

>

> lpRootPathName := PChar( 'C:' );

> if Windows.GetVolumeInformation( lpRootPathName,

> lpVolumeNameBuffer,

> nVolumeNameSize,

> @lpVolumeSerialNumber,

> lpMaximumComponentLength,

> lpFileSystemFlags,

> lpFileSystemNameBuffer,

> nFileSystemNameSize ) then

> begin

> with SysInfoRec do begin

> VolumeName := lpVolumeNameBuffer;

> VolumeSerial := IntToHex(HiWord(lpVolumeSerialNumber), 4) + '-' +

> IntToHex(LoWord(lpVolumeSerialNumber), 4);

> FileSystemName := lpFileSystemNameBuffer;

> end;

> end;

> finally

> FreeMem( lpVolumeNameBuffer );

> FreeMem( lpFileSystemNameBuffer );

> end;

> end;

>

> procedure GetOSVersionInfo;

>

> function Plat(Pl: DWORD): string;

> begin

> case Pl of

> VER_PLATFORM_WIN32s: result := 'Windows 3.1';

> VER_PLATFORM_WIN32_WINDOWS: result := 'Windows 95';

> VER_PLATFORM_WIN32_NT: result := 'Windows NT';

> else result := '???';

> end;

> end;

>

> begin

>

> with OSVerInfo, SysInfoRec do begin

> dwOSVersionInfoSize := SizeOf(OSVerInfo);

> if GetVersionEx(OSVerInfo) then;

> Version := Format('%d.%d (%d.%s)',[dwMajorVersion, dwMinorVersion,

> (dwBuildNumber and $FFFF), szCSDVersion]);

> Plattform := Plat(dwPlatformId);

> PlattID := dwPlatformId;

> end;

> end;

>

> procedure GetDriveNames;

> var

> D1 : set of 0..25;

> D2 : integer;

> begin

> DWORD( D1 ) := Windows.GetLogicalDrives;

> with SysInfoRec do begin

> Drives := '';

> for D2 := 0 to 25 do

> if D2 in D1 then

> Drives := Drives + Chr( D2 + Ord( 'A' )) + ': ';

> end;

> end;

>

> procedure GetSystemInfo;

> var TmpStr: string;

> MProc: string;

> LocalSI: TSystemInfo;

> const

> PROCESSOR_INTEL_386 = 386;

> PROCESSOR_INTEL_486 = 486;

> PROCESSOR_INTEL_PENTIUM = 586;

> PROCESSOR_MIPS_R4000 = 4000;

> PROCESSOR_ALPHA_21064 = 21064;

> begin

> Windows.GetSystemInfo(LocalSI);

>

> with LocalSI, SysInfoRec do begin

> case dwProcessorType of

> PROCESSOR_INTEL_386 : ProcessorType := ' 386';

> PROCESSOR_INTEL_486 : ProcessorType := ' 486';

> PROCESSOR_INTEL_PENTIUM : ProcessorType := ' Pentium';

> PROCESSOR_MIPS_R4000 : ProcessorType := ' MIPS';

> PROCESSOR_ALPHA_21064 : ProcessorType := ' ALPHA';

> end;

> end;

> end;

>

> procedure MemoryInfo;

> var

> MemStatus: TMemoryStatus;

> begin

> MemStatus.dwLength := SizeOf(MemStatus);

> GlobalMemoryStatus(MemStatus);

> with SysInfoRec do begin

> TotalPhys := MemStatus.dwTotalPhys DIV 1024;

> AvailPhys := MemStatus.dwAvailPhys DIV 1024;

> TotalVirtual := MemStatus.dwTotalVirtual DIV 1024;

> AvailVirtual := MemStatus.dwAvailVirtual DIV 1024;

> MemoryLoad := MemStatus.dwMemoryLoad;

> end;

> end;

>

> procedure GetRegisterInfo;

> const

> FPPKey = 'hardwareDESCRIPTIONSystemFloatingPointProcessor';

> var

> CurVerKey : PChar;

> begin

> with SysInfoRec do begin

> case PlattID of

> VER_PLATFORM_WIN32_WINDOWS :

> CurVerKey := 'SOFTWAREMicrosoftWindowsCurrentVersion';

> VER_PLATFORM_WIN32_NT :

> CurVerKey := 'SOFTWAREMicrosoftWindows NTCurrentVersion';

> else CurVerKey := nil;

> end;

>

> with TRegistry.Create do

> try

> RootKey := HKEY_LOCAL_MACHINE;

> if OpenKey(FPPKey, False) then

> FPU := 'Yes'

> else FPU := 'No';

> finally

> Free;

> end;

>

> UserName := GetRegStr(CurVerKey,'RegisteredOwner');

> CompanyName := GetRegStr(CurVerKey,'RegisteredOrganization');

> if PlattID = VER_PLATFORM_WIN32_WINDOWS then

> CDSerial := GetRegStr(CurVerKey,'ProductID');

>

> end;

> end;

>

> procedure GetBiosInfo;

> begin

> with SysInfoRec do begin

> BiosDate := GetRegStr('EnumRoot*PNP0C01

SexyBear wrote:

> 펜티엄2까지는 델파이팁의 CPUID 구하는 방법으로 해결이 되는데

> 펜티엄3에서는 CPUID가 모두 같이 나옵니다.

> 해결책 좀 알려주세요.



우하하

미국의 사생활 침해사건 관련 변호사들은 지난주 인텔이 CPU ID계획을 발표하자마자 일제히 공격에 나섰다. 인텔은 온라인 주문이 어디서 오는지 확인하는 프로세서ID 넘버를 웹브라우저들이 전달할 수 있기 때문에 이 새로운 특성이 EC의 붐을 가져올 것이라고 떠들어댔다.



그러나 프라이버시 옹호자들은 새로운 인텔칩이 사용자가 인터넷상의 어디를 들르든 그 전자ID를 퍼뜨릴 것이라고 반발하고 있다. 그들은 공개적으로 인텔제품에 대한 대규모 불매 운동을 거론하며 인텔을 위협했다. 그리고 인텔은 금방 꼬리를 내렸다. CPU ID기능을 초기상태로 꺼버릴 것을 약속한 것이다.