Программа, которая сама копируется в Startup

@None13 · Регистрация: 16.07.2008

Студворк — интернет-сервис помощи студентам

Я написал прогу, но хочу, чтоб при её запуске она сама копировалась в любую директорию и автоматом становилась в 'Startup' и во все его виды!
Если можно напишите как во всех системах Win NT/9x/2k.
Source code PLEASE!
Заранее благодарю!!!!!!!!

@GoldenFILL · 17.07.2008, 06:32

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

.

@None13 · 17.07.2008, 10:10 **[ТС]**

Спасибо!
Но мая прога заставляет все окна съезжать в сторону, а сама она без формы, а если её поместить в Startup удалить ее можно будет только в
Save Mode .
А кострированые клоны инсталляторов я ещё писать не умею!

@eklmn · 18.07.2008, 16:16

Приколист...

Создавай регистрацию в реестре и не мучайся...

Правда нынче юзера умные пошли, они твою регистрацию в два счета словят и предадут жестокой казни...

Посему... пошукай в нестандартных местах. В реестре есть целая куча таких... Правда по большей части оттеда запускаются dll файлы.

Достаточно просто также спрятать свою прогу и от Ctrl+Alt+Del... Тыришь у винды Current process... Тада новый процесс не регистрируется, а твоя прога работает под видом другого, ранее запушенного процесса.

Исходник скину завтра...

@None13 · 18.07.2008, 18:39 **[ТС]**

Спасибо!
Но понимаешь моя прога без формы и если она попадёт в STARTUP то хана.
И удалить что-то мжно только через SAVE MODE, но одна проблема она уязвима перед CTRL+BREAKE и мне надо єто отключить!
Зарнее благодарю за исходники!

@eklmn · 20.07.2008, 14:17

Итак, как и обещал, привожу исходник:

---------------------------------------------------------------
Прячем/показываем прогу в TaskManager (Ctrl+Alt+Del):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; 
  external 'KERNEL32.DLL'
 
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
begin //Hide
 if not (csDesigning in ComponentState) then
  RegisterServiceProcess(GetCurrentProcessID, 1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin //Show
 if not (csDesigning in ComponentState) then
  RegisterServiceProcess(GetCurrentProcessID, 0);
end;

-------------------------------------------------------------
На худой конец можно произвести повторный запуск проги при попытке ее отключить:

обрабатываем событие OnClose:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  si : Tstartupinfo;
  p  : Tprocessinformation;
begin
 FillChar( Si, SizeOf( Si ) , 0 );
 with Si do begin
  cb := SizeOf( Si);
  dwFlags := startf_UseShowWindow;
  wShowWindow := 4;
 end;
 Application.Minimize;
 Createprocess(nil,'my_prog.exe',nil,nil,false,Create_default_error_mode,nil,nil,si,p);
end;

Будут вопросы - пиши...

@eklmn · 20.07.2008, 14:21

Да еще... этот код я вырезал из другой проги...

Application.Minimaze тут не имеет никакого практического значения...

@None13 · 21.07.2008, 17:24 **[ТС]**

Спасибо!
Если хочешь я тебе скину свою прогу !
Но смотри не запускай єто такое западло... 'Язык моего врага'!

@eklmn · 21.07.2008, 17:29

Скинь исходник, покопаюсь... может еще чего насоветую...

Могу кое чего из моих пакостей скинуть...

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@None13 0 / 0 / 0 Регистрация: 16.07.2008 Сообщений: 26

	Программа, которая сама копируется в Startup 16.07.2008, 23:27. Показов 1223. Ответов 8 Метки нет (Все метки) Я написал прогу, но хочу, чтоб при её запуске она сама копировалась в любую директорию и автоматом становилась в 'Startup' и во все его виды! Если можно напишите как во всех системах Win NT/9x/2k. Source code PLEASE! Заранее благодарю!!!!!!!! 0

@GoldenFILL 1 / 1 / 1 Регистрация: 13.05.2008 Сообщений: 42
	17.07.2008, 06:32
	Несколько некорректно поставлен вопрос: Что значит в любую директорию, значит директорию надо как-то и где-то определить, далее в стартап и во все его виды... что вложено в смысл во все его виды ????? А вообще то есть инсталятор для этих целей. Вложи свую прогу в инсталятор, ответь на вопросы инсталятора и он сам тебе все зделает, а иначе тебе нужно писать какой нибудь кастрированный клон инсталятора. Хотя для выполнения твоей задачи это совершенно не сложно. Вообще я считаю несколько некорректно, если сама прога будет рыться по системе и расписывать себя на компе. Не всем конечным пользователям это будет по душе . 0

@None13 0 / 0 / 0 Регистрация: 16.07.2008 Сообщений: 26
	17.07.2008, 10:10 [ТС]
	Спасибо! Но мая прога заставляет все окна съезжать в сторону, а сама она без формы, а если её поместить в Startup удалить ее можно будет только в Save Mode . А кострированые клоны инсталляторов я ещё писать не умею! 0

@eklmn 3 / 3 / 3 Регистрация: 09.07.2008 Сообщений: 422
	18.07.2008, 16:16
	Приколист... Создавай регистрацию в реестре и не мучайся... Правда нынче юзера умные пошли, они твою регистрацию в два счета словят и предадут жестокой казни... Посему... пошукай в нестандартных местах. В реестре есть целая куча таких... Правда по большей части оттеда запускаются dll файлы. Достаточно просто также спрятать свою прогу и от Ctrl+Alt+Del... Тыришь у винды Current process... Тада новый процесс не регистрируется, а твоя прога работает под видом другого, ранее запушенного процесса. Исходник скину завтра... 0

@None13 0 / 0 / 0 Регистрация: 16.07.2008 Сообщений: 26
	18.07.2008, 18:39 [ТС]
	Спасибо! Но понимаешь моя прога без формы и если она попадёт в STARTUP то хана. И удалить что-то мжно только через SAVE MODE, но одна проблема она уязвима перед CTRL+BREAKE и мне надо єто отключить! Зарнее благодарю за исходники! 0

@eklmn 3 / 3 / 3 Регистрация: 09.07.2008 Сообщений: 422
	20.07.2008, 14:21
	Да еще... этот код я вырезал из другой проги... Application.Minimaze тут не имеет никакого практического значения... 0

@None13 0 / 0 / 0 Регистрация: 16.07.2008 Сообщений: 26
	21.07.2008, 17:24 [ТС]
	Спасибо! Если хочешь я тебе скину свою прогу ! Но смотри не запускай єто такое западло... 'Язык моего врага'! 0

@eklmn 3 / 3 / 3 Регистрация: 09.07.2008 Сообщений: 422
	21.07.2008, 17:29
	Скинь исходник, покопаюсь... может еще чего насоветую... Могу кое чего из моих пакостей скинуть... 0