Ver Mensaje Individual
  #5  
Antiguo 26-11-2004
lgarcia lgarcia is offline
Miembro
 
Registrado: jul 2004
Posts: 504
Reputación: 22
lgarcia Va por buen camino
Actualizacion de programa por usuario sin derecho

Gracias fredo:

En el Foro hace 2 dias salio una noticia acerca de actualizacion de programas y me intereso el tema ya que es aplicable a mi problema y lo resolvi de la siguiente forma:

procedure TFormAutentificacion.ButtonAceptarClick(Sender: TObject);
var fecha1, fecha2: Double;
begin
fecha1:= GetFileDateTime('\\servidor\sadval$\sadvalcajero.exe');
fecha2:= GetFileDateTime('c:\Archivos de programa\sadval\sadvalcajero.exe');

if fecha1 > fecha2 then
if not CopyFile(PChar('\\servidor\sadval$\sadvalcajero.exe'),
PChar('c:\Archivos de programa\sadval\sadvalcajero.exe'),FALSE) then
MessageDlg('No he podido copiar el fichero', mtWarning, [mbOk], 0);
WinExec(PChar('sadvalcajero.exe'),SW_SHOWNORMAL);
end;

Trabajando en XP con un usuario con cuenta administrativa trabaja excelentemente pero el caso es que el usuario en cuestion tiene una cuenta limitada por lo que no puede sobreescribir el fichero y me da un error. Como la PC no esta en dominio no me deja darle derecho de escritura. Por lo que quisiera saber si existe en las API algo que me pueda facilitar esa operacion.

Saludos
Luis Garcia
Responder Con Cita