Discussion :

[Général03]

Bonjour,

je souhaite modifier la cible de "Mes documents" en passant par la base de registre.
J'ai regarder dans

HKEY_CURRENT_USER\Software\microsoft\windows\CurrentVersion\Explorer\Shell Folders

(Personal)mais "Mes documents" ne change pas de place (clique droit sur le dossier et le chemin est le même qu'au depart) alors que la modif est réalise dans la base de registre

Et j'ai essayé aussi dans

HKEY_CURRENT_USER\Volatile Environment

(HOMEDRIVE) mais toujours aucune modif...et en plus quznd je redémarre mon PC les modifs dans la base de registre sont remises par defaut....

Quelqu'un peut m'éclaircir

Voici mon code

void __fastcall TForm1::Bt_deplClick(TObject *Sender)
{
TRegistry *registre = new TRegistry();

registre->RootKey = HKEY_CURRENT_USER;

if (registre->OpenKey("\\Volatile Environment",false) )
{
if (registre->ValueExists("HOMEDRIVE") )
{
registre->WriteString("HOMEDRIVE", "D:");
}

}
}

[Général03]

En faite mes modifs étaient appliquées puisque j'avais un souci de rafraichissement (ferme puis reouvre mes documents). Mais acutellement je ne peux pas déplacer le contenu de "Mes documents" car quand je réalise le code

AnsiString OldPath = Edit_mesdocs->Text ; //chemin du dossier "Mes documents"
AnsiString NewPath = Edit_dest->Text ; //chemin où le dossier va être copier

if (DirectoryExists(OldPath) && !DirectoryExists(NewPath))
{
if(CopyFile(OldPath.c_str(),NewPath.c_str(),true) == true ) // déplace le fichier
{
ShowMessage("Réperoire déplacé avec succès");
}
else
{
ShowMessage("Erreur");
}
}
else
{
ShowMessage("Répertoire inexistant");
}

J'obtiens la fenêtre avec le message "Erreur" mais lorsque je test ma fonction cela marche avec d'autres sources. Peut-être qu'il est impossible de copier Mes Documents (car cette fonction supprime le repertoire) sans lui indiquer quelque part ???
J'utilise le chemin du registre :

HKEY_CURRENT_USER\Software\microsoft\windows\CurrentVersion\Explorer\Shell Folders

à la valeur "Personal"
Quelqu'un connaît la solution?

[Général03]

Personne n'a manipulé la base de registre pour faire cela ???

[Général03]

Est-ce que la fonction "CopyFile" copie les fichiers car moi je trouve uniquement mes dossiers vides ?????

[pottiez]

La fonction CopyFile copie bien les fichiers, sinon sous BCB il y a CopyFileTo

Tu pourrais indiquer ce qu'il y a dans tes variable OldPath et NewPath ?

[Crayon]

Personne n'a manipulé la base de registre pour faire cela ???

J'utilise Tweak UI de Microsoft sous Windows XP pour faire cela. Donc, je n'ai jamais manipuler le registre directement.
http://www.microsoft.com/windowsxp/d...powertoys.mspx

[Général03]

J'ai deux "edit" sur ma form où sont placé le repertoire actuel de "Mes documents" et celui que je souhaite installé.
Pour connaitre le chemin de "mes documents" je vais le chercher dans la base de registre et je le copie dans "Edit_mesdocs"

registre->RootKey = HKEY_CURRENT_USER;

if (registre->OpenKey("\\Software\\microsoft\\windows\\CurrentVersion\\Explorer\\Shell Folders",false) )
{
if (registre->ValueExists("Personal") )
{
Edit_mesdocs->Text = "C:\\e";//(registre->ReadString("Personal"));
}

}

Pour copier j'ecris le chemin choisit par l'utilisateur dans la base de registre

if (SelectDirectory("Sélectionnez le répertoire de copie", "c: & d:", Directory))
{
if (Directory == "D:\\")
{
Edit_dest->Text = Directory+"Mes documents";
}
else
{
Edit_dest->Text = Directory+"\\Mes documents";
}
}
else
{
Edit_dest->Text = "Vous n'avez pas choisit de chemin de destination";
}

Ensuite je les places dans des "AnsiString"

AnsiString OldPath = Edit_mesdocs->Text ; //chemin du dossier "Mes documents"
AnsiString NewPath = Edit_dest->Text ; //chemin où le dossier va être copier

J'avais vu qu'il fallait que l'ancien chemin soit existant et pas celui de destination, mais malgré que je fasse cela il me met une erreur sur le "CopyFile" (il ne rentre pas dans le test if). Ca ne marche ni avec CopyFileTo ni avec MoveFile !!!!

[Général03]

Je me suis trompé dans la première balise je voulais mettre

registre->RootKey = HKEY_CURRENT_USER;

if (registre->OpenKey("\\Software\\microsoft\\windows\\CurrentVersion\\Explorer\\Shell Folders",false) )
{
if (registre->ValueExists("Personal") )
{
Edit_mesdocs->Text = (registre->ReadString("Personal"));
}

}

et pour placer le nouveau chemin dans la base de registre je fais

if (registre->OpenKey("\\Software\\microsoft\\windows\\CurrentVersion\\Explorer\\Shell Folders",false) )
{
if (registre->ValueExists("Personal") )
{
registre->WriteString("Personal", Edit_dest->Text);
}

}

[Crayon]

Général03 au lieu de mettre ton code sur le forum entre les balises de citation [QUOTE], je te conseil de mettre ton code dans les balises [CODE]. C'est plus facile à lire