关闭BDE代码

Question

我们有一个传统的应用程序使用BDE。 （考虑到它的年龄，BDE继续出色地工作）。

有些时候，我们的应用程序需要处理的文件夹（重命名，移动等），但.NET或.LCK文件保持打开的文件夹中，防止这一点。我们无法找到任何仍在我们的代码中打开的表或查询。

除了有我们的程序外壳到非BDE的程序和终止本身，是给我们关闭BDE，这将解开这些文件程序上的方式。

标准免责声明：是的，BDE是死的。是的，我们应该迁移到更现代的数据库。是的，有一天BDE不再适用了。随着近200万行的遗留代码，迁移（甚至带有几分插接兼容平台的Sybase一样优势）是不是一个便宜的项目，这就是为什么我们没有这么做过......

Answer 1

通常你不要”没有任何具体的东西可以关闭BDE。
所有BDE会话都在DBTables的Finalization部分中释放。这将关闭一切，并且当违约会话被销毁时，它将会呼叫DbiDLLExit，如果需要的话，然后DbiExit，都来自BDE单元。

现在，如果你想关闭BDE 之前，我建议你做模拟定稿，然后DBTables的初始化部分（免责声明：有限的测试，慎用...），如：

procedure BDEKill; 
begin 
// from finalization 
    Sessions.Free; 
    Sessions := nil; 
end; 

procedure BDEReStart; 
begin 
// from initialization 
    Sessions := TSessionList.Create; 
    Session := TSession.Create(nil); 
    Session.SessionName := 'Default'; { Do not localize } 
end; 

并用它喜欢：

BDEKill; 
try 
    // move my folders 
finally 
    BDEReStart; 
end; 

Answer 2

解锁文件是另一个可能的（极端）解决您的问题：

我建议你学习opc0de的File Unlock的源代码。

---

报价：

很多时候文件不能被删除，因为它是由另一个 应用程序使用。该工具允许您解锁该文件以进行删除。

---

的外观和感觉：

---

特点：

• Unlo CK文件
• 解锁&删除文件
• 查看哪些进程使用的文件
• 终止其使用文件

过程

---

下载链接：

• FileUnlock.rar