Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

Как получить Company Name?   Найти похожие ветки 

← →
Style ©   (2006-07-10 11:18) [0]

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

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

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

---

← →
BiN ©   (2006-07-10 11:33) [1]

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

---

← →
Style ©   (2006-07-10 11:54) [2]

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

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

---

← →
Style ©   (2006-07-10 11:58) [3]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.061 c