CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\your program.exe'), True);

// Coded by Appo //