2015年10月22日
delphi 获取windows任务栏的高度
摘要： function GetWinTrayWnd: Integer; // 获取windows任务栏高度var TrayWnd: HWnd; //任务栏句柄 Rec : TRect;begin TrayWnd := FindWindow('Shell_TrayWnd',nil)... 阅读全文
posted @ 2015-10-22 21:14 王云盼 阅读(347) 评论(0) 推荐(0) 编辑
获取当天是星期几，计算两个日期相隔时间
摘要： function TFormMain.GetWeek: string;var date:SYSTEMTIME;begin GetLocalTime(date); case date.wDayOfWeek of 0:Result:='星期天'; 1:Result:='星期一'; ... 阅读全文
posted @ 2015-10-22 21:13 王云盼 阅读(289) 评论(0) 推荐(0) 编辑
十六进制转换成十进制函数
摘要： {*------------------------------------------------ 十六进制转换成十进制函数 @param @return-------------------------------------------------}function HexToInt(s... 阅读全文
posted @ 2015-10-22 21:12 王云盼 阅读(937) 评论(0) 推荐(0) 编辑
循环控件
摘要： 今天看了以前刚学D写的一个程序，发现好多垃圾代码，我有本事把Edit一个一个的写下去Edit1.MaxLength := 2;Edit2.MaxLength := 2;Edit3.MaxLength := 2;Edit4.MaxLength := 2;Edit5.MaxLength := 2;Edi... 阅读全文
posted @ 2015-10-22 21:00 王云盼 阅读(206) 评论(0) 推荐(0) 编辑