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

[Feagor]

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

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

[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