- 博客(2)
- 资源 (4)
- 收藏
- 关注
原创 delphi 获取文件创建,修改时间
<br />function CovFileDate(Fd:_FileTime):TDateTime;<br />{ 转换文件的时间格式 }<br />var<br />Tct:_SystemTime;<br />Temp:_FileTime;<br />begin<br />FileTimeToLocalFileTime(Fd,Temp);<br />FileTimeToSystemTime(Temp,Tct);<br />CovFileDate:=SystemTimeToDateTime(Tct);<b
2011-04-07 15:56:00 4005
原创 delphi 获取鼠标当前位置的相对坐标
delphi 获取鼠标当前位置的相对坐标unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TS
2011-04-07 15:46:00 2506
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人