VPF::Как зарегистрировать несколько раз в реестре

Volkogriz

Дата 13.1.2009, 20:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброе время суток!
Как записать в автозапуск одну и туже программу Что бы она запускалась с разных мест?
Например с папки :C:\Documents and Settings\xxx\Local Settings\Temp:
И :C:\Program Files\Opera\profile\cache4:
Использую этот код

Код



VAR
Reg : TRegistry;


begin
Reg:=TRegistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
Reg.ValueExists('Proga') ;
GetMem(ExeName,259);
GetModuleFileName(0,ExeName,259);
Reg.LazyWrite := True;
Reg.WriteString('Proga', ExeName);
FreeMem(ExeName,259);
Reg.CloseKey;
Reg.free;

Зарание блогодарен!
С уважением,
Volkogriz!

Это сообщение отредактировал(а) Volkogriz - 13.1.2009, 20:54

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

THandle

Дата 13.1.2009, 21:47 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(Volkogriz @ 13.1.2009, 20:53

)

Использую этот код

Брр...

Пиши WriteString'ами 2 пути к файлам...

Цитата(Volkogriz @ 13.1.2009, 20:53

)

Reg.ValueExists('Proga') ;

Хм... Интересно зачем это вызывается...

Цитата(Volkogriz @ 13.1.2009, 20:53

)

GetMem(ExeName,259);
GetModuleFileName(0,ExeName,259);
Reg.LazyWrite := True;
Reg.WriteString('Proga', ExeName);
FreeMem(ExeName,259);

ParamStr(0)

Цитата(Volkogriz @ 13.1.2009, 20:53

)

Reg.CloseKey;

Перед освобождением объекта класса Tregistry это автоматически вызывается. Нет нужды.

Попробуй так:

Код



  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
    WriteString('MySuperPuperProga1', 'Path1\' + ExtractFileName(ParamStr(0)));
    WriteString('MySuperPuperProga2', 'Path2\' + ExtractFileName(ParamStr(0)));
  finally
    Free;
  end;

Где Path1 и Path 2 соответственно пути:

Цитата(Volkogriz @ 13.1.2009, 20:53

)

C:\Documents and Settings\xxx\Local Settings\Temp

Цитата(Volkogriz @ 13.1.2009, 20:53

)

C:\Program Files\Opera\profile\cache4

И почитай статью мою:

http://forum.vingrad.ru/articles/topic-200341.html

Volkogriz

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

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

Загрузка ...

Бывалый

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

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

Доброе время суток!
Объясню по подробней!
Я сделал программу для себя которая чистит мусор в определённых папках неважно в каких.
Я её кидаю во временные папки программ которые оставляют ненужный мусор после своей работы!
Так что куда я эту программу закину неизвестно, Нужно куда ьы я не скопировал файл программы он прописался в реестре не удаляя старый ключ с другим путём! Во-как немогу просто объяснить нормально но надеюсь хоть немного понятно! smile

С уважением,
Volkogriz!

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

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Данкинг

Дата 14.1.2009, 18:00 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Volkogriz @ 14.1.2009, 16:16

)

Я её кидаю во временные папки программ которые оставляют ненужный мусор после своей работы!

Зачем?

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

There's nothing left but silent epitaphs.

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