FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
una ayuda
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; |
#2
|
||||
|
||||
Hola GiovanniP.
Son funciones de la API de windows, en los siguientes enlaces tenés toda la información: . BeginUpdateResource Function . UpdateResource Function Saludos. Última edición por ecfisa fecha: 11-08-2010 a las 05:13:17. |
#3
|
|||
|
|||
Apostaria que buscando en google llego al mismo link...
Sera que nos estamos poniendo un poco comodos Saludos |
#4
|
||||
|
||||
Eso no es comodidad!!!
Es un ejemplo práctico de una de las mayores ventajas de la POO: Reusabilidad Saludos. Última edición por ecfisa fecha: 11-08-2010 a las 17:04:31. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda para la ayuda | maxvera | Varios | 4 | 12-05-2007 20:13:44 |
Instalar Ayuda (.HLP) en la Ayuda de Delphi? | MasterXP | Varios | 6 | 12-04-2006 06:57:49 |
Ayuda para crear ayuda... | Gabriel2 | Varios | 2 | 10-06-2005 00:15:18 |
ayuda con strtofloat, ayuda punto flotante | TURING | Varios | 5 | 30-04-2004 08:03:59 |
Ayuda Con Instalacion De Archivos De Ayuda | Legolas | Varios | 1 | 01-12-2003 14:48:03 |
|