[es] - Podaci o tome na koga je registrovan Win

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.dial.InfoSky.Net.

Sajt: www.marettasoftware.com

Profil

Podaci o tome na koga je registrovan Win

^{12.08.2005. u 17:21 - pre 227 meseci}

Kako da procitam podatke o tome na koga je registrovan windows (user i organisation), ali da radi na svim verzijama (Win95/98/ME/2K/XP)? Ako neko zna, treba mi i SN od windowsa na kojem se program izvrsava.

Pozdrav :)

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp17.bih.net.ba.

Profil

Re: Podaci o tome na koga je registrovan Win

^{12.08.2005. u 17:46 - pre 227 meseci}

Code:

var
IsWinNT:boolean;
const
  HKLM_CURRENT_VERSION_WINDOWS = 'SOFTWARE\Microsoft\Windows\CurrentVersion';
  HKLM_CURRENT_VERSION_NT      = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion';

// trebaš dobiti verziju windowsa, odnosno platformu, pa ako je NT korisiš drugu konstantu inače koristiš prvu

function REG_CURRENT_VERSION: string;
begin
  if IsWinNT then
    Result := HKLM_CURRENT_VERSION_NT
  else
    Result := HKLM_CURRENT_VERSION_WINDOWS;
end;

{$IFDEF MSWINDOWS}
function GetRegisteredCompany: string;
begin
  { TODO : check for MSDN documentation }
  Result := RegReadStringDef(HKEY_LOCAL_MACHINE, REG_CURRENT_VERSION, 'RegisteredOrganization', '');
end;

function GetRegisteredOwner: string;
begin
  { TODO : check for MSDN documentation }
  Result := RegReadStringDef(HKEY_LOCAL_MACHINE, REG_CURRENT_VERSION, 'RegisteredOwner', '');
end;

Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.dial.InfoSky.Net.

Sajt: www.marettasoftware.com

Profil

Re: Podaci o tome na koga je registrovan Win

^{13.08.2005. u 01:07 - pre 227 meseci}

hvala :)

Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.dial.InfoSky.Net.

Sajt: www.marettasoftware.com

Profil

Re: Podaci o tome na koga je registrovan Win

^{13.08.2005. u 01:22 - pre 227 meseci}

Citat:

borovac:

Code:

...
{$IFDEF MSWINDOWS}
...
function GetRegisteredCompany: string;
begin
{ TODO : check for MSDN documentation }
Result := RegReadStringDef(HKEY_LOCAL_MACHINE, REG_CURRENT_VERSION, 'RegisteredOrganization', '');
end;

U kojem unitu se nalazi funkcija "RegReadStringDef" ? Nema je u "Registry" unitu.

Poz

Odgovor na temu

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.dlp405.bih.net.ba.

Profil

Re: Podaci o tome na koga je registrovan Win

^{13.08.2005. u 14:41 - pre 227 meseci}

Nemam pojma ali ovo možeš zamijeniti funkcijom i Registry unita, ili možeš koristiti API funkciju (RegQueryValueEx).

Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.dial.InfoSky.Net.

Sajt: www.marettasoftware.com

Profil

Re: Podaci o tome na koga je registrovan Win

^{06.09.2005. u 08:30 - pre 226 meseci}

Ok...ovo je proradilo ali samo kada je korisnik ima administratorske privilegije.
Kako da ga nateram da proradi i kada je logovan obican user?

Code:

Function GetRegisteredCompany: string;
Var
Reg     :TRegistry;
KeyName :String;
Begin
Result:='';
TRY
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  KeyName:=HKLM_Current_Version_NT;

  If Reg.OpenKey(KeyName, False)
   Then Begin
         Result:=Reg.ReadString('RegisteredOrganization');
        End
   Else Begin
         KeyName:=HKLM_Current_Version_WINDOWS;
         If Reg.OpenKey(KeyName, False)
          Then Result:=Reg.ReadString('RegisteredOrganization')
          Else Result:='Unknown';
        End;
FINALLY Reg.Free;
END;
End;

Odgovor na temu