Einzelnen Beitrag anzeigen

zobien123

Registriert seit: 3. Mär 2017
Ort: Öhringen
94 Beiträge
 
Delphi 10.3 Rio
 
#1

IsFileInUse Result bei .xml, .txt falsch

  Alt 17. Mär 2017, 09:22
Guten Morgen Zusammen,

ich habe eine function mit der ich überprüfe, ob eine Datei/exe geöffnet ist.

Code:
function IsFileInUse(const fName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  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
    CloseHandle(HFileRes);
end;
Die function funktioniet auch so weit mit .exe, .ini, ..., jedoch gibt sie bei .txt und .xml Dateien imemr aus, dass die Datein geöffnet sind und ich weiß nicht warum.
Jörn
  Mit Zitat antworten Zitat