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

Вниз

Автозапуск в реестре.   Найти похожие ветки 

 
AlexeyIII   (2010-03-31 09:29) [0]

Здравствуйте. Объясните пожалуйста непонятную мне ситуацию. Нужно добавить программу в автозапуск. Использую ветку реестра:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
Она ведь для этого и предназначена?
Пишу в нее так:

Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("Software",true);
Reg.OpenKey("Microsoft",true);
Reg.OpenKey("Windows",true);
Reg.OpenKey("CurrentVersion",true);
Reg.OpenKey("Run",true);
Reg.WriteString("mycoolproga",Application.ExeName);
Reg.CloseKey;
Reg.Free;


При запуске выдает:  Failed to set data for "mycoolproga"  и ничего не пишет. Если делать так:

Reg := TRegistry.Create;
try
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run", False);
  Reg.WriteString("mycoolproga",Application.ExeName);  
  Reg.CloseKey;
finally
   Reg.Free;
inherited;
end;  

То происходит тоже самое. Так же и если писать в HKLM
Я на машине под учеткой админа. D7 WinXPSP3
Подскажите плис, что происходит?


 
AlexeyIII   (2010-03-31 09:40) [1]

Всем спасибо. Разобрался:)
Оказывается Касперский втихаря блокирует запись в ветки автозапуска.


 
Anatoly Podgoretsky ©   (2010-03-31 09:49) [2]

> AlexeyIII  (31.03.2010 09:40:01)  [1]

Во падла.


 
Игорь Шевченко ©   (2010-03-31 10:58) [3]

AlexeyIII   (31.03.10 09:40) [1]

Во падла


 
Дмитрий Белькевич   (2010-03-31 11:08) [4]

Я знал, я знал! Это всё глюки каспера, делфи и винды.


 
KSergey ©   (2010-03-31 11:48) [5]

> Дмитрий Белькевич   (31.03.10 11:08) [4]

Кто виноват?!


 
Плохиш ©   (2010-03-31 14:27) [6]


> Нужно добавить программу в автозапуск.

Давить дерьмопрогу.


 
GrayFace ©   (2010-04-01 13:29) [7]

AlexeyIII   (31.03.10 9:29)
Reg.OpenKey("Software",true);
Reg.OpenKey("Microsoft",true);
Reg.OpenKey("Windows",true);
Reg.OpenKey("CurrentVersion",true);
Reg.OpenKey("Run",true);


Reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run",true);

Плохиш ©   (31.03.10 14:27) [6]
Давить дерьмопрогу.

Каспера. Добавление в автозапуск можно делать и культурно, в настройках.


 
Anatoly Podgoretsky ©   (2010-04-01 14:17) [8]

> GrayFace  (01.04.2010 13:29:07)  [7]

Ручками, только так, но если и здесь К встрянет, то сделать ему харакири. Нафиг нужна программа с подлянками. Есть же много нормальных программ, в том числе и бесплатных.


 
Цукор5   (2010-04-01 17:01) [9]

Я так делал :


if CheckBox1.Checked then
  AddShortcut(GetAutorunLinkPath) else ...
//
procedure AddShortcut(const Path: string);
begin
 if not FileExists(Path) then
 begin
   CreateLink(Application.ExeName, Path, sDescr);
 end;
end;

procedure CreateLink(
 const Path: string;
 const LinkPath: string;
 const Description: string);
var
 Link: IShellLink;
begin
 Link := CreateComObject(CLSID_ShellLink) as IShellLink;
 OleCheck(Link.SetPath(PChar(Path)));
 OleCheck(Link.SetDescription(PChar(Description)));
 OleCheck((Link as IPersistFile).Save(PWideChar(WideString(LinkPath)), True));
end;

function GetAutorunLinkPath: string;
begin
 Result := IncludeTrailingPathDelimiter(GetSpecialFolder(CSIDL_STARTUP))
   + sName;
end;



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

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

Наверх




Память: 0.49 MB
Время: 0.059 c
2-1268466114
Starraider
2010-03-13 10:41
2010.08.27
Программный сброс статистики по дате


15-1274156230
юзер_пузер
2010-05-18 08:17
2010.08.27
flash & ActionScript 3


2-1273502556
NoSilence
2010-05-10 18:42
2010.08.27
Обновление компонента сендмеседжом


15-1265147861
Kerk
2010-02-03 00:57
2010.08.27
Флешеры поможите


15-1275228682
MBo
2010-05-30 18:11
2010.08.27
С днем химика!