Ver Mensaje Individual
  #8  
Antiguo 24-04-2015
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.285
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Ańádele un try..except para detectar posibles problemas.
Algo Así:

Código Delphi [-]
procedure TFormMain.FormActivate(Sender: TObject);
begin
  try
     If CopyFile(Pchar('\\192.168.0.25\Upload\EZDealers.exe'), Pchar('C:\Ezdealers\EZDealers.exe'), False) then
       ShowMessage('Copia correcta')
     else
       RaiseLastOSError;
     
     Close;
     WinExec(PChar('C:\Ezdealers\EZDealers.exe'),SW_SHOWNORMAL);
  except
    on E:Exception do begin
      MessageDlg('Error al actualizar; ' + E.Message, mtError, [mbOK], 0);
    end;
  end;
end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita