如何取得可执行文件最近修改日期(100分)

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #1

如何取得可执行文件最近修改日期

 

Q

qiu5211

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #2

读文件属性，属性里面都有

 

R

rwlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #3

function GetModifyDate(FileName:String):TDateTime;
var
　h: THandle;
　Struct: TOFSTRUCT;
　lastwrite: integer;
　t: TDateTime;
begin
　h:=OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE);
　try
　　if h<>HFILE_ERROR then
　　begin
　　　lastwrite:=FileGetDate(h);
　　　Result:= FileDateToDateTime(lastwrite);
　　end;
　finally
　　_lclose(h);
　end;
end;


这是函数，，直接用

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #4

qiu5211
麻烦您稍微透露一点信息，Delphi如何实现，谢谢！

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #5

见鬼....

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #6

谢谢rwlin
我想取得正在执行的程序的最后修改时间，因为是一个网络环境，可能某些客户端运行的不是最新的程序，需要判别一下。

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #7

FormatDateTime(Model,CovFileDate(文件.FindData.ftLastWriteTime)));

 

Q

qiu5211

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #8

GetFileAttributesEx

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #9

谢谢各位，让我先试试。

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #10

忘了 先定义下：
TFileTimeType = (fttCreation, fttLastAccess, fttLastWrite);

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #11

先用
Application.ExeName替代这两句均出错，Record,object or class required
FormatDateTime(Model,CovFileDate(文件.FindData.ftLastWriteTime)));
和
GetFileAttributesEx

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #12

先用
Application.ExeName替代这两句均出错，Record,object or class required
FormatDateTime(Model,CovFileDate(文件.FindData.ftLastWriteTime)));
和
GetFileAttributesEx

 

铁

铁盒子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #13

FormatDateTime('YYYY-MM-DD hh:mm:ss',FileDateToDateTime(FileAge(Application.ExeName)));

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #14

没试我的？

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #15

rwlin的办法可行，hs-kill的或许也可以，以简便的为好。

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #16

又看到铁盒子的最简便，可无法改变，谢谢铁盒子。

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #17

或许可以？ 连试都没试......算我没说过