program Project1; uses Windows; begin CopyFile(pchar(paramstr(0)), pchar('C:\virus.exe'),true); end.