怎样检测某个dll或文件正在被使用

yhtang 2004-09-23 08:54:09
如题
...全文
230 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
yhtang 2004-09-23
  • 打赏
  • 举报
回复
能不能知道是哪个程序在用
梅青松 2004-09-23
  • 打赏
  • 举报
回复
var
q: integer;
begin
if FileExists(Edit1.Text) then //文件是否存在
begin
q := FileOpen(Edit1.Text, fmShareExclusive);
if q <= 0 then
Showmessage( '文件:' + Edit1.Text +
#10#13 +
'打开时失败,可能文件正在被使用。')
end;
end
梅青松 2004-09-23
  • 打赏
  • 举报
回复
var
q: integer;
begin
q := FileOpen(Edit1.Text, fmShareExclusive);
if q <= 0 then
Showmessage( '文件:' + Edit1.Text +
#10#13 +
'打开时失败,可能文件正在被使用。')
end
lzy6204 2004-09-23
  • 打赏
  • 举报
回复
var
q: integer;
begin
Q := FileOpen(Edit1.Text, GENERIC_WRITE);
if Q <= 0 then
Showmessage( '文件:' + Edit1.Text +
#10#13 +
'打开时失败,可能文件正在被使用。')
end
断肠人在天涯 2004-09-23
  • 打赏
  • 举报
回复
不太清楚,应该从内存方面下手,比如查找内存中是否有模块句柄什么的,关注、学习!
chenxzh88 2004-09-23
  • 打赏
  • 举报
回复
楼上的说的很轻松吗。能不能说的详细点
涩色滴人 2004-09-23
  • 打赏
  • 举报
回复
尝试以独占方式打开,失败则是正在被使用。
yangfan369 2004-09-23
  • 打赏
  • 举报
回复
也不知道,GZ,做个标记
Bellamy 2004-09-23
  • 打赏
  • 举报
回复
哪个程序在用?不知道实现,好像操作系统也只是报文件正在使用!
yhtang 2004-09-23
  • 打赏
  • 举报
回复
???
chenminghong 2004-09-23
  • 打赏
  • 举报
回复
?????
梅青松 2004-09-23
  • 打赏
  • 举报
回复
能不能知道是哪个程序在用
---不能
yhtang 2004-09-23
  • 打赏
  • 举报
回复
?????

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧