Discussion :

[annemarie]

Bonjour à tous,

j'ai un problème de lock de fichier par un process externe à mon soft qui les libère de façon pas très propre et qui parfois ne libère carrément pas. Le soft Unlocker marche bien dessus pour le libérer.

Je voudrais maintenant du coup le délocker via mon code et je cherche un exemple delphi utilisant UnlockFileEx (si cette fonction est appropriée ce qui est moins sur ...).

Bien à vous

[annemarie]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var handle: HWND;
     Ov: OVERLAPPED;
begin
  TargetFile := TargetFile + #0;
  handle := CreateFile(@TargetFile[1], GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  try
    ov.Internal := 0;
    ov.InternalHigh := 0;
    ov.Offset := 0;
    ov.OffsetHigh := 0;
    ov.hEvent := handle;
    UnlockFileEx(handle, 0, 100, 0, Ov);
  finally
    CloseHandle(handle);
  end;

... ça ne marche pas !

[ShaiLeTroll]

UnlockFileEx permet de dévérouiller un secteur dans un fichier, dont cas, tu déverouille 100 octets dans le fichier ... de plus ton hEvent n'est pas cohérent ... mets le plutôt à Zéro, car sinon il faut utiliser CreateEvent

Cette application externe vérouille-t-elle vraiement le fichier, ou c'est juste un SHARE_EXCLUSIVE ce qui n'est pas le même chose ...

[annemarie]

Je ne sais pas exactement, la suppression du fichier est impossible avec le message : Cette ressource est utilisée par une autre personne ou un autre programme. Parfois, en attendant un peu, ça passe, parfois ça reste bloqué. Il s'agit du process : transcodage quicktime par ffmpeg.

En utilisant le logiciel unlocker j'arrive à le supprimer. Je ne suis pas une experte des files systèmes et autre windows système mania, du coup je suis un peu dans l'expectative.

Faut-il juste changer les attributs (SHARE_EXCLUSIVE) par l'ouverture du fichier dans un autre mode ou y a t-il plus simple.

En tout cas merci pour la réponse, sur les derniers post que j'ai posté, c'est la première réponse que j'ai depuis longtemps, ça fait plaisir....

[ShaiLeTroll]

C'est comme si effectivement QuickTime ne relachait pas tout de suite le fichier, ...

peux-tu utilise UnLocker en ligne de commande, en lui passant le fichier à dévérouiller par exemple ?
Ou voir si il fournisse un objet COM importable dans Delphi


pour SHARE_EXCLUSIVE, je pense que c'est QuickTime qui l'ouvre avec cette option, regarde avec Process Explorer ou Process Monitor, si il y a encore des opérations sur le fichier

Sinon, à quoi servirait un forum si l'on n'y répondait pas !

[annemarie]

J'ai utilisé ProcessExplorer, je vois bien mon soft et le scan sur un répertoire des fichiers sources à transcoder, mais rien concernant le fichier destination bloqué. Le fichier est bloqué par WLXQuickTimeControlHost.exe mais qui n'est plus actif dans les process en cours (je ne vois rien dans ProcessExplorer). En fait ce WLXQuickTimeControlHost.exe est un soft de Windows Live, qui n'a rien à voir avec mon soft et qui prend la main dessus (pour quelle raison je ne sais pas). Je l'ai donc désinstallé et je n'ai plus de blocage. Donc le problème est résolu par la méthode forte. Le seul problème, c'est que je ne peux plus tchater avec les copines (va falloir que je travaille ....bouh). Maintenant je ne sais toujours pas comment déloquer un fichier par une commande, mais bon.

Merci en tout cas de ton aide (être aidée par ShaiLeTroll, c'est quand même la classe ...).

[ShaiLeTroll]

Regarde de plus près UnLocker, lance un CMD, puis fait UnLocker /? ...

Command line usage:

Unlocker.exe Object [Option]

Object:

Complete path including drive to a file or folder

Options:

/H or -H or /? or -?: Display command line usage
/S or -S: Unlock object without showing the GUI
/L or -L: Object is a text file containing the list of files to unlock
/LU or -LU: Similar to /L with a unicode list of files to unlock
/O or -O: Outputs Unlocker-Log.txt log file in Unlocker directory
/D or -D: Delete file
/R Object2 or -R Object2: Rename file, if /L or /LU is set object2 points to a text file containing the new name of files
/M Object2 or -M Object2: Move file, if /L or /LU is set object2 points a text file containing the new location of files

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UnLocker c:\monFichier.wav -s

[annemarie]

effectivement ça marche

UnLocker c:\monFichier.wav -s -D et ça le supprime en prime.