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.