DragFullWindows

윈도우 효과에서 

[마우스로 끄는 동안 창 내용 표시]를 켜고 끌 수 있는 함수 입니다.

SPI_SETDRAGFULLWINDOWS 외에 다른 지정된 상수를 이용하면

다른 효과도 컨트롤 할 수 있습니다.

function TForm1.ActivateDragFullWindows(Activate: boolean): boolean;

var

  IntActive: byte;

begin

  Result := False;

  try

    if Activate then

      IntActive := 1

    else

      IntActive := 0;

    Result := SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, IntActive, nil, 0);

  except

  end;

end;