Autor
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.
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.
En línea
