Prüfen ob eine Datei Geöffnet ist.

[shifter]

Hallo zusamen,

wie kann ich Prüfen ob eine Datei wird gerade benutzt durch andere Software ?

Ich dachte es das wenn ich die Datei öffne bekomme ich eine Fehler meldung,
leider ist es nicht so. Somit suche ich nach eine Routine die mir überprüft
ob gewisse Datei durch irgend ein Programm geöffnet wurde.

Genau zu sein brauche ich info wann und ob die Datei wieder geschlossen worden ist.

Gruss
seba

[sniper_w]

Delphi-Quellcode:

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;

[shifter]

Ja den Cod kenne ich von Ricola ich meine SwissDelphiCenter,

leider ist es nicht das wahre. Es Funktioniert leider nicht so
wie ich mir es vorstelle.

gruss
seba


Ich brauche noch andere lösung.
gruss
seba