Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопрос по реестру в WinXP(проблемы с удалением параметра) [D6, D7, Win2k, WinXP]

Krot © (2004-09-20 15:26:00)
Доброе время суток! Уважаемые мастера, помогите пожалуйста. Вопрос такой: Сушествует проект, вкотором есть следующий исходный код:

procedure TForm1.N4Click(Sender: TObject);
var reg:Tregistry;
begin
if N4.Checked then
begin
N4.Checked:=False;
reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',еrue);
DeleteKey('clock');
CloseKey;
reg.Free;
end;
end
else
begin
N4.Checked:=true;
reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
WriteString('clock',Application.ExeName);
CloseKey;
reg.Free;
end;
end;
end;

т.е. когда пользователь ставит флажок путь к ехе-шнику пишется каа параметр в HKLM\...\Run, когда снимает,соответсвено, - удаляется. Проект откомпелённый на D6 под Win2k работает без нареканий. Потом я перенес исходники на другую машину и собрал проект на D7 и запускаю под WinXP.Пользователь,от имени которого запускаю, с правами Администратора. То что касается WriteString работает, а DeleteKey возврашает false (выполнить не удалось).

Может кто-нибудь сталкивался с чем-то подобным? Заранее благодарен.

Krot (2004-09-21 09:13:00) [1]
Для VMcL. GetLastError() возвращает : OS function failed или что-то в этом роде. К сожелению сейчас немогу воспроизвести, так как рядом нет ни одной машины с WinXP, вечером посмотрю - завтра напишу точный текст.

ssk (2004-09-20 15:55:00) [2]
кажется надо DeleteKey('clock'); заменить на DeleteValue('clock');

VMcL (2004-09-20 15:50:00) [3]
Что говорит GetLastError()?

Наверх

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