TFileStream 占用 问题

[MonkeyKingMKY]

这个问题 实在是 很奇怪，寻求 大家的 帮助 。老妖 也一定来 帮一下忙啊~
使用的 编译器是 C++Builder 6

void __fastcall TForm1::btn3Click(TObject *Sender)
{
	if ( !dlgOpen1->Execute() )
	{	return;	}
	
	TFileStream	*fs = new TFileStream( dlgOpen1->FileName, fmOpenRead );
	delete fs;
	fs = NULL;
}

当 使用 这个函数 去 打开 一个文件 比如
D:\test\testFile.txt

只要 程序 还在 运行，
D:\test
这个文件夹 就 处于 占用状态，
不知道 大家 是 怎么解决的~~~~~~~

[sololie]

简单的话直接这样就得了

void __fastcall TForm1::btn3Click(TObject *Sender)
{
	if ( !dlgOpen1->Execute() )
	{	return;	}
	
	TFileStream	*fs = new TFileStream( dlgOpen1->FileName, fmOpenRead );
	delete fs;
	fs = NULL;
       SetCurrentDir("c:\\");  // 加一句，改变当前目录
}

[宝龙哥]

这个方法已经很好了，我在程序里面也是这样用的

[MonkeyKingMKY]

Thank you 这么快的解答 尝试了 一下 确实 可以解决 问题，看起来 TOpenDialog 的 调用 会改变 当前执行目录 但是 总感觉 有一些 不爽啊~ 又没哟 更加 完美的 解决办法呢？ 继续请教

[MonkeyKingMKY]

对于 这种 基础类 肯定有 比较 “优雅的” 解决办法~ 但是 目前 我没有找到~

[ccrun.com]

优雅的解决办法就是设置一下OpenDialog的选项：

dlgOpen1->Options = dlgOpen1->Options << ofNoChangeDir;

一般人我不会告诉他的。

[MonkeyKingMKY]

就是 这个啊~~~~ 多谢 老妖~~