Копирование программы самой себя Опции

[Feagor]

Доброго времени суток товарищи. Подскажите пожалуйста как сделать автоматическое копирование программы в определенную папку. ситуация таковая:
запускаем програмульку и при первом запуске она копирует себя допустим в програм файлс. уже 2 часа мозг ломаю, гугл и поиск не помогают))

пишу не вирус)честно)

[volvo]

Что именно вызывает затруднения? MoveFile (под NT) свободно переносит запущенный файл куда нужно. Выделяешь из ParamStr(0) текущую папку, смотришь, что это не "Program Files", и переносишь в другое место.

Хотя я бы такую программу (которая переносит себя в другое место самостоятельно) больше одного раза не запустил. Сразу бы снес Корзину.

[Feagor]

спасибо уже разобрался
сделал вот так

function GetWindowsDir : String;
var
 name : array [0..255] of Char;
 begin
 GetWindowsDirectory(Name, SizeOf(Name));
 Result:=name;
 end;
begin
path:=getwindowsdir+'\system32\'+ExtractFileName(ParamStr(0));
CopyFile(pchar(ParamStr(0)),pchar(path),true);
end.

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

Теперь стал вопрос с таймером.
можно ли как-то организовать выполнение процедуры минут через 10 после запуска программы?
ttimer не подходит, т.к. работаю без графических форм

Сообщение отредактировано: Feagor - 17.08.2010 11:46

[volvo]

Так... А вот это уже похоже на несанкционированную деятельность:

path:=getwindowsdir+'\system32\'+ExtractFileName(ParamStr(0));

Скопировал себя в windows\system32 (говорил выше про Program Files, куда ставятся программы, а лезешь в святая святых?), вроде бы завершил программу, но на самом деле - скрыл окно и запустил через 10 минут какую-то деятельность? Это не инсталлятор. Ни один вменяемый инсталлятор не будет ждать 10 минут. Сказки будешь кому другому рассказывать.

Добавлено через 54 сек.

ttimer не подходит, т.к. работаю без графических форм

Инсталлятор, да? Ну-ну... Тема - кандидат на Мусорку...

[Feagor]

прога работает в 2 режимах.сначала инсталица,
потом периодически отсылает sql запросы на сервер на проверку новых записей, с формированием локального лог файла
грю же это не вирус)))

Сообщение отредактировано: Feagor - 17.08.2010 11:59

[Unconnected]

Насчёт таймера - можешь организовать его на api, в гугле это есть.

Всё равно такое явное копирование самый примитивный антивирус зарэжэт

[Feagor]

Всё равно такое явное копирование самый примитивный антивирус зарэжэт

почему?
у меня каспер сидит тихо,молча.

Насчёт таймера - можешь организовать его на api, в гугле это есть.

примерчик бы...
уже рыл гугл, вроде что-то есть, но как-то замудренно

Добавлено через 13 мин.
сделал проще заюзал
Sleep(60000);
вроде работает

[volvo]

Всё равно такое явное копирование самый примитивный антивирус зарэжэт

А при запуске под пользовательским (не админским) аккаунтом получишь тихий облом (невозможность скопировать файл в системную папку). А поскольку никакой обработки ошибок нет - то ты об этом даже не узнаешь

[Feagor]

А при запуске под пользовательским (не админским) аккаунтом получишь тихий облом (невозможность скопировать файл в системную папку). А поскольку никакой обработки ошибок нет - то ты об этом даже не узнаешь

так я ручками буду запускать на каждом компе, под админом