有没有这方面的方法?
解决方案 »
- 怎样用delphi编写类似pascal的能输入参数的程序呀?急!!!
- 新手问题:怎么传入一个TADOTable类型的参数.
- 求过程建模的相关概念,步骤,方法。
- 大家是怎样做启动画面的
- !!!求教问题:关于ClientDataSet1属性。大家都进来帮忙!!!
- 有一个日期型字段(是paradox)数据库,怎样将年和月分别转换为数值呢?
- 请问大家那里有关于SQL和DELPHI的书下载?
- 数据库查询
- 我下载了Delphi5_ADO_MTS_COM_design ,怎么Acrobat Reader 5.0打不开!!!说什么没有中文包
- 关于MapObjects 2.0
- 请教数据实时写入TXT的问题
- 如何像百度这样,输入字符,显示相关内容
然后就可以看见许多隐藏表和系统表
其中有一个MSysObjects表,里面记录时间
查询它试一试另外先要在工具->安全->用户权限里设定这个表的权限,默认是不开放读写权限的
功能 返回文件创建的时间
说明 文件不存在则返回-1
参考 function Windows.FindFirstFile
例子
///////Begin FileAge,DateTimeToStr,FileDateToDateTime
procedure TForm1.Button1Click(Sender: TObject);
begin
SpinEdit1.Value := FileAge(Edit1.Text);
if SpinEdit1.Value > 0 then
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
end;
///////End FileAge,DateTimeToStr,FileDateToDateTime
首部 function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas
功能 返回文件的修改时间
说明 读取失败则返回-1
参考 function Windows.GetFileTime
例子
///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
FileClose(I);
end;
///////End FileGetDate
────────────────────────
首部 function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas
首部 function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能 返回设置文件的修改时间
说明 修改成功则返回0
参考 function Windows.SetFileTime
例子 SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
────────────────────────
首部 function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能 返回文件的属性
说明 读取失败则返回$FFFFFFFF
参考 function Windows.GetFileAttributes
例子 SpinEdit1.Value := FileGetAttr(Edit1.Text);
────────────────────────
首部 function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能 返回设置文件的属性
说明 设置成功则返回0
参考 function Windows.SetFileAttributes
例子 SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value);