操作文件的时候,可以独占。写入注册表时,可以用lock方法,但总是不算太好的
一个方法,不知道你为什么要锁定注册表呢?
一个方法,不知道你为什么要锁定注册表呢?
解决方案 »
- treeview 倒排序
- if GetVolumeInformation('c:', Buffer, SizeOf(Buffer), 请问这优代码的意思是什么
- 编译无法通过!出现错误NOT enough actual parameters?
- 请教:DBGridEh中出现LookUp下拉框的最少必要设置条件.
- 如何在edit的onchange事件中实现动态创建dbgrid检索数据?求助高手!
- 電子報表?我公司在總帳系統中要做個報表生成系統!最好能實現金碟或用友電子表格的功能!
- 1。请问如何实现自动关闭一个正在运行的应用程序?谢谢!
- 关于Dbgrid的问题?
- 如何写代码实现database连接超时(可以设定时间段)中止连接?
- 请教DELPHI中效率高的动态数组插入元素、追加元素的函数?急
- 17岁需要什么??
- 在DELPHI中关于网络方面问题?
to GWFXP(影): 考虑到冲突,需要这样作,请问如何操作文件时独占,写注册表时有lock方法吗?
procedure OpenForShare(const FileName: String);
var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName,mShareExclusive);
if FileHandle > 0 then
{valid file handle}
else
{Open error: FileHandle = negative DOS error code}
end;