Ver Mensaje Individual
  #1  
Antiguo 15-12-2017
Milworm99 Milworm99 is offline
Miembro
NULL
 
Registrado: nov 2017
Posts: 31
Reputación: 0
Milworm99 Va por buen camino
Checkbox igual al timer

Hola Gente de la comunidad Club Delphi, mi pregunta es si existirá un método para que el codigo del checkbox siga ejecutándose el en tiempo real, igual como un timer.

Los codigos del checkbox que quiero que se ejecute en tiempo real es este:

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  ValorON,ValorOFF, Buffer: Cardinal;
begin
  ValorON:= 418117253;
  ValorOFF:= 410318469;
if MIOBJ > 0  Then
  begin
  HandleX := OpenProcess(PROCESS_ALL_ACCESS, False, dwPID);
  if CheckBox1.Checked then
  begin
  WriteProcessMemory(HandleX,Pointer(MIOBJ+$5A64E), @ValorON,4, Buffer);
  end
  else
  begin
  WriteProcessMemory(HandleX,Pointer(MIOBJ+$5A64E), @ValorOFF,4, Buffer);
  end
  end;
end;

Código Delphi [-]
procedure TForm1.CheckBox2Click(Sender: TObject);
var
  ValorON,ValorOFF, Buffer: Cardinal;
begin
  ValorON:= 28312949;
  ValorOFF:= 28312948;
if MIOBJ > 0  Then
  begin
  HandleX := OpenProcess(PROCESS_ALL_ACCESS, False, dwPID);
  if CheckBox2.Checked then
  begin
  WriteProcessMemory(HandleX,Pointer(MIOBJ+$5904D), @ValorON,4, Buffer);
  end
  else
  begin
  WriteProcessMemory(HandleX,Pointer(MIOBJ+$5904D), @ValorOFF,4, Buffer);
  end
  end;
end;

Espero su ayuda, si existe algún método. Muchas Gracias !!

Última edición por Casimiro Notevi fecha: 15-12-2017 a las 22:37:45.
Responder Con Cita