在Delphi中,怎样用文本框调出系统运行的时间?多谢!

Question

在Delphi中,怎样用文本框调出系统运行的时间?多谢!

Answer 1

调用系统当前时间是 edit1.Text:=datetostr(Time);//Time是 短时间,  Now是 2008-5-25 17:22:21 Sunday ,Data是当前日期如果是系统运行花了多少秒就不知道了.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Start_Tick: Cardinal;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr((GetTickCount - Start_Tick) div 1000) + '秒';
end;initialization
  Start_Tick := GetTickCount;end.