Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизКак убрать приложение из автозапуска? Найти похожие ветки
← →
Song (2002-04-13 20:27) [2]ИМХО, удобочитательней:
procedure AutoRunSet(Flag:Boolean);
begin
With TRegistry.Create Do
try
RootKey:=HKEY_LOCAL_MACHINE;
Access:=KEY_ALL_ACCESS;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\",False);
IF Flag then WriteString("имя_программы",Application.ExeName)
else DeleteValue("имя_программы");
CloseKey;
finally
Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c