2017年7月13日
delphi 调用外部exe ，并等待调用程序运行结束
摘要： function TFmain.RunWait(FileName: string; Visibility: Integer): THandle;var zAppName: array[0..512] of Char; zCurDir: array[0..255] of Char; WorkDir: 阅读全文
posted @ 2017-07-13 21:57 夏天的西瓜君 阅读(2641) 评论(0) 推荐(0)
delphi 取星期时间
摘要： function TFmain.GetWeek(xday:Integer): string;begin case SysUtils.DayOfWeek(now+xday) of 1: Result := '星期天'; 2: Result := '星期一'; 3: Result := '星期二'; 4 阅读全文
posted @ 2017-07-13 21:47 夏天的西瓜君 阅读(1019) 评论(0) 推荐(0)