function GetFileDate

[look]

Hola compañeros , encontre esta funcion en el foro , que sirve para actualizar la version del exe de tu aplicacion...

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
  fecha1, fecha2: Double;
function GetFileDate(TheFileName: string): Double;
var
 FHandle: integer;
begin
 FHandle := FileOpen(TheFileName, 0);
 try
   Result := Int(FileDateToDateTime(FileGetDate(FHandle)));
 finally
   FileClose(FHandle);
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShortDateFormat:= 'MM/dd/yyyy';
  fecha1:= GetFileDate('C:\Archivos de programa\Programa\pepe.exe');
  WinExec(PChar('net use G: \\Servidor password/user:administrador'),SW_HIDE);
  fecha2:= GetFileDate('G:\\sadvalcajero.exe');
  if fecha2 > fecha1 then
  CopyFile(Pchar('\\192.168.10.16\temp\pepe.exe'), Pchar('C:\Archivos de programa\Programa\pepe.exe'), False);
  WinExec(PChar('net use G: /delete'),SW_HIDE);
  Close;
  //
  WinExec(PChar('C:\Archivos de programa\Programa\pepe.exe'),SW_SHOWNORMAL);
end;
end.

la pregunta es... se podra modificar para que donde ba el path de la aplicacion , este se carge con el ExtractFilePath(Application.ExeName), demanera que el actualizador este en la mismacarpeta del exe , y el path del nuevo exe se carge desde un inifile, estube probando pero no pude hacer nada...mm ya me dio migraña,... , esq hoy ando un poco malito

[look]

puf , encontre la solucion , tan ovio era, si que ando mal...

[roman]

¡Qué bueno que encontraste la solución! Nos emociona ver gente autosuficiente

// Saludos

[donald shimoda]

Empezado por look

puf , encontre la solucion , tan ovio era, si que ando mal...

Estaría bueno que pegues el código asi le sirve al que viene detrás.

Saludos