Fórum Atualizar .EXE #221114

procedure TfrmNovaVersao.FormCreate(Sender: TObject);
var sFileOrigem,
    sFileDestino: String;
begin
  Hide;
  sFileOrigem:=´\\SRVPROT\Instalador\VersaoAtual\SisProtocolo.Exe´;
  sFileDestino:=´C:\Arquivos de programas\Protocolo\SisProtocolo.Exe´;
  if (FileExists(sFileOrigem)) and (FileExists(sFileDestino)) then begin
     if StrToDateTime(GetFileDate(sFileOrigem)) >
        StrToDateTime(GetFileDate(sFileDestino)) then begin
        Show;
        Refresh;
        if not CopyFile(Pchar(sFileOrigem), Pchar(sFileDestino), False) then
           ShowMessage(´Erro ao copiar nova versão do sistema´);
     end;
  end;
  WinExec(PChar(sFileDestino),SW_SHOWNORMAL);
end;

function TfrmNovaVersao.GetFileDate(TheFileName: string): string;
var
  FHandle: Integer;
begin
  FHandle:=FileOpen(TheFileName, 0);
  Result:=DateTimeToStr((FileDateToDateTime(FileGetDate(FHandle))));
  FileClose(FHandle);
end;