Atualizar .EXE

Delphi

19/03/2004

Olá, trabalho em um prédio de 3 pisos, quando faço alguma alteração no sitema tenho que ir de maquina em maquina para atualizar o EXE, alguem sabe como atualizar o EXE sem a necessidade de ir em máquina por máquina.

Luis


Ldrabelo

Ldrabelo

Curtidas 0

Respostas

Valdir.santos

Valdir.santos

19/03/2004

Eu fiz assim:

Criei um outro projeto (Protocolo.Exe) com um pequeno form e label escrito:
´Copiando nova versão do sistema´

No evento create deste form eu coloquei:

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;


Vc deve colocar o seu executável em uma pasta do servidor (no meu caso, \\SRVPROT\ ... ), toda vez que vc modificar o sistema.

Na instalação do sistema, o atalho deve chamar o projeto acima (no meu caso, chama o Protocolo.Exe)

Valdir.


GOSTEI 0
Adilsond

Adilsond

19/03/2004

Veja no site do clubedelphi(Na página inicial)

Confira a atualização do aplicativo que ganhou o primeiro concurso UPLoader Master. Por Dennys dos Santos

[url]http://www.clubedelphi.com.br/aplicativos/atu_app.zip[/url]


GOSTEI 0
POSTAR