Discussion :

[Droïde Système7]

Bonjour

Sous Vista, pas moyen de supprimer un fichier tout simple en extension .txt !

Code :

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

1
2
3
...
 DeleteFile('C:\Program Files\Toto\Riri.txt);
...

Je pensais que la variable d'affectation au path était... mais non, même ce chemin écrit en dur, c'est pareil

Je teste pourtant auparavant son existence, etc. mais rien à faire ; Incroyable, non ?

Hé oui, je sais très bien que Vista protège aussi ce dossier sensible, mais tout de même.

Si vous avez des idées, merci

PS : UAC active.

[Aka Guymelef]

Bonjour,

PS : UAC active.

Ben voila je pense que ça répond à ton interrogation. Lorsque l'UAC est actif tu ne peux rien faire du tout sur le répertoire Program Files (et sous-répertoire) à moins d'élever les droits (j'imagine car je ne suis pas du tout un expert dans ce domaine).

[neodelphi2007]

Bonjour,

Cet article "L'UAC et Delphi" de Pascal Fonteneau peut t'aider:

http://pascalfonteneau.developpez.co...phi/vista/uac/

[Droïde Système7]

Bonjour,

Cet article "L'UAC et Delphi" de Pascal Fonteneau peut t'aider:

http://pascalfonteneau.developpez.co...phi/vista/uac/

Bonsoir,

En effet, j'avais déjà lu ce tuto, que d'ailleurs je viens de relire tranquillement.

Par contre, je n'arrive toujours pas à trouver comment faire pour supprimer un malheureux fichier texte en Program Files.

Logiquement en partant de ce code :

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
procedure RunAsAdmin(hWnd : HWND; aFile : String; aParameters : String);
Var
 Sei : TShellExecuteInfoA;
begin
 Fillchar(sei,SizeOf(sei),0);
 sei.cbSize := SizeOf(sei);
 sei.Wnd    := hWnd;
 sei.fMask  := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpfile := PChar(aFile);
 sei.lpVerb := 'runas';
 sei.lpParameters := PChar(aParameters);
 sei.nShow := SW_SHOWNORMAL;
 if not ShellExecuteEx(@sei) then
  RaiseLastOSError;
end;
ensuite, je ne sais pas du tout

En pied de tuto figure ceci :

Epilogue
Lors de la recherche du fond pour cet article, je me suis aperçu que bien souvent des personnes recherchent un bug dans le moteur du BDE, la registry ou des opération E/S (DeleteFile, CreateFile, Registry ) alors que c'est simplement la redirection des opérations d'écriture vers le dossier virtualstore qui fausse l'exécution. Alors, je rajoute volontairement ce petit épilogue, afin que le moteur de recherche du site indexe aussi cet article pour les mots BDE, Registry, DeleteFile et CreateFile.

DeleteFile(), hé oui mais plus encore...

Edit :

Je viens par exemple, via l'appel d'un bouton de faire ceci :

Code :

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

1
2
3
...
RunAsAdmin(DeleteFile('C:\Program Files\suite de mon chemin... 
...

Mais erreur : Types incompatibles : 'HWND' et 'Boolean'

Ou bien :

Code :

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

RunAsAdmin(Self.Handle, DeleteFile('C:\Program Files\mon chemin...

[Erreur] Types incompatibles : 'String' et 'Boolean'

[Reisubar]

Le plus simple est d'associer un manifest à ton exécutable spécifiant qu'il requiert des droits administrateur :

http://developersoven.blogspot.com/2...i-part_27.html

Ceci fait, aucun changement dans ton code ne sera nécessaire, mais ton application ne sera lancée que si l'utilisateur consent manuellement à le faire.

[SergioMaster]

je sais que c'est tout bête mais as-tu essayé le chemin
'C:\programmes\......'

pour ce qui est de RunasAdmin , HWND est un handle de fenêtre
pas un appel de fonction , ensuite tu indiques un nom de programme puis ses paramètres , c'est un peu comme ShellExecute

exemple (et encore je n'en suis pas sur)
RunasAdmin(monHandle,'monprogramme.exe','param1,param2');

[Droïde Système7]

Bonjour

Merci de vos idées ; question manifest, si je peux passer à côté, ce serait mieux et plus élégant je trouve.

Le chemin en ...Programmes... ne passe pas, pas fou le Vista
Ça figure en barre de chemin relatif visible, mais pas en chemin "dur".

Sergio, je crois en effet que nous sommes sur le bon chemin avec :

Code :

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

RunAsAdmin(Form1.Handle, DeleteFile(chemin),X;

Par contre au niveau du dernier paramètres (noté X), c'est du type String aParameters, là je ne sais quoi écrire...

@+

[SergioMaster]

X moi je mettrai null ou nil ou ''
mais deletefile est une fonction , je ne pense pas que cela va fonctionner

[Droïde Système7]

C'est curieux, au moment de l'écriture, je laisse le curseur après la virgule et là je vois le hintage qui me guide. Il indique bien ce dernier paramètre à ajouter est le aParameters.

J'ai tenté Nil, Null, 0, '0', '1', 1 ; mais que dalle.

En fait, en compillant, le curseur se place juste après cette fameuse virgule avant le paramètre en question et toujours le même message d'erreur :
Types incompatibles : 'String' et 'Boolean'

Bref, comme s'il se fichait de l'endroit de ce fameux aParameters...

@+

[SergioMaster]

"mais bon dieu oui bien sur" dirait Bourrel dans les "5 dernières minutes" <- télé des années Soixante

DeleteFile est une fonction qui renvoi un Boolean , c'est bien ce que je disais tu ne peut pas mettre une fonction , il faut que cela soit une commande

je suggererais quelque chose comme

RunAsAdmin(Form1.Handle,'Cmd','Del '+chemin);

mais cela va être moche

[Droïde Système7]

L'inspecteur Bourrel, tu penses si j'me souviens !

Je viens de tester ta ligne, mais l'UAC intervient et demande la permission.

En plus ça pointe sur la console en C:\Windows\System et le curseur attend...

@+

Edit : Si seulement InnoSetup prenait en compte le {userappdata}, mais avec Vista et son UAC ; c'est directo pointé vers le compte admin.
Vivement la prise en compte de Vista par InnoSetup...

[Reisubar]

Merci de vos idées ; question manifest, si je peux passer à côté, ce serait mieux et plus élégant je trouve.

Le manifest est la solution la plus élégante et celle exclusivement conseillée par Microsoft. Un programme doit faire des tâches d'administration sous Vista ? Il faut lui coller un manifest.

De toute façon même si tu veux pas le faire, il faudra impérativement que l'utilisateur valide un popup UAC pour que tu puisses faire cette suppression. Donc autant que ce soit ton application qui le demande plutôt qu'une autre...

Edit : Si seulement InnoSetup prenait en compte le {userappdata}, mais avec Vista et son UAC ; c'est directo pointé vers le compte admin.
Vivement la prise en compte de Vista par InnoSetup...

Je ne comprends pas trop... Dans Program Files, tu est censé installer les binaires de tes applications. Point barre. Pas les fichiers de conf, pas de trucs modifiables, suppressibles, etc. Donc si tu vas à l'encontre de cette "règle" c'est normal que tu aies l'impression de galérer

[Droïde Système7]

Bonsoir,


J'ose me citer :

Edit : Si seulement InnoSetup prenait en compte le {userappdata}, mais avec Vista et son UAC ; c'est directo pointé vers le compte admin.
Vivement la prise en compte de Vista par InnoSetup...

Adrien répondait :

Je ne comprends pas trop... Dans Program Files, tu est censé installer les binaires de tes applications. Point barre. Pas les fichiers de conf, pas de trucs modifiables, suppressibles, etc. Donc si tu vas à l'encontre de cette "règle" c'est normal que tu aies l'impression de galérer

En fait tout ce problème vient à "cause" d'Inno Setup qui sous Vista avec... UAC, ne prend aucunement en compte le {userappdata} et pointe alors directo sur le compte admin.

Car l'idéal à l'install aurait été qu'un fichier texte soit placé directo en ...\Users\NameUser\AppData\Roaming\... Mais à cause de cette impossibilité de IS, je ruse (via le premier lancement de mon appli) en clonant ce fichier de mon dossier d'install vers ...\Users\NameUser\AppData\Roaming\... Ensuite et c'est là le but de cette discussion est de killer ce fichier restant en PF.

Voilà pourquoi je place un fichier texte en Program Files

Mais au fait, si je met un fichier manifest ; y aura t'il une tout de même une demande de l'UAC ?

Merci @+

[Reisubar]

Bonsoir,
Voilà pourquoi je place un fichier texte en Program Files

OK, je comprends. Moi j'utilise {commonappdata}, c'est pour ça que je n'ai pas ce problème. Je pense que c'est mieux que tu travailles plutôt avec le répertoire temporaire dans ton cas parce que dans tout les cas Program Files n'est vraiment pas conçu pour.

Mais au fait, si je met un fichier manifest ; y aura t'il une tout de même une demande de l'UAC ?

Oui, c'est même le seul intérêt

[Droïde Système7]

OK, je comprends. Moi j'utilise {commonappdata}, c'est pour ça que je n'ai pas ce problème. Je pense que c'est mieux que tu travailles plutôt avec le répertoire temporaire dans ton cas parce que dans tout les cas Program Files n'est vraiment pas conçu pour.

Oui, oui, tu as raison

Bon sang, mais c'est bien sûr ! (inspecteur Bourrel )

Je balance à l'install ce fichier texte en {commonappdata}, ensuite au premier lancement de mon appli, ce dernier est choppé et expédié droit au but

et