Witam
Na sieci znalazłem informacje jak uzyskać login użytkownika systemu oraz nazwę komputera.
Nie mogę niestety za nic znaleźć sposobu na wydobycie nazwy "właściciela" i organizacji (np. firmy) która zakupiła sysyem?
Brzmi to na pewno mało zrozumiale, ale chodzi mi o informacje z Właściwości Systemu -> Ogólne a tam np. Zarejestrowano dla: Jan Nowak, Firma S.A.</b> Nie mam pojęcia jak to wydobyć :(
Proszę o pomoc :)
Hm.... Te informacje mozna odczytać z rejestru. W kluczu HKEY_LOCAL_MACHINE, pod "Software\Microsoft\Windows" (Lub "..\Windows NT"), przykładowy kod:
procedure SprawdzInformacje;
var
Reg: TRegIniFile;
User, Company: String;
begin
Reg := TRegIniFileCreate;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows NT', False);
User := Reg.ReadString('', 'RegisteredOwner', '');
Company := Reg.ReadString('', 'RegisteredOrganization', '');
Reg.CloseKey;
finally
Reg.Free;
end;
end;
Pamiętaj żeby w seksji uses dodać unit Registry.
Wielkie dzięki Nex
Jak to człowiek mało wie :|. A przy okazji to rzeczywiście z tego rejestru można ściągnąć jeszcze dużo innych informacji... :)
Pozdrawiam