una ayuda

[GiovanniP]

queria porfavor que me expliquen estas fuction que son: BeginUpdateResource, UpdateResource ya que en parte de un codigo estoy viendo esto

procedure TFrmCliente.PngBitBtn1Click(Sender: TObject);
Var
  RutaStub: String;
  Destino: String;
  ResEXE: Dword;

begin
  RutaStub := ExtractFilePath(ParamStr(0)) + 'Stub.stb';
  Destino := ExtractFilePath(ParamStr(0)) + 'Downloader.exe';
  ProgressBar1.StepBy(+ 10);
  CopyFile(PChar(RutaStub), PChar(Destino), True);
  ProgressBar1.StepBy(+ 10);
  ResEXE := BeginUpdateResource(PChar(Destino), False);
  If (ResEXE) <> 0 Then Begin
    ProgressBar1.StepBy(+ 10);
    UpdateResource(ResEXE, RT_RCDATA, 'URL', 0,
    PChar(Edit1.Text), Length(Edit1.Text));
      ProgressBar1.StepBy(+ 25);
    UpdateResource(ResEXE, RT_RCDATA, 'DIRECTORIO', 0,
    PChar(ComboBox1.Text), Length(ComboBox1.Text));
    ProgressBar1.StepBy(+ 10);
    UpdateResource(ResEXE, RT_RCDATA, 'NOMBRE', 0,
    PChar(Edit2.Text), Length(Edit2.Text));
    ProgressBar1.StepBy(+ 25);
    EndUpdateResource(ResEXE, False);
    ProgressBar1.StepBy(+ 15);
    Application.MessageBox('Downloader creado correctamente.',
    'Flat - Downloader', MB_ICONINFORMATION + MB_OK);
    ProgressBar1.StepBy(- 100);
  End;
end;

[ecfisa]

Hola GiovanniP.

Son funciones de la API de windows, en los siguientes enlaces tenés toda la información:

. BeginUpdateResource Function

. UpdateResource Function


Saludos.

[cloayza]

Apostaria que buscando en google llego al mismo link...

Sera que nos estamos poniendo un poco comodos

Saludos

[ecfisa]

Eso no es comodidad!!!

Es un ejemplo práctico de una de las mayores ventajas de la POO: Reusabilidad

Saludos.