Atualizando executavel

Delphi

30/06/2004

Olá pessoal!

Alguém sabe como eu posso fazer a atualização de um executável novo do servidor para uma máquina cliente automaticamene. Exemplo: Eu coloco uma nova versão do executável no servidor. Ao executar o sistema numa máquina cliente, um outro executável ou dll, por exemplo, atualize o executável da máquina cliente.

Att.


Michaell

Michaell

Curtidas 0

Respostas

Cabelo

Cabelo

30/06/2004

Coloque um Timer em seu sistema, e inclua o código abaixo :

procedure TOKBottomDlg.Timer1Timer(Sender: TObject);
var nIdadeA,nIdadeN : integer;
Origem,Destino:PChar;
begin
nIdadeA := FileAge(ExtractFilePath(Application.ExeName)+AplicAtu);
nIdadeN := FileAge(caminho do servidor+AplicAtu);

if nIdadeN = nIdadeA then
begin
Timer1.Enabled := false;
ProgressBar1.Position := 0;
OKBottomDlg.Close;
end
else
begin
if ProgressBar1.Max <= ProgressBar1.Position then
begin
Origem:=PChar(caminho do servidor+AplicAtu);
Destino:=PChar(ExtractFilePath(Application.ExeName)+AplicAtu);
Application.ProcessMessages;
CopyFile(Origem,Destino,false);
Application.ProcessMessages;
end
else
ProgressBar1.Position := ProgressBar1.Position+10;
end;

espero ter ajudado..

sem mais

Cabelo


GOSTEI 0
POSTAR