|
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
|