Ayuda con código.
 

Estoy intentando hacer un programa que cambie el número de minas del buscaminas de windows. tengo el siguiente código. EDIT: No puedo usar los [code][\code], tampoco usar la INTRO. Puedo poner el código fuera de el marco? EDIT2: Gracias a la ayuda de Johnny pude solucionar en parte mi problema, les dejo este código que en teoría sirve para lo que quiero. Me gustaría que me lo explicaran.

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;

gracias

Leete la guia de estilo.

Código Delphi [-]
uses shellapi;
 
begin
shellexecute(0, 'open', 'http://www.clubdelphi.com/foros/guiaestilo.php', '', '', 5);
end;

Salu2

Cómo colocar TAG's: mirar imagen

Test:

Código Delphi [-]
procedure  Probando;
begin

end;

Ya no se de que manera decirte que no repitas hilos, ya jachguate te ha infraccionado por tu actitud (por haber triplicado la misma pregunta), en este hilo lo único que cambiaste es el título pero sigues con el tema del buscaminas.

Aquí puedes ver el hilo que te cerraron y donde se te ha infraccionado.

http://www.clubdelphi.com/foros/show...385#post251385

Ya leiste la guia de estilo?

Salud OS

en este hilo ya tengo el codigo... por eso lo abrí. Bueno... les explico; no me funciona la interfaz grafica? al escribir un men saje... Me sale la imagen de lo que tengo que apretar pero no me deja apretarlo... Es como una si tuvieran un Enabled False.

Y, volviendo a la pregunta de egostar... ¿Ya leíste la Guía de estilo?

Si quieres que alguien emplee parte de su tiempo en responderte, emplea de tu tiempo para redactar bien la pregunta.

Si dices que tienes un código, ponlo como te indicó Neftalí.

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.