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

bartram

Дата 25.9.2004, 17:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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

Как сделать так чтобы прога скопировала сама себя в системную папку, и поставила себя в автозагрузку(через реестр)?

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

_hunter

Дата 25.9.2004, 18:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

а в чем проблема?
свой путь: GetModuleFileName()
копировать файл: CopyFile()
автозапуск: http://forum.vingrad.ru/index.php?showtopic=29379

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

Tempora mutantur, et nos mutamur in illis...

Ripper

Дата 25.9.2004, 21:17 (ссылка)

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

Загрузка ...

Lonely soul...

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

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

Для каких целей интересно? =)
вот мой старый код... должен работать:

Код


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;
....
function WinCopyFile(FromFile, ToDir : string) : boolean;
var
 F :TShFileOpStruct;
begin
 F.Wnd := 0;
 F.wFunc := FO_COPY;
 FromFile:=FromFile+#0;
 F.pFrom:=pchar(FromFile);
 ToDir:=ToDir+#0;
 F.pTo:=pchar(ToDir);
 F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
 result:=ShFileOperation(F) = 0;
end;
...
var
 s :string;
begin
 SetLength(s, 255);
 GetWindowsDirectory(PChar(s), 255);
 SetLength(s, StrLen(PChar(s)));
 uppercase(s);
 WinCopyFile(paramstr(0), s + '\MYAPL.EXE');
 SetAutoRun('Myapl',s + '\MYAPL.EXE', false);

Тока все же неуверен)

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

"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом

bartram

Дата 25.9.2004, 21:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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

Цитата(Ripper @ 25.9.2004, 21:17)

Для каких целей интересно? =) вот мой старый код... должен работать:

Просто я делаю снифер который когда обнаруживает соединение с интернетом считает все исходящие пакеты и входящие! А функции нужны для автоматизма

Это сообщение отредактировал(а) bartram - 25.9.2004, 21:43

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Guest

Дата 26.9.2004, 10:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Прикольно, снифер, который обнаруживает соединение с инетом, а потом читает исходящие и входящие пакеты сделать можешь, а скопировать программу куда-либо и поставить в автозагрузку - нет! ;)

bartram

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

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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

Цитата(Guest @ 26.9.2004, 10:32)

Просто я забыл как это делается!

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

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