Kann Datei geöffnet werden?

[API]

Hallo!

Gibt es eine Funktion, welche mir sagt, ob eine Datei geöffnet werden kann?
(NT Rechte berücksichtigt)

Delphi-Quellcode:

function FileCanBeOpened(const File: FileName): Boolean;

Hintergrund: Möchte wissen, ob ein User eine Excel Datei öffnen kann, ob er die nötigen Rechte besitzt.
Excel zeigt sonst die Nachricht "Excel cannot access 'File.xls' The document may be read-only or encrypted." an.
Die Datei kann im Explorer angezeigt, jedoch dann nicht geöffnet werden.

[Luckie]

Nico hatte da mal was geschrieben: http://www.michael-puff.de/Developer...ileAccess.html

[API]

Danke! Funktioniert bestens.