|
코드는 단순히 레지스트리를 읽는것에 불과한데요,
혹시 읽고자 하는 레지스트리 키값이 존재하지 않는것이 아닌가 합니다.
regedit.exe 로 확인하면 될거 같네요.
하두고 님이 쓰신 글 :
: 권한상승을 해야 한다는 이야기가 있길래 소스를 받아서 그대로 해줘도 Win7에서는 안됩니다.
: 도와주세요.
:
:
: procedure TForm1.Button1Click(Sender: TObject);
: var
: reg : Tregistry;
: k : String;
: begin
: Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE;
: Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', False)
: k :=Reg.ReadString('DefaultUserName');
: Reg.CloseKey;
: Reg.Free;
: showmessage(k);
: end;
|
