【控件功能】我来做练习-判断星期

判断星期

提示：这里可以添加技术概要

核心源码

function GetWeek: string;
var
mytime:_SYSTEMTIME;
begin
GetLocalTime(mytime);
case mytime.wDayOfWeek of
0: Result:=‘星期日’;
1: Result:=‘星期一’;
2: Result:=‘星期二’;
3: Result:=‘星期三’;
4: Result:=‘星期四’;
5: Result:=‘星期五’;
6: Result:=‘星期六’;
end;
end;

procedure TForm2.bsSkinButton1Click(Sender: TObject);
var
s:string;
begin
s:=GetWeek;
edit1.Text:=s;

//ShellExecute(0, ‘open’, ‘notepad.exe’,PWideChar(ExtractFilePath(Application.Exename)+‘Help.rtf’), ‘’, SW_SHOWNORMAL)

end;