API - setando o tamanho de outros aplicativos

Top  Previous  Next

{the following code places notepad directly underneath the running

application:}

 

var

  hw: HWND;

  wp: TWindowPlacement;

begin

  hw := FindWindow('Notepad', nil);

  if hw <> 0 then

    GetWindowPlacement(Handle, @wp);

  SetWindowPlacement(hw, @wp);

end;