监视显示器的改变

procedure WMDisplayChange(var Message:TMessage); message WM_DISPLAYCHANGE; begin
ShowMessage('Changes in display detected!');
inherited;
end;