권한 상승을 위한 코드에 문제가 있을 수도 있겠는데.. 확인하는 방법은 간단하죠.
컴파일한 실행 파일을 탐색기에서 오른쪽 클릭해서 "관리자 권한으로 실행" 해봐서, 레지스트리 쓰기가 제대로 동작한다면 권한 상승 코드가 엉터리인 거구요. 반대로 그렇게 해도 안된다면 권한이 아닌 다른 곳에 문제가 있는 거죠.



하두고 님이 쓰신 글 :
: 권한상승을 해야 한다는 이야기가 있길래 소스를 받아서 그대로 해줘도 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;