Herausfinden von welchem Programm eine Datei genutzt wird

[MisterNiceGuy]

Hi mit folgendem Code kann man prüfen, ob eine Datei gerade geöffnet ist.

Delphi-Quellcode:

function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  HFileRes := CreateFile(PChar(FileName),
                         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;

Jetzt würde ich aber gerne noch wissen, von welchem Programm diese Datei gerade verwendet wird.
Lässt sich das irgendwie realisieren?

[static_cast]

Hi,

ich hatte sowas ähnliches auch mal gefragt: http://www.delphipraxis.net/internal...068&highlight=

nur auch nie eine Antwort drauf bekommen, daher Interessiert es mich auch noch wie man das herrausfinden kann.

Du kannst dur ja mal den link zu dem Tool in dem Artikel anschaun das kann das sehr gut, nur keine Ahnung wie das gemacht wird, ich hatte auch mal eine Mail an die geschrieben aber nie eine Antwort bekommen...

[himitsu]

Also windows muß ja irgndwo gespeichert haben, welche FileID zu welcher Datei gehört und welches Programm welche Dateien beantragt und die entsprechenden ID's bekommen hat...

Ich weiß ja nicht, aber im MSDN könnte da ja bestimmt (hoffentlich) irgenwo was stehen?

[Luckie]

Unter www.sysinternals.com gibt es einen Filemonitor. da da aber dafür einen Dateisystemtreiber brauchst, wirst du das nicht mit Delphi machen können.