program SetDragFullWindows;

uses
  windows;

var
	r : bool;

function AlreadyRunning(const AIdentifier: string): Boolean;
begin
  CreateMutex(nil, False, PChar(AIdentifier));
  AlreadyRunning := GetLastError = ERROR_ALREADY_EXISTS;
end;

begin
	if AlreadyRunning('SetDragFullWindowsApp') then Halt;

	while 1=1 do
    begin
    	SystemParametersInfo( SPI_GETDRAGFULLWINDOWS, 0, @r, SPIF_SENDCHANGE);
        if not r then begin
        	SystemParametersInfo( SPI_SETDRAGFULLWINDOWS, 1, Nil, SPIF_SENDCHANGE);
        end;
        sleep(10*1000);
    end;
end.