Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
ВнизАвтозапуск в реестре. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.066 c