| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как получить Company Name? [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Style ©   (2006-07-10 11:18:00) 

Привет Мастерам!

Как получить имя организации или компании... которую указали при установке Windows?
К примеру есть стандартный диалог в InstallShield, когда он спрашивает имя пользователя и  имя организации(компании) и заполняет поля по умолчанию...

Так вот где он берет имя организации...
Есть ли такая функция?

---

Style   (2006-07-10 11:58:00) [1]

Все спасибо, нашел в поисковиеке как народ делает...

procedure GetOwnerAndCompanyName(var sOwner, sOrganization: string);
var
  reg: TRegistry;
  vi: TOSVersionInfo;
  sWindows: string;
begin
  reg      := TRegistry.Create;
  sWindows := '\Windows\';
  try
    vi.dwOSVersionInfoSize := SizeOf(vi);
    getversionex(vi);
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if (vi.dwPlatformId = VER_PLATFORM_WIN32_NT) then sWindows := '\Windows NT\';
    if reg.OpenKey('Software\Microsoft' + sWindows + 'CurrentVersion', False) then
    begin
      // Name
     sOwner := reg.ReadString('RegisteredOwner');
      // Organization
     sOrganization := reg.ReadString('RegisteredOrganization');
    end;
  finally
    reg.Free;
  end;
end;

---

Style   (2006-07-10 11:54:00) [2]

А 95/98/Me? Может все-таки есть какая нить функция?  
Я не нашел... :(

Ладна спасибо на этом, поставлю 95тые под VMWare тоже в реестре поищу...

---

BiN   (2006-07-10 11:33:00) [3]

HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization

---

Наверх