Форум: "WinAPI";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизКак получить 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c