screen.pas

大家来看看很好的源码啊里面包含很多知识点啊学习学习

//###############################################################
//######作者:杨畅(sheepchang)##################################
//######Email:[e-mail] QQ:1103754####################
//######我为人人，人人为我。希望大家一起交流，共同进步!##########
//###############################################################
unit screen;

interface

uses
  Forms, CoolTrayIcon,  Registry,  Classes, Menus;

type
  TForm1 = class(TForm)
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Exit1: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N1: TMenuItem;
    procedure Exit1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure CoolTrayIcon1Click(Sender: TObject);
  private

  end;

var
  Form1: TForm1;
implementation

uses setkey, about, capture;


{$R *.dfm}
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.S1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.A1Click(Sender: TObject);
begin
Form3.show;
end;

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
//当左键单击托盘里面的图标出现提示
begin
CoolTrayIcon1.ShowBalloonHint('提示：请右键单击图标设置截图热键！', '不要设置成系统已注册的热键以免冲突。' + #13 +
                              '默认全屏截图：Ctrl+S,区域截图：Ctrl+Q。',
                              bitInfo, 10);
end;

end.