unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function  GetWeekNo:string;

const

 WeekList:Array [0..6] of ShortString = ('周日','周一','周二','周三','周四','周五','周六');

begin

  Result := IntToStr(DayOfWeek(Now)-1);

end;

function GetWeek: string;

var

  mytime:SYSTEMTIME;

begin

  GetLocalTime(mytime);

  //Result := WeekList[mytime.wDayOfWeek];

  case mytime.wDayOfWeek of

    0: Result:='周日';

    1: Result:='周一';

    2: Result:='周二';

    3: Result:='周三';

    4: Result:='周四';

    5: Result:='周五';

    6: Result:='周六';

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Caption:=GetWeek+' '+GetWeekNo;

end;

end.