unit1.~pas

计时器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, shellapi,Buttons, StdCtrls,inifiles, Gauges{, AMClock};

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
      procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label3Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);

  private
    { Private declarations }
  public
  function GetExePath:String;

   { Public declarations }
  end;

var
  Form1: TForm1;
  test:tinifile;
  teststring:string;
  i,sc,temp,total,err,time:integer;
  erra:array[1..100]of string;

implementation



{$R *.DFM}

function Tform1.GetExePath:String;
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+'\';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
animatewindow(handle,1000,15);
label2.Caption:='拨号';
AppendMenu (GetSystemMenu (Handle, FALSE),
    MF_SEPARATOR, 0, '');
  AppendMenu (GetSystemMenu (Handle, FALSE),
    MF_STRING, 100, '&About...');
i:=1;
sc:=0;
time:=0;
timer1.Enabled:=false;
label3.Enabled:=false;
test:=tinifile.Create(getexepath+'test.ini');
form1.Caption:='时间计时器'+'---'+test.ReadString('info','class','');
if test.ReadString('info','class','')='此处放计时器名称' then form1.Caption:='Test System';
end;

procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label3.Font.Color:=clred;
end;
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label2.Font.Color:=clred;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
time:=time+1;
label4.Caption:='通话中...已用时间：'+inttostr(time div 60)+'分'+inttostr(time mod 60)+'秒';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label3.Font.Color:=clwhite;
label2.font.Color:=clwhite;
end;

procedure TForm1.Label3Click(Sender: TObject);
var
  minute,second:integer;
begin
timer1.Enabled:=false;
minute:=time div 60;
second:=time mod 60;
test.writeInteger('time','minues',minute);
test.writeinteger('time','seconds',second);
test.writeinteger('time','count',time);
test.writestring('time','end',timetostr(now));
test.WriteString('time','code',edit9.text);
test.WriteString('time','tel',edit10.text);
test.WriteString('time','money',edit14.text);
application.messagebox(pchar('本次通话结束，你一共用时间'+#13+#13+'      '+inttostr(minute)+'分'+inttostr(second)+'秒'),0);
{//
edit1.text:=test.ReadString('time','begin','');
edit2.text:=test.ReadString('time','end','');
edit3.text:=test.ReadString('time','minues','');
edit4.text:=test.ReadString('time','seconds','');
// }
close;
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
timer1.Enabled:=true;
test.WriteString('time','begin',timetostr(now));
label3.Enabled:=true;
label2.Hint:=label2.Caption;
end;
end.