2008年11月13日
解决自动更新因为EXE文件正在运行而失败的问题
摘要： function IsFileInUse(FName:string):Boolean; var HFileRes:HFILE; begin Result:=False; if not FileExists(FName) then Exit; HFileRes:=CreateFile(PChar(FName),GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); Result:=(HFileRes=INVALID_HANDLE_VALUE); if not Result then CloseHa. 阅读全文
posted @ 2008-11-13 15:20 delphi中间件 阅读(289) 评论(0) 推荐(0)