Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aimerai pouvoir éffacer un dossier créé par mon application dans le répertoire, C:\Documents and Settings\CINCAP\Application Data\Mon Dossier

J'utilise la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function LocalAppDataPath : string;
const
   SHGFP_TYPE_CURRENT = 0;
var
   path: array [0..MAX_PATH] of char;
begin
   SHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,SHGFP_TYPE_CURRENT,@path[0]) 
 
;
   Result := path;
end;

Seulement sur le pc de ma fille, User "CINCAP" n'existe pas et porte forcément un autre nom.

Je fais des tests depuis ce matin et quelque chose m'échappe.

Si quelqu'un avait une idée, merci d'avance.

@+,

Cincap

[shell13010]

salut cincap

le raccourci pour le nom est %USERPROFILE%

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function MonUser: string;
begin
    result:= GetEnvironmentVariable('USERPROFILE');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   edit1.text:=MonUser;
end;

renvoie le nom de L'user

A+

[cincap]

@ shell13010, merci pour ta fonction, mais seul l'user est renvoyé sans le reste de dossier "\Application Data\Mon Dossier".

Il est vrai que je pourrai faire ceci :

Code :

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

1
2
3
4
5
 
procedure TFTest.BTestClick(Sender: TObject);
begin
edit1.text:=MonUser +'\Application Data\Mon Dossier';
end;

A partir de ce code comment est ce que je pourrai tester si "Mon dossier" existe et si oui l'éffacer.

@+,

Cincap

[Droïde Système7]

Salut,

Tiens regarde ici :
http://www.swissdelphicenter.ch/torr...de.php?id=2277

Tu devrais y trouver ton bonheur.

Code :

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

1
2
3
4
5
...
procedure TForm1.Button1(Sender: TObject);
begin
  ShowMessage(GetEnvVarValue('APPDATA'));
end;

@+

[cincap]

@ Droïde Système7, merci pour l'info, très intéressante au niveau code.

@ Nabil74, merci Nabil74, mais le click sur le bouton doit me déléter en silence le dossier "Mon dossier".

Donc je dois me positionner dans le répertoire de l'user et les fonctions proposées de Droïde Système7 et shell13010 sont pertinantes puis je dois éffacer uniquement le dossier "Mon dossier".

Et c'est la que je bloque.

@+,

cincap

[NABIL74]

@ cincap,
pour connaître le chemin de "application data ", utilise la fonction:

Code :

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

1
2
3
4
function applicationData: string;
begin
    result:= GetEnvironmentVariable('AppData');
end;

ajoute un "edit".
ensuite, on va appeler cette fonction dans la propriété "On create" de la fiche

Code :

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

edit1.text:=applicationData;

la fonction "application data " va nous donner le chemin auquel on lui ajoute le nom de ton dossier "Mon dossier".

et pour l'effacer, on crée une fonction de suppression du dossier"mon dossier".
le code globale(testé!):

Code :

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

1
2
3
4
function applicationData: string;
begin
    result:= GetEnvironmentVariable('AppData');
end;

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
 edit1.text:=applicationData;
end;

fonction d'effacement:

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
22
Function DelTree(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
   StrPCopy(DirBuf, DirName) ;
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;
    fFlags := fFlags or FOF_SILENT;
   end;
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
   except
    Result := False;
  end;
end;

maintenant

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
if DelTree(edit1.Text+'\Mon dossier') then //on ajoute le nom de ton dossier à "edit1"
ShowMessage('Dossier effacer!')
else
ShowMessage('Erreur!') ;
end;

a+

NABIL74

[NABIL74]

salut,
@cincap salut l'ami .
tu peux mettre sur ta fiche un "ShellListView" qui servira à visualiser la liste des répertoires de ton "ApplicationData".

utilise la fonction que shell t'as proposée et puis ajoute ce code:

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellListView1.Root:= MonUser;
end;

tu verras les dossiers.pour effacer un dossier, clique droit sur le dossier en question et clique sur "supprimer".

a+
NABIL74