Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

Вопрос по реестру в WinXP(проблемы с удалением параметра)   Найти похожие ветки 

 
Krot   (2004-09-20 15:26) [0]

Доброе время суток! Уважаемые мастера, помогите пожалуйста. Вопрос такой: Сушествует проект, вкотором есть следующий исходный код:

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 (выполнить не удалось).

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


 
VMcL ©   (2004-09-20 15:50) [1]

Что говорит GetLastError()?


 
ssk ©   (2004-09-20 15:55) [2]

кажется надо DeleteKey("clock"); заменить на DeleteValue("clock");


 
Krot   (2004-09-21 09:13) [3]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
6-1091000844
Катя
2004-07-28 11:47
2004.10.03
Как прикрепить файл и вставить текст в тело письма?


8-1088879646
nolimit
2004-07-03 22:34
2004.10.03
flash в исполняемый файл


1-1095271355
Bober
2004-09-15 22:02
2004.10.03
Перенос проекта на WinXp (русские шрифты)


14-1095161367
Dmitriy O.
2004-09-14 15:29
2004.10.03
Какие Вы видите перспективы С/Х на Марсе ?


1-1095527219
Виньдовьсь 95
2004-09-18 21:06
2004.10.03
Приостановка программы