Fórum criando um sistema de UPDATE .... alguns problemas #221581

function DownloadFile(Source, Dest: string): Boolean; begin try Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0; except Result:= False; end; end; function TamArquivo(Arquivo: string): Integer; begin with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do try Result := Size; finally Free; end; end; procedure TForm1.FormCreate(Sender: TObject); begin pasta := ExtractFilePath(Application.ExeName); end; function TForm1.updateserver: string; begin timer1.Enabled := true; label2.Caption := ´/266kb´; label2.Update; if (DownloadFile(´http://endereço.com.br/arquivo.zip´,pasta+´arquivo.zip´)) then begin timer1.enabled := false; memo1.Lines.Add(´-> Download Concluido.´); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := inttostr(TamArquivo(pasta+´server.dll´)); label1.Update; end; procedure TForm1.FormShow(Sender: TObject); begin updateserver; end;