queria porfavor que me expliquen estas fuction que son: BeginUpdateResource, UpdateResource ya que en parte de un codigo estoy viendo esto
Código:
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;