VPF::Автозагрузка программы - Форум программистов

Notreg

Дата 9.5.2007, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 10.1.2007

Репутация: нет
Всего: нет

Помогите прописать программу в автозагрузку, в реестр.

--------------------

Надежна лишь смерть, жизнь - нет.

anwe

Дата 9.5.2007, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: нет
Всего: 23

Посмотри DRKB

Sunvas

Дата 9.5.2007, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 2
Всего: 89

Цитата(Notreg @ 9.5.2007, 10:45

)

Помогите прописать программу в автозагрузку, в реестр.

Что конкретно не получается?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 9.5.2007, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Notreg
Кстати, внизу страницы тоже подсказки имеются ;)

--------------------

*щёлк*

Guedda

Дата 9.5.2007, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 1
Всего: 78

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Туда пиши.

--------------------

Ll 2

valentos

Дата 9.5.2007, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

В USES добавить registry

Код


var
RegIni:TRegIniFile;
 begin
//инициализируем переменную
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
// открываем папки
RegIni.OpenKey('Software',true);
RegIni.OpenKey('Microsoft',true);
RegIni.OpenKey('Winsows',true);
RegIni.OpenKey('CurrentVersion',true);
// Записываем в раздел RunServices свою прогу
//вместо RunServices можно Run, смотря как тебе нужно запустить
// если Run то прога, после старта винды запустится на выполнение
// если runserv.., то будет сидеть в процессах, и окно не будет показано
RegIni.WriteString('RunServices','ИМЯ_ПРОГИ.EXE',Application.ExeName);
// удаляем переменную
RegIni.Free;
 end;

Это сообщение отредактировал(а) valentos - 9.5.2007, 13:57

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

Albinos_x

Дата 9.5.2007, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

Код



uses
  ..., Registry,...

  function AutoRunInst(const Pach:string):boolean;
  function AutoRunUnInst(const Pach:string):boolean;
  function AutoRunUnExist(const Pach:string):boolean;
  function ValueKeyExist(const Key:string; Value:string):string;

...

// установка в автозагрузку
//Name - имя программы (создаваемого ключа)
function AutoRunInst(const Name:string):boolean;
var Reg:TRegistry;
begin
result:=true;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\',false);
Reg.WriteString(Name,ParamStr(0));
except
  Result:=false;
  Reg.Free;
  end;
Reg.Free;
end;

// удаление с автозагрузки
//Name - имя программы (удаляемого ключа)
function AutoRunUnInst(const Name:string):boolean;
var Reg:TRegistry;
begin
result:=true;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\',false);
Reg.DeleteValue(Name);
except
  Result:=false;
  Reg.Free;
  end;
Reg.Free;
end;

// Проверяет установлена ли запущенная программа в автозагрузку
//Name - имя программы (проверяемого ключа)
function AutoRunUnExist(const Name:string):boolean;
begin
result:=true;
try
if ValueKeyExist('\Software\Microsoft\Windows\CurrentVersion\Run\',Name)=ParamStr(0) then
   result:=true
   else
   Result:=false;
except
  Result:=false;
  end;
end;

// используется в предыдущей функции
// для проверки существования ключа в разделе
// возвращает значение ключа
// Key - раздел в котором проверяем
// Value - проверяемый ключ
function ValueKeyExist(const Key:string; Value:string):string;
var regi : TRegistry;
    PN:string;
begin
 Result:='';
 Regi:=TRegistry.Create;
 Regi.RootKey:=HKEY_LOCAL_MACHINE;
 if regi.KeyExists(key) then
   begin
   regi.OpenKey(key, false);
   try
     pn:=regi.ReadString(Value);
     if pn='' then
        Result:=''
        else
        Result:=pn;
     except
       Result:='';
       regi.CloseKey;
       regi.free;
       end;
   regi.CloseKey;
   end
   else
   Result:='';
regi.free;
end;

Это сообщение отредактировал(а) Albinos_x - 9.5.2007, 14:22

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

valentos

Дата 9.5.2007, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Albinos_x , зачем так много?

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

Yanis

Дата 9.5.2007, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

Цитата(valentos @ 9.5.2007, 17:11

)

Albinos_x , зачем так много?

Что много? 4 функции по 5-10 строчек кода?

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »