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