CopyFile(Pchar(Application.ExeName),Pchar('D:\test.exe'),False);