Datei in Benutzung -> Sperren

[MCXSC]

Hi,

jeder kennt es wahrscheinlich: Man versucht eine Datei zu löschen, und merkt (dank umfangreicher Dialogboxen), dass die Datei bereits aktuell in Benutzung ist und daher (temporär) "gesperrt" wurde.

Ich habe Google schon masakriert, aber die Dame ist heute wohl etwas zickig... Jemand hier eine Idee, wie man so etwas bewerkstelligen kann?

Hafe vun,
MCXSC

[Luckie]

Öffne die Datei exklusiv.

[Fridolin Walther]

CreateFile ... die Absätze über die Share Modes sind für Dich interessant. Ebenfalls interessant: LockFile.

Luckie geht wohl auch niemals schlafen .

[MCXSC]

Zitat von Fridolin Walther:

CreateFile ... die Absätze über die Share Modes sind für Dich interessant. Ebenfalls interessant: LockFile.

Super danke! Wenigstens hab ich jetzt was, wonach ich suchen kann.

Zitat von Fridolin Walther:

Luckie geht wohl auch niemals schlafen .

Du doch scheinbar auch nicht.^^

[Luckie]

Luckie hat Urlaub und das wird ausgenutzt, da wird die Nacht zum Tag.

[MCXSC]

Zitat von Luckie:

Luckie hat Urlaub und das wird ausgenutzt, da wird die Nacht zum Tag.

Kenn ich irgendwo her...

Ich habe nun zwei Möglichkeiten gefunden: Einmal mit einem gewissen OpenFile und einmal mit LockFileEx/UnlockFileEx. Sollte man eines davon bevorzugen?

//Edit: Okay, habe mir nun mal etwas "zusammengebastelt":

Delphi-Quellcode:

//zum sperren
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);
  CloseHandle(lf_FileHandle);
end

//zum entsperren
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);
  UnlockFile(lf_FileHandle, 0, 0, lf_FileSize, 0);
  CloseHandle(lf_FileHandle);
end;

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

[JanW]

Also bei mir geht dein Code. Probier doch mal ne andere Datei zu sperren.
Hab zwar fpc/lazarus aber das runft ja auch nur die <winAPI auf

Gruß,
Jan

[MCXSC]

Zitat von JanW:

Also bei mir geht dein Code. Probier doch mal ne andere Datei zu sperren.
Hab zwar fpc/lazarus aber das runft ja auch nur die <winAPI auf

Ah, okay. War wohl etwas spät die Nacht (vergessen, vorher die Variable Datei zu "füllen"). ^^

[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;

[MCXSC]

Zitat von himitsu:

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

Habe doch schon geschrieben, dass es klappt. Die Variable "Datei" war bei mir nur leer, was zu dem Fehler geführt hat...