unit1.pas

hook简单应付用,希望可以给大家一些帮助. 谢谢大家,我要下载一个东西,所以传一个源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TFrmSGHooked = class(TForm)
    SG: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSGHooked: TFrmSGHooked;

implementation

{$R *.dfm}

const
  S: WideString = '使用剪贴板观察器和观察链剪贴板观察器是一个显示剪贴板当前' +
                  '内容的窗口通常它应该至少能显示三种普通格式的内容文字位图' +
                  '元文件剪贴板观察链是一系列相互独立的剪贴板观察窗口它们都' +
                  '能够接受当前发送到剪贴板的内容监事历史唯物主义准观察员国';

procedure TFrmSGHooked.FormCreate(Sender: TObject);
var
  X, Y, Len: Integer;
begin
  Randomize;
  Len := Length(S);
  for Y := 1 to SG.RowCount - 1 do
    SG.Cells[0, Y] := Format('行%d', [Y]);
  for X := 1 to SG.ColCount - 1 do
    SG.Cells[X, 0] := Format('列%d', [X]);
  for Y := 1 to SG.RowCount - 1 do
    for X := 1 to SG.ColCount - 1 do
    begin
      SG.Cells[X, Y] := S[Random(Len)+1];
      SG.Cells[X, Y] := SG.Cells[X, Y] + S[Random(Len)+1] +
                        S[Random(Len)+1] + S[Random(Len)+1];
    end;
end;

end.