在工程文件中application.run语句之前加入下面语句,可不让主form在运行时显示:
application.showmainform := false; 【程序编程相关:利用Delphi中的画布画树】 【推荐阅读:DELPHI中动态获得SQLSERVER】 【扩展信息:Pascal精要笔记】显示设置时间的对话框
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; mydaytable : tdaytable; tmpbool : boolean; begin decodedate(adate, myyear, mymonth, myday); tmpbool := isleapyear(myyear); mydaytable := monthdays[tmpbool]; result := mydaytable[mymonth]; end;... 下一页