Atualizando executavel

Question

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

Cabelo · Answer

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

F�rum Atualizando executavel #240598