[ecfisa]

Correcto jandro.

Y parametrizando un poco queda:

Código Delphi [-]
function GetWndCoord(WndName: string): Trect;
var
 Handle: THandle;
 wpPtr: TWindowPlacement;
begin
  Handle:= FindWindow(PChar(WndName),nil);
  if Handle <> 0 then
  begin
    GetWindowPlacement(Handle, @wpPtr);
    Result:= wpPtr.rcNormalPosition;
  end
  else
    raise Exception.Create('Aplicación no encontrada');
end;

Ejemplo llamadas:

Código Delphi [-]
var
  R: TRect;
begin
    R:= GetWndCoord('notepad');
   // ó 
   ShowMessage(IntToStr(GetWndData('notepad').Top));
end;

Saludos.