Hola farute.
Cita:
|
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.