简单问题(送分)

Question

我想让label1 显示 时间  
也就是 我启动软件后 TIME 中计算 我启动软件后 运行了多少时间  格式是 X小时X分X秒

Answer 1

var
  Form1: TForm1;
  OldTime, NewTime: TSystemTime;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  GetSystemTime(NewTime);
  Label1.Caption := Format('%2d %2d %2d', [NewTime.wHour - OldTime.wHour, NewTime.wMinute - OldTime.wMinute, NewTime.wSecond - OldTime.wSecond]);
end;procedure TForm1.FormShow(Sender: TObject);
begin
  GetSystemTime(OldTime);
end;放个定时器 ,默认为一秒执行一次

Answer 2

分两次调用
GetTickCount函数求差值。

Answer 3

procedure TForm1.FormCreate(Sender: TObject);begin
  Label1.Caption := '';
  OldTime := now();
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  NewTime := now();
  Differ := NewTime - OldTime;
  Label1.Caption := TimeToStr(Differ);
end;

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  OldTime,NewTime,Differ:ttime;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin
  Label1.Caption := '';
  OldTime := now();
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  NewTime := now();
  Differ := NewTime - OldTime;
  Label1.Caption := TimeToStr(Differ);
end;end.

Answer 5

http://download.csdn.net/source/151157