전 레지스트리 정보 가져올때 이런 식으로 하는데... 도움이 되었으면 좋겠네요.

===== 선언 ===============

Registry : TRegistry;

==========================



Registry:=TRegistry.Create;

Registry.RootKey:=HKEY_LOCAL_MACHINE;

Registry.OpenKey('SOFTWAREMICROSOFTWindows NTCurrentVersion',False);

빌드넘버 := Registry.ReadString('CurrentBuildNumber');

버전 := Registry.ReadString('CurrentVersion');

회사명 := Registry.ReadString('RegisteredOrganization');

사용자명 := Registry.ReadString('RegisteredOwner');



Registry.CloseKey;

Registry.Free;







까마귀 wrote:

> 안녕하세요. 까마귀입니다.

>

> 레지 파일에서 시스템 정보를 가져오려고 하는데요.

> Version이나 RegisteredOwner등등요.

> Win98에서는 잘 됩니다.

> 그런데, NT에서는 않되는군요.

>

> Regi에서 찾아보니까 정보가 있는 위치가 다르더군요.

> 그래서, 맞게 변경을 했는데도, 않되는군요.

> 뭐가 잘 못 되었는지 알려주세요.

>

> // NT라서 Windows 를 Windows NT로 변경했습니다.

> RWRegIniFiles := TRWRegIniFile.Create('SOFTWAREMicrosoftWindows NT',HKEY_LOCAL_MACHINE);

> // 윈도우 Version.

> Str := 'Windows NT ' + RWRegIniFiles.ReadString('CurrentVersion','CurrentVersion','Failure');

> Str := Str + '(Build ' + RWRegIniFiles.ReadString('CurrentVersion','CurrentBuildNumber','Failure') + ')';

> // Str := Str + ' ' + RWRegIniFiles.ReadString('CurrentVersion','CSDVersion','Failure') + ')';

> LBL_Version.Caption := Str;

> // 회사명.

> LBL_Organization.Caption := RWRegIniFiles.ReadString('CurrentVersion','RegisteredOrganization','Failure');

> // 사용자명.

> LBL_Owner.Caption := RWRegIniFiles.ReadString('CurrentVersion','RegisteredOwner','Failure');

>

>

>

> 위대한 단군혼이 살아있는 나라.... 대한민국.