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