主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

你可以阻止访问该文件夹,如fmShareExclusive,但对于文件夹??? 找到类似的分支


Art   (2001-12-18 15:12) [0]

你可以阻止访问该文件夹,如fmShareExclusive,但对于文件夹???



Алексей Петров   (2001-12-18 16:08) [1]

使用CreateFile,您可以打开一个目录,包括。 和独家。

试试吧......

MSDN中的详细信息



cdaDmitriy   (2001-12-18 17:20) [2]

> Alexey Petrov©
源码使用CreateFile for
使用CreateFile可以打开目录吗? ...



Алексей Петров   (2001-12-18 17:23) [3]

> cdaDmitriy©(18.12.01 17:20)
阅读MSDN。
来源我在琐碎的案例中没有引用。



Art   (2001-12-18 17:25) [4]

我肯定会尝试,但是从MSDN的话来说,有些东西是melkosoftovym,而我正在谈论Delphi !!



cdaDmitriy   (2001-12-18 17:40) [5]

> Alexey Petrov©我不引用琐碎的案例?
我试过......试着举个例子。



cdaDmitriy   (2001-12-18 17:47) [6]

S1:=“D:\ ICON \”; 连 和独家
H:=整数(CreateFile(PChar(S1),GENERIC_READ, 0 ,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0));
label1.Caption:= inttostr(H);
如果H <0则引发EFCreateError.CreateResFmt(@S,[S1]);




Art   (2001-12-18 17:53) [7]

来自UTD的cdaDmitriy你得到了它,我对代码的性能毫无疑问,但是要查看有关目录的内容



cdaDmitriy   (2001-12-18 17:59) [8]

帮助CreateFile并尝试过



Art   (2001-12-18 20:24) [9]

你们这些人或者是傻瓜,或者不知道如何阅读。有人问一个问题是锁定文件夹,访问它。 而你对我的文件???起初我不相信它,但后来我发现了一切,这里写的所有内容,除了我的问题,都是胡说八道!



Anatoly Podgoretsky   (2001-12-18 20:28) [10]

是的,你认为将来会怎样回答你,我不想检查上面的代码,但是下一个文件夹提示同一个文件。



Art   (2001-12-18 21:39) [11]

“Natholii,那我就是个笨蛋!!! ? 都在这里!!! џ我尝试了上面的代码并自己编写并没有经历任何事情,如果你指定一个目录,没有任何改变,如果文件全部,那么一切正常,文件被锁定! ? 怎么处理这个?



Алексей Петров   (2001-12-19 08:41) [12]

另一个暗示:
在“cdaDmitriy©(18.12.01 17:47)”给出的代码中,2错误。
1。 在目录名称中,最后的“\”是多余的。
2。 应检查INVALID_HANDLE_VALUE,而不是<0,检查文件是否打开。 在当前版本的Delphi和WinAPI Integer(INVALID_HANDLE_VALUE)当然是<0,但这可以改变,理论上可能会出现正确的句柄,例如Integer(Handle)<0。
3。 要检查WinAPI错误,编写起来会更方便
Win32Check(H <> INVALID_HANDLE_VALUE)

> Art©(18.12.01 17:25)
如果MSDN感到困惑 - 请参阅SDK中的帮助,这是MSDN的实际截断版本。 从Delphi中,所有API都被精美地调用。



cdaDmitriy   (2001-12-19 09:31) [13]

> Alexey Petrov©

1。 在目录名称中,最后的“\”是多余的。
这不是多余的,而是多余的:

lpFileName的对象

指向可以用于创建或打开的以null结尾的字符串。

如果* lpFileName是路径,则默认字符串大小限制为MAX_PATH字符。 此函数用于解析路径。
Windows NT:您可以使用CreateFile和Prepend“\\?\”的路径到路径。 “\\?\”告诉函数关闭路径解析。 32,000 Unicode字符长。 您必须使用此技术的完全限定路径。 这也适用于UNC名称。 “\\?\”作为路径的一部分被忽略。 例如,“\\?\ C:\ myworld \ private”被视为“C:\ myworld \ private”,“\\?\ UNC \ tom_1 \ hotstuff \ coolapps”被视为“\\ tom_1 \ hotstuff” \ coolapps。“

2。 看单元类的实现; 虽然
Win32Check(H <> INVALID_HANDLE_VALUE)更可靠。


{} TFileStream的

构造函数TFileStream.Create(const FileName:string; Mode:Word);
开始
如果Mode = fmCreate那么
开始
FHandle:= FileCreate(FileName);
如果FHandle <0那么
提出EFCreateError.CreateResFmt(@SFCreateError,[FileName]);
结束其他
开始
FHandle:= FileOpen(FileName,Mode);
如果FHandle <0那么
引发EFOpenError.CreateResFmt(@SFOpenError,[FileName]);
结束;
结束;

Art©如果您想写发送,一切正常



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.59 MB
时间:0.027 c
6-22277年
prosof
2001-10-02 10:21
2002.01.08
通过IP定义网络上每个通信者的流量。


1-22125年
Dimass
2001-12-19 23:34
2002.01.08
请帮帮我......


14-22367年

2001-11-08 14:56
2002.01.08
去哪儿读书?


14-22414年
wHammer
2001-11-12 10:48
2002.01.08
Delphi 5和(或(xor))C ++ Builder 5?


3-21958年
bk
2001-12-05 19:15
2002.01.08
Pomogite Kto Moget ADO Unikal nomer





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский