S
SuperJS
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟初学delphi6，发现一个文件用FileOpen＋共享只读可以打开，
但AssignFile+Reset却不行，所以小弟想看Reset的源函数，Reset的
定义是在System中的，但是我却只找到_ResetFile这个函数，我不知道是不是，
我先试了一下，他也是用Api的OpenFile来打开文件的，所以我想是不是可以改写
这个函数，让他可以用共享只读的方式打开文件。我改了一下参数，没有效果，
我在system中增加断点后也不会进入，所以我想问的是，是不是我找错了源函数，
还是在system中加断点根本就不会有效，请告之。
谢谢！！！！！！！！
另外我发现delphi6的一处错误！各位请看：
{$IFDEF MSWINDOWS}
const
; ShareTab: array [0..7] of Integer =
; ; (FILE_SHARE_READ OR FILE_SHARE_WRITE, ;// OF_SHARE_COMPAT ; ; 0x00000000
; ; ;0, ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;// OF_SHARE_EXCLUSIVE ;0x00000010
; ; ;FILE_SHARE_READ, ;出错处 ; ; ; ; ; ; ;// OF_SHARE_DENY_WRITE 0x00000020
; ; ;FILE_SHARE_WRITE, ; ; ; ; ; ; ; ; ; ; // OF_SHARE_DENY_READ ;0x00000030
; ; ;FILE_SHARE_READ OR FILE_SHARE_WRITE, ;// OF_SHARE_DENY_NONE ;0x00000040
; ; ;0,0,0);
出错的地方的定义和说明对不起来，到底那个是正确的呢！
但AssignFile+Reset却不行，所以小弟想看Reset的源函数，Reset的
定义是在System中的，但是我却只找到_ResetFile这个函数，我不知道是不是，
我先试了一下，他也是用Api的OpenFile来打开文件的，所以我想是不是可以改写
这个函数，让他可以用共享只读的方式打开文件。我改了一下参数，没有效果，
我在system中增加断点后也不会进入，所以我想问的是，是不是我找错了源函数，
还是在system中加断点根本就不会有效，请告之。
谢谢！！！！！！！！
另外我发现delphi6的一处错误！各位请看：
{$IFDEF MSWINDOWS}
const
; ShareTab: array [0..7] of Integer =
; ; (FILE_SHARE_READ OR FILE_SHARE_WRITE, ;// OF_SHARE_COMPAT ; ; 0x00000000
; ; ;0, ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;// OF_SHARE_EXCLUSIVE ;0x00000010
; ; ;FILE_SHARE_READ, ;出错处 ; ; ; ; ; ; ;// OF_SHARE_DENY_WRITE 0x00000020
; ; ;FILE_SHARE_WRITE, ; ; ; ; ; ; ; ; ; ; // OF_SHARE_DENY_READ ;0x00000030
; ; ;FILE_SHARE_READ OR FILE_SHARE_WRITE, ;// OF_SHARE_DENY_NONE ;0x00000040
; ; ;0,0,0);
出错的地方的定义和说明对不起来，到底那个是正确的呢！