Discussion :

[cincap]

Bonjour à toutes et à tous,

Mon application à les droits Administrateur Vista, et pourtant impossible de créer le dossier "backgrounds" dans le répertoire "'%WINDIR%\SYSTEM32\oobe\info\".

Est ce mon code ou l'Uac ?

Code :

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

1
2
3
4
 
  if not DirectoryExists('%WINDIR%\SYSTEM32\oobe\info\backgrounds') then
  if not CreateDir('%WINDIR%\SYSTEM32\oobe\info\backgrounds') then
    raise Exception.Create('Impossible de créer ce dossier');

Merci d'une aide éventuelle.

@+,

Cincap

[Droïde Système7]

Salut,

Cincap, es-tu certain de ne pas pouvoir faire autrement ?

Car là tu vas à l'opposé des recommandations de sécurité.

Tu es absolument obligé de placer un fichier dans un folder système ?

Les dossiers user existent sous vista et +

En plus c'est étudié pour.

@+

[cincap]

@ Droïde Système7, bonjour, tu as totalement raison mais pour Windows seven ou l'application devrait fonctionner, il faut absolument respecter le chemin et la création de ce dossier.

Ce fichier est une image Jpg qui servira de background.

Je pencherai plutôt sur ma façon de tester si ce dossier existe et de le creer le dossier

@+,

Cincap

[Droïde Système7]

Whaouuu pas de la tarte !

Tu dois connaitre ce tuto :
http://pascalfonteneau.developpez.co...phi/vista/uac/

@+

[cincap]

@ Droïde Système7, J'utilise bien mon fichier manifest et apparemment c'était bien le code qui posait problème.

Au lieu de :

Code :

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

1
2
3
4
 
if not DirectoryExists('%WINDIR%\SYSTEM32\oobe\info\backgrounds') then
  if not CreateDir('%WINDIR%\SYSTEM32\oobe\info\backgrounds') then
    raise Exception.Create('Impossible de créer ce dossier');

J'ai testé ceci :

Code :

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

1
2
3
4
 
if not DirectoryExists('C:\Windows\System32\oobe\info\backgrounds') then
  if not CreateDir('C:\Windows\System32\oobe\info\backgrounds') then
    raise Exception.Create('Impossible de créer ce dossier');

Je pense que je peux cloturer ce topic, maintenant pourquoi WinDir ne fonctionne pas, c'est une autre histoire.

Edit : pour windir, il suffit de créer une variable ce qui donne ceci :

Code :

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

1
2
3
4
5
6
7
 
 
windir:=GetEnvironmentVariable('SYSTEMROOT');
 
 if not DirectoryExists(windir +'\System32\oobe\info\backgrounds') then
 if not CreateDir(windir +'\System32\oobe\info\backgrounds') then
 raise Exception.Create('Impossible de créer ce dossier');

@+,

Cincap

[Droïde Système7]

Path en dur ?

D'autres façons plus élégantes de trouver les dossiers Windows.

Exemple :

As-tu tenté en passant par cette variable ?

GetEnvironmentVariable('Windir');

@+

Edit :

Tu as aussi CSIDL_SYSTEM => Répertoire System 32 de Windows

[cincap]

@ Droïde Système7, bonjour,avec CSIDL_SYSTEM, J'obtiens une erreur "Identificateur non déclaré" malgré que j'ai mis dans l'uses "ShlObj".

J'ai testé avec "CSIDL_DESKTOP" pour vérifier si ma fonction est correcte et la cela fonctionne.

Je cherche

@+,

Cincap

[Droïde Système7]

Hello

http://www.developpez.net/forums/d82...ciaux-windows/

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
17
18
19
20
21
function GetWinFolder_V1(FolderConst: Integer):string;
var
  RC    : Integer;
  IDL   : TSHItemID;
begin
  result := '';
  RC := SHGetSpecialFolderLocation(0, FolderConst, PItemIDList(IDL));
  If RC = 0 Then
  begin
     Setlength(result,MAX_PATH);
     ZeroMemory(PChar(result),MAX_PATH);
     SHGetPathFromIDList(PItemIDList(IDL), PChar(result));
     result:=Trim(result);
  end;
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  ShowMessage(GetWinFolder_V1($0025)); // En effet, ne passe pas => CSIDL_SYSTEM (Sous Vista)
end;

[cincap]

@ Droïde Système7, par contre ta solution fonctionne sur Vista.

Encore merci pour l'aide et pour le lien.

@+,

Cincap