"SHFileOperation" beschwert sich bei geöffneten Dateien

[MuTzE]

Probiers mal damit:

Delphi-Quellcode:

function IsFileInUse(Path: string): boolean;
var
  hFile: THandle;
begin
  Result := False;
  if not FileExists(Path) then
   Exit;
  hFile := CreateFile(pchar(Path), GENERIC_READ or GENERIC_WRITE or GENERIC_EXECUTE,
                      0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then
   CloseHandle(hFile);
end;