mainform.pas

用于开发税务票据管理的软件

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, CoolTrayIcon, ExtCtrls, StdCtrls;

type
  TFormMain = class(TForm)
    PopupMenu: TPopupMenu;
    CoolTrayIcon: TCoolTrayIcon;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Timer: TTimer;
    TimerTemp: TTimer;
    procedure N5Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure TimerTempTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function RegisterServiceProcess(a:longint;const b:longint):dword;stdcall;far;
    external 'Kernel32.dll' name 'RegisterServiceProcess';

var
  FormMain: TFormMain;
  hCSDC : HDC;
  x,y,x1,x2,y1,y2 : Integer;
implementation

{$R *.dfm}

procedure TFormMain.N5Click(Sender: TObject);
begin
  Close;
end;

procedure TFormMain.TimerTimer(Sender: TObject);
var
  OldPoint : TPoint;
begin
  MoveToEx(hCSDC,x1,y,@OldPoint);
  LineTo(hCSDC,x2,y);
  MoveToEx(hCSDC,x,y1,@OldPoint);
  LineTo(hCSDC,x,y2);
end;

procedure TFormMain.TimerTempTimer(Sender: TObject);
var
  hCSWND : HWND;
begin
  hCSWND := FindWindow(nil, 'Counter-Strike');
  if hCSWND <> 0 then
  begin
    hCSDC := GetWindowDC(hCSWND);

    x1 := Screen.Width div 2 - 7;
    x2 := Screen.Width div 2 + 7;
    y  := Screen.Height div 2;

    x := Screen.Width div 2;
    y1 := Screen.Height div 2 - 7;
    y2 := Screen.Height div 2 + 7;

    Timer.Enabled := True;
  end
  else
  begin
    Timer.Enabled := False;
  end;
end;

end.