Ver Mensaje Individual
  #5  
Antiguo 17-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Neftali Ver Mensaje
Utilizando FindWindows, supongo que puedes acceder a la ventana que pertenece a la aplicación que buscas. Una vez que tengas el Handle de la ventana, puedes probar con otras funciones de la PAI del mismo grupo tipo, GetWindwPlacement, GetWindowRect,... para obtener las coordenadas.
Totalmente de acuerdo con Neftali, usando FindWindow y GetWindowPlacement se pueden obtener esos valores en pocas líneas y de forma sencilla:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Handle: THandle;
 wpPtr: TWindowPlacement;
 R: TRect;
begin
   Handle:= FindWindow(PChar('notepad'),nil);
   if Handle <> 0 then
   begin
     GetWindowPlacement(Handle, @wpPtr);
     R:= wpPtr.rcNormalPosition;
     ShowMessage('Left: '+IntToStr(R.Left)+#10#13+
                 'Top: '+IntToSTr(R.Top)+#10#13+
                 'Right: '+IntToStr(R.Right)+#10#13+
                 'Bottom: '+IntToStr(R.Bottom))
   end
end;

Saludos.
Responder Con Cita