Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизWinXP - Реестр Найти похожие ветки
← →
Chepel (2002-04-08 21:45) [1]Я использую
HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
const
DefCompany = "DefCompany";
DefName = "DefName";
begin
with TRegistry.Create do
try
OpenKeyReadOnly("\Software\Microsoft\MS Setup (ACME)\User Info");
if ValueExists(DefName) then
Label1.Caption := "User: " + ReadString(DefName);
if ValueExists(DefCompany) then
Label2.Caption := "Company: " + ReadString(DefCompany);
finally
Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.011 c