Gueno, no preocuparse que ya paso yo por aqui.
A ver si te sirve.
#include <registry.hpp>
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TRegistry* thisReg = new TRegistry();
thisReg->RootKey = HKEY_LOCAL_MACHINE;
thisReg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders", false);
ShowMessage (thisReg->ReadString("Personal"));
thisReg->CloseKey();
delete (thisReg);
}
|