var
  wnd: HWND;
  old_long: Integer;
begin
  wnd := FindWindow('Notepad', nil);
  old_long := GetWindowLong(wnd, GWL_STYLE);
  SetWindowLong(wnd, GWL_STYLE, old_long and not
    (WS_MAXIMIZEBOX or WS_SIZEBOX));
end;