Bonjour à tous
 
Mon prog doit supprimer une arborescence complète, avant de la copier à nouveau depuis le disque C: . Je passe par ShFileOperations, qui ne me pose habituellement aucun pb (sous XP). Certains fichiers sont protégés, soit, mais sous XP, ça passe.
 
Sopus Seven, non. J'ai ce message :  
[img] http://data.imagup.com/10/1139222521.PNG [/img]
 
 
Or, la routine employée est exactement la même :  
 
Procedure Effacer(Handle:HWND;Source:String);
var
  lpFileOp:TSHFILEOPSTRUCTA;
  TabFrom:array[0..255] of char;
  i:integer;
 
begin
     For i:=0 to length(Source)-1 do TabFrom[i]:=Source[i+1];
     TabFrom[length(Source)]:=#0;
     TabFrom[length(Source)+1]:=#0;
 
     lpFileOp.Wnd:=handle;
     lpFileOp.wFunc:=FO_DELETE; // l'action sera un effacement
     lpFileOp.pFrom:=TabFrom; // contient le ou les fichiers /dossiers à recopier
     lpFileOp.pTo:='';
     lpFileOp.fFlags:=FOF_NOCONFIRMATION;
 
     SHFileOperation(lpFileOp); // procède à l'effacement
end;
 
Et, qui plus est, je déprotège intégralement l'arborescence visée avant d'envoyer l'ordre de son effacement.  
 
Ca vous parle, vous ?  
 
Merci

De quelle façon déprotèges tu l'arborescence?
Lances tu ton programme en clic droit "exécuter en tant qu'admin..."?
Ton prog est lancé avec le même compte que celui qui créer les fichiers ou c'est un compte non interactif (genre service?)

 
1/ Déprotection : chaque rep et fichier est déprotégé s'il l'est : plus d'attrib R, S ou H.  
 
2/ Je lance le prog à travers Total Commander. C'est un prog que je suis en train d'écrire (une sauvegarde pour W7) et, précisément, je me trouve face à une réponse de Seven que ne me faisait pas XP... C'est une application, pas un service. Enfin : là, la question est très pointue    
 

L'UAC est activé?
A+,

 
Non : j'ai  réglé ça au minimum. De là à dire que le service lui-même est désactivé... Il s'apelle comment, cet UAC, ds les services ?