Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Podaci o tome na koga je registrovan Win

[es] :: Pascal / Delphi / Kylix :: Podaci o tome na koga je registrovan Win

[ Pregleda: 2800 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Vdjuric
Vladimir Djuric
student
Beograd

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

Sajt: www.marettasoftware.com


Profil

icon Podaci o tome na koga je registrovan Win12.08.2005. u 17:21 - pre 208 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

icon Re: Podaci o tome na koga je registrovan Win12.08.2005. u 17:46 - pre 208 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

icon Re: Podaci o tome na koga je registrovan Win13.08.2005. u 01:07 - pre 208 meseci
hvala :)
 
Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

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

Sajt: www.marettasoftware.com


Profil

icon Re: Podaci o tome na koga je registrovan Win13.08.2005. u 01:22 - pre 208 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

icon Re: Podaci o tome na koga je registrovan Win13.08.2005. u 14:41 - pre 208 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

icon Re: Podaci o tome na koga je registrovan Win06.09.2005. u 08:30 - pre 207 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

[es] :: Pascal / Delphi / Kylix :: Podaci o tome na koga je registrovan Win

[ Pregleda: 2800 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.