Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Как убрать приложение из автозапуска? 


inko   (2002-04-13 19:00) [0]

Как убрать приложение из автозапуска Windows?

Ниже привожу код для помещения приложения в автозапуск Windows?

procedure SetAutorun(aProgTitle,aCmdLine: string;
aRunOnce: boolean );
var
hKey: string;
hReg: TRegIniFile;
begin
if aRunOnce then hKey := "Once"
else
hKey := "";

hReg := TRegIniFile.Create( "" );
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.WriteString("Software\Microsoft\Windows\CurrentVersion\Run"
+ hKey + #0,
aProgTitle,
aCmdLine );
hReg.destroy;
end;



Ray_Parker   (2002-04-13 19:07) [1]

Убрать из автозапуска можно тем же способом, только используя функцию DeleteString (точно не помню, как она записывается). Нужно посмотреть в help. Также указываешь ключ к Run и потом не WriteString, а Delete (короче в хелп загляни).



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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.02 c
3-80736           Lt. Dennis            2002-04-03 16:46  2002.04.25  
Возникла непонятная проблема со связкой IBQuery + IBUpdateSQL


1-81005           ДмитрийФ              2002-04-12 19:26  2002.04.25  
Разработка собственной компоненты


14-81069          Oleg_V                2002-03-19 05:45  2002.04.25  
Братья програмеры помогите, как зделать форму с неровными краями!!???


6-81030           Realizator            2002-02-13 09:49  2002.04.25  
Интересно, хоть кто-нибудь смог бы написать РАБОЧИЙ Telnet? Под сервер UNIX никак не пашет!


1-80923           K@tusha               2002-04-11 13:33  2002.04.25  
Перевеси цветную палитру в черно-белую