간단한 예제를 보여드리겠습니다..
레지스트리를 건딜면 금새 해결되거던요..
Function PCUserName:String;
Var
Temp : Hkey;
MyReg : TRegistry;
Begin
MyReg:= TRegistry.Create;
Temp:= HKEY_LOCAL_MACHINE;
MyReg.RootKey:= Temp;
MyReg.OpenKey('SoftWare', False);
MyReg.OpenKey('Microsoft', False);
MyReg.OpenKey('Windows', False);
MyReg.OpenKey('CurrentVersion', False);
Result:= MyReg.ReadString('RegisteredOwner');
End;
From 류..
|