Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: AlxSpy en 7 Julio 2011, 00:30 am



Título: [AYUDA] un codigo hecho en delphi
Publicado por: AlxSpy en 7 Julio 2011, 00:30 am
estoy iniciando en delphi y pues me puse a practicar tipos de datos y un par de apis , en una porcion del codigo que se encarga de buscar una ventana por su titulo tengo un problemilla:

un TButton, y 2 TEdit para el titulo a buscar y el otro para el HWND resultado.

Código:
procedure TForm1.Button3Click(Sender: TObject);
var
hwin :integer;
titulo :string;
begin
  titulo:= edit3.text;
  hwin:=FindWindow(nil,PAnsiChar(titulo));
  edit4.Text:=inttostr(hwin);   // aki sale la flecha
end;

end.

uso delphi7, miren al ejecutar con f9 ejecuta bien encontrando el titulo de la ventana q le indiquey me devuelve el HWND de la ventana en el edit, pero luego en el editor de codigo sale una flechita verde con un icono de "correcto" al lado de  la penultima linea:

Código:
edit4.Text:=inttostr(hwin)

y mi ventana se cuelga (no responde) , para poder  continuar voy al menu run/reset program y listo pero kisiera que deje de pasar esto, yo no he configurado nada y sale eso, y pasa que al kitar esa linea de codigo todo se ejecuta normal sin interrupcion, al ejecutar mi programa generado este se ejecuta normal y no se porque en el entorno delphi pasa eso , no se si la causa sea el codigo o el entorno, pero es muy molesto.


Título: Re: [AYUDA] un codigo hecho en delphi
Publicado por: d(-_-)b en 7 Julio 2011, 11:09 am
No comprendo lo que quieres hacer, tu codigo esta mal.

para buscar una ventana podria hacertlo asi.

Código
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. WinApp: HWND;
  4.  begin
  5.   WinApp := FindWindow('notepad', nil);
  6.  
  7.    if WinApp <> 0 then
  8.  
  9.   Edit1.Text := 'La ventana existe'
  10.  else Edit1.Text := 'La ventana no existe';
  11. end;
  12.  

EDIT: Mira este material, te puede interesar, la web es muy buena, hay muchos mas material de Delphi.
         http://www.swissdelphicenter.ch/torry/showcode.php?id=327

saludos...


Título: Re: [AYUDA] un codigo hecho en delphi
Publicado por: AlxSpy en 7 Julio 2011, 14:53 pm
jeje ejecuta con normalidad sin interrupciones eso es el problema entonces .
weno un edit es para poner la barra de titulo de la ventana a buscar y el otroe edit es para que el prog. devuelva el HWND de la ventana encontrada (para copiar/pegar ese valor).