GT>Есть код:

  OS.Wnd := Handle;
  OS.wFunc := FO_COPY;
  Path1 := Application.ExeName;
  Path2 := 'c:\sclad.exe';  
  OS.pFrom := PChar(Path1);
  OS.pTo := PChar(Path2);
  OS.fFlags := FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;
  OS.lpszProgressTitle := PChar('Copiing ' + Path1 + ' to ' + Path2);
  ShFileOperation(OS);