Datei in Benutzung -> Sperren

[himitsu]

Zitat von MCXSC:

Und dabei bekomme ich (zumindest bis zum sperren kommt er ) die Fehlermeldung "Systemfehler. Code: 6. Das Handle ist ungültig."

Vielleicht solltest du es dir nochmal genau durchlesen?
LockFile

Damit kann man nur, wärend die Datei geöffnet ist, einen "Teil" oder Alles einer Datei sperren.

Delphi-Quellcode:

var
  lf_FileSize: Integer;
  lf_FileHandle: THandle;
begin
  lf_FileHandle := CreateFile(PChar(Datei), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  lf_FileSize:= GetFileSize(lf_FileHandle, nil);
  LockFile(lf_FileHandle, 0, 0, lf_FileSize, 0);
  ...
  UnlockFile(lf_FileHandle, 0, 0, lf_FileSize, 0);
  CloseHandle(lf_FileHandle);
end;