systemtime.pas

来自「Demo Name: Main Author: Ted Rybicki」· PAS 代码 · 共 68 行

unit SystemTime;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type

TSysTime = class(TObject)
private
  FStartDateTime : TDateTime;
protected

public
  constructor Create; virtual;
  destructor Destroy; override;
  procedure SetOldTime;
published

end;

implementation

constructor TSysTime.Create;
begin
  FStartDateTime := Now;
end;

destructor TSysTime.Destroy;
var
  NewTime : TSystemTime;
begin
  DateTimeToSystemTime(FStartDateTime, NewTime);
  SetSystemTime(NewTime);
end;

procedure TSysTime.SetOldTime;
var
  NewTime : TSystemTime;
begin
  // set time to an abitrary date/time
  NewTime.wYear         := 1996;
  NewTime.wMonth        := 1;
  NewTime.wDayOfWeek    := 1;
  NewTime.wDay          := 8;
  NewTime.wHour         := 5;
  NewTime.wMinute       := 32;
  NewTime.wSecond       := 22;
  NewTime.wMilliseconds := 10;

  SetSystemTime(NewTime);

{
    WORD wYear;
    WORD wMonth;
    WORD wDayOfWeek;
    WORD wDay;
    WORD wHour;
    WORD wMinute;
    WORD wSecond;
    WORD wMilliseconds;
}
end;

end.