Código Delphi
[-]
var
VMess : HWND;
procedure TForm1.FormCreate(Sender: TObject);
begin
VMess := FindWindow(nil, 'Windows Live Messenger');
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Tam: TRect;
begin
if vMess <> 0 then
begin
GetWindowRect(VMess, Tam);
Form1.Caption := 'Posición: ' + InttoStr(Tam.Left) + ' ; ' + IntToStr(Tam.Top) + ' - '
+'Tamaño: ' + IntToStr(Tam.Right - Tam.Left) + 'x' + IntToStr(Tam.Bottom - Tam.Top);
end
end;
Saqué el FindWindow del timer para que no lo ejecutase case 50 milisegundos, pero si se cierra y abre el Windows Live Messenger mientras tu programa esté activo será mejor que lo vuelvas a meter.