Gracias a la aydua de johnny solucione mi problema, ahora les pongo el codigo
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Ventana := FindWindow(nil,'Buscaminas');
If Ventana = 0 then begin
MessageDlg('Tienes que abrir el buscaminas. Para hacerlo apreta el botón.', mtwarning,[mbOK],0)
end
else
ThreadId := GetWindowThreadProcessId(Ventana,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(9);
WriteProcessMemory(HandleWindow,ptr(010056),buf,NumberOfBytes,write);
FreeMem(buf);
closehandle(HandleWindow);
end;
Vi este codigo en un foro, serviría para lo que expliqué al principio, pero solo entiendo parte de él y no logro hacerlo funcionar. Me gustaría que comentaran el código para lograr entenderlo. Gracias.