Есть ли способ проверить, был ли файл открыт ReWrite в Delphi?
Код будет выглядеть примерно так:
AssignFile(textfile, 'somefile.txt');
if not textFile.IsOpen then
Rewrite(textFile);
Есть ли способ проверить, был ли файл открыт ReWrite в Delphi?
Код будет выглядеть примерно так:
AssignFile(textfile, 'somefile.txt');
if not textFile.IsOpen then
Rewrite(textFile);
Вы можете получить файл файл. (Один момент, я создам пример).
TTextRec (txt).Mode дает вам режим:
55216 = closed
55217 = open read
55218 = open write
fmClosed = $D7B0;
fmInput = $D7B1;
fmOutput = $D7B2;
fmInOut = $D7B3;
Для получения более подробной информации найдите TTextRec в системном блоке.
Попробуйте следующее:
function IsFileInUse(fName: string) : boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(fName) then begin
Exit;
end;
HFileRes := CreateFile(PChar(fName)
,GENERIC_READ or GENERIC_WRITE
,0
,nil
,OPEN_EXISTING
,FILE_ATTRIBUTE_NORMAL
,0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not(Result) then begin
CloseHandle(HFileRes);
end;
end;
Это отлично работает:
function IsOpen(const txt:TextFile):Boolean;
const
fmTextOpenRead = 55217;
fmTextOpenWrite = 55218;
begin
Result := (TTextRec(txt).Mode = fmTextOpenRead) or (TTextRec(txt).Mode = fmTextOpenWrite)
end;
Мне было легче поддерживать логическую переменную в качестве компаньона; Пример: bFileIsOpen
. Где бы ни открывался файл, установите bFileIsOpen := true
, тогда, когда вам нужно знать, открыт ли файл, просто проверьте эту переменную; Пример: if (bFileIsOpen) then Close(datafile);
Ответ Джозефа отлично работает - я вызвал функцию filenotopen
и изменил строку, если
Result := (HFileRes = INVALID_HANDLE_VALUE);
к
Result := NOT (HFileRes = INVALID_HANDLE_VALUE);
Я также удалил строку "if not (Result)", а затем начал "(и" конец "), чтобы он ВСЕГДА закрывал дескриптор или последующие присваивания, а чтения читали ошибки
Теперь я называю это
if filenotopen(filename) then
begin
assignfile(f,filename);
reset(f)
etc;
end
else
message('file open by a different program')