标签：截屏

unit ALScreenSnap; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI; type TALScreenSnap = class(TComponent) private OldWndProc, NewWndProc: Pointer; fActive: Boolean; fThreshold: Integer; procedure NewWndMethod(var Msg: TMessage); public constructor Create(AOwner: TCRead More…