main.pas

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· PAS 代码 · 共 61 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ExtDlgs, ClipBrd;

type
  TMainForm = class(TForm)
    lblCaption: TLabel;
    lblClassName: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    lblRect: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    lblHandle: TLabel;
    speCapture: TShape;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    ScrollBox1: TScrollBox;
    imgResult: TImage;
    dlgSavePicture: TSavePictureDialog;
    btnCopyToClipBoard: TButton;
    tmrDelay: TTimer;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure speCaptureMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure btnCopyToClipBoardClick(Sender: TObject);
    procedure tmrDelayTimer(Sender: TObject);
  private
    FCapturing: Boolean;
    
    FOldWnd: HWND;
    procedure GrabImage(Wnd: HWND);
  public
    { Public declarations }
  end;
  
var
  MainForm: TMainForm;
  
implementation

uses xWindows;

{$R *.DFM}

procedure TMainForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
begin
  // 睦