Peut-on savoir su un fichier est déjà utilisé par un autre processus?

Question

Bonjour,

j'ai parfois une erreur indiquant que le fichier dans lequel est sauvée une TSringList est occupé par un autre processus. Pourtant aucun autre processus n'accède à ce fichier.
Y a-t-il un moyen de savoir à l'avance si ce fichier est accessible avant de générer l'erreur, car je n'ai pas réussi à la gérer avec des I- et des I+..
merci

cs_cantador · Answer

Bonjour,

vite fait sur le gaz et un peu brut de décoffrage si ça peut t'aider :


function InUse(MyFileName: string): boolean;
var
  HFileRes: HFILE;
begin
  Result := false;
  if not FileExists(MyFileName) then
    exit;
  HFileRes := CreateFile(pchar(MyFileName), 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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InUse('C:\MonDossier\MonFichierEnCours.exe') then
  begin
    ShowMessage('Fichier occupé');
  end
  else
  begin
    ShowMessage('Fichier libre');
  end;
end;



cantador

Peut-on savoir su un fichier est déjà utilisé par un autre processus?

1 réponse

Votre réponse

Discussions similaires