Anderes Programm verschieben und vergrößern

[HolgerX]

Hmm...

Zitat von sakura:

Delphi-Quellcode:

function MoveNotepad(const Left, Top, Width, Height: Integer): Boolean;
var
  FindWindowRec: TFindWindowRec;
begin
  FindWindowRec.ModuleToFind := 'c:\windows\system32\notepad.exe';
  FindWindowRec.FoundHWnd := 0;
  EnumWindows(@EnumWindowsCallback, integer(@FindWindowRec));
  Result := FindWindowRec.FoundHWnd <> 0;

  if Result then
    SetWindowPos(FindWindowRec.FoundHWnd, 0, Left, Top, Width, Height, 0);
end;

Oder auch (etwas) Kürzer

Delphi-Quellcode:

function MoveNotepad(const Left, Top, Width, Height: Integer): Boolean;
var
  hWindow: HWND;
begin
  hWindow := FindWindow('notepad',nil);
  if hWindow > 0 then
    SetWindowPos(hWindow, 0, Left, Top, Width, Height, 0);
end;