Detectar ventana activa y variar su posición

[ecfisa]

Hola farute.

que se sea que esté en primer plano de windows

El ejemplo que hice no es exáctamente lo que solicitas ya que tenés que indicarle la aplicación y puede no ser la que esté en primer plano, pero supongo que te va a dar una idea de como implementarlo.

Código Delphi [-]
procedure SetWndCoord(WndName: string; X,Y: integer);
var
  Handle: THandle;
  wpPtr: TWindowPlacement;
  T: TRect;
begin
  Handle:= FindWindow(PChar(WndName), nil);
  if Handle <> 0 then
  begin
    GetWindowPlacement(Handle, @wpPtr);
    T:= wpPtr.rcNormalPosition;
    Inc(T.Left, X);
    Inc(T.Top, Y);
    wpPtr.rcNormalPosition:= T;
    SetWindowPlacement(Handle, @wpPtr);
  end
  else
    raise Exception.Create('Aplicación no encontrada');
end;

Llamadas de ejemplo:

Código Delphi [-]
  SetWndCoord('notepad',20,30);
  SetWndCoord('notepad',-15, -7);

Un saludo.