How to copy a running program to a given folder

Problem/Question/Abstract:

How to copy a running program to a given folder

Answer:

copyfile(PCHAR(filename), PCHAR('c:\temp\' + extractfilename(filename)), true);