在工程文件中Application.Run语句之前加入下面语句,可不让主Form在运行时显示:
Application.ShowMainForm := False;
显示设置时间的对话框
ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);
FormatDateTime('yyyy mmmm',MyDate) 返回如
//获得日期 Date := Trunc( DateTime );
//获得时间 Time := Frac( DateTime );
计算任意月份的天数
procedure TForm1.Button10Click(Sender: TObject);
function DaysInMonth(ADate:TDateTime):Integer;
var MyYear,MyMonth,MyDay : Word;
...[ 查看全文 ]