PDA

Ver la Versión Completa : Checkbox igual al timer


Milworm99
15-12-2017, 21:24:44
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:

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;

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 !!

Casimiro Notevi
15-12-2017, 21:37:16
¿Qué quieres decir con que siga ejecutándose en tiempo real?

Milworm99
15-12-2017, 22:14:21
¿Qué quieres decir con que siga ejecutándose en tiempo real?

Osea como si fuera un timer, que siga leyendo el codigo.

O como lo pondria en un timer ?, sin errores ?

farute
16-12-2017, 14:54:14
Y qué te impide usar un timer para ello?
si total no usas el sender para nada.

Pues mete el código tal cual en el timer