Архив форумов ЦИТФорума

[Smitty]

Помогите прочитать данные из реестра Windows 2000 в Delphi4. В 98-ом все получается, а тут никак... Зарание спасибо.

[яяя]

так что ответ "ТОЧНО ТАК ЖЕ"

[Smitty]

Ниже привожу кусок проги - не работает в 2000, но работает в 98:
try //запрос текущего имени пользователя из реестра "окон"
Reg:=TRegistry.Create;
Reg.Rootkey:=HKEY_LOCAL_MACHINE;
GetUserName(ch, nsize);
Label3.Caption:=ch;
Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
// Reg.OpenKey('System\CurrentControlSet\Control',false);
ComboBox1.Items[1]:=Reg.ReadString('DefaultUserName');
// ComboBox1.Items[1]:=Reg.ReadString('Current User');
Reg.CloseKey;
Reg.Destroy;
except
ComboBox1.Items[1]:='no name';
end;

заремленные строки считывают имя пользователя в 98 безошибочно, а данный кусок не считывает реестр. Выдает пустую строку.

[zzz]

OpenKey возвращает значение, не судьба его проверить?
Но самое главное, используй не OpenKey, а OpenKeyReadOnly.

[Mike]

Я перевел твой ("незаремленый") кусок в Бильдер (я на нем пишу) - работает под 2000 про, ты вобще с правами администратора заходишь?