Блокировка файла

← →
zdn © (2003-10-25 18:17) [0]

Мастера помогите!!!!
Существует блокированый файл созданный внешним приложением (конкретно 1С, конкретно вход пользователя), известно что при добавлениии 1С туда информации о пользователе он увеличивается на 1024 байта. Если же пользователь покинул 1С блок в файле остается, но область блока разблокируется.
И вопрос как просмотреть файл из внешней программы (Delphi) (не 1С) и найти эти разблокированые области??????
Программный код:

Memo1.Lines.Clear;
if FileExists(FileName) then begin
try
hFile:=FileOpen(SG.Rows[SGARow].Strings[2]+"SYSLOG\links.tmp",fmShareDenyNone);
size:=Windows.GetFileSize(hFile,nil);
k:=ceil(size/1024);
for i:=1 to k do begin
try
j:=$1E8481+i;
if FileLock(hFile,j,1024) = 0 then
Memo1.Lines.Add("locked")
else
Memo1.Lines.Add("no locked");

finally
FileUnlock(hFile,j,1024);
end;
end;
finally
CloseHandle(hFile);
end;
Что не так?????
Заранее всем благодарен.

P.S. просьба к ведущему, неделю бьюсь над этим и пока без результатно, знаю, что не хватает знаний, вот и пытаюсь
узнать у сведущих мастеров, пожалуйста, не блокируйте вопрос,
это не спам, а жизненная необходимость.

← →
zdn © (2003-10-26 13:07) [1]

Вопрос снимается, хоть и не начал обговариваться, огромное спасибо Сергею Попову, указал на мою глупость и помог в решении проблемы.

Блокировка файла Найти похожие ветки