| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Реестр

Батя ©   (2006-07-29 11:29:00) 

Не могу прочитать ключ в реестре
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

procedure TForm2.FormCreate(Sender: TObject);
var
RegFile:TRegIniFile;
begin
RegFile:=TRegIniFile.Create('user');
RegFile.RootKey:=HKEY_CURRENT_USER;
RegFile.OpenKey('Software',false);
RegFile.OpenKey('Microsoft',false);
RegFile.OpenKey('Windows',false);
RegFile.OpenKey('CurrentVersion',false);
RegFile.OpenKey('Explorer',false);
RegFile.OpenKey('User Shell Folders',false);
derek:=RegFile.ReadString('0','Personal','C:\Documents and Settings\Windowoz\Мои документы')+'\';
RegFile.CloseKey;
Form2.Caption:=derek;
end;


---

PSPF2003   (2006-07-29 13:40:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg : TRegistry;
begin
 Reg := TRegistry.Create;
 try
   Reg.RootKey := HKEY_CURRENT_USER;
   Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
   Label1.Caption := Reg.ReadString('Personal') ;
 finally
   Reg.Free;
 end;
end;

---

Батя   (2006-07-29 13:32:00) [2]

Извените, простите всё разобрался. Я блин запутался с этими ключами. Всем Огромное спасибо.

---

Батя   (2006-07-29 13:27:00) [3]

> Какой тебе конкретно ключ необходимо прочитать ?

А что есть разница какой ключ читать

---

Батя   (2006-07-29 13:25:00) [4]

> Какой тебе конкретно ключ необходимо прочитать ?

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

Если конечно есть другой способ, как найти папку Мои Документы

---

PSPF2003   (2006-07-29 13:23:00) [5]

> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User
> Shell Folders

Какой тебе конкретно ключ необходимо прочитать ?

---

Батя   (2006-07-29 13:22:00) [6]

> PSPF2003 ©   (29.07.06 11:58) [3]
> procedure TForm1.Button1Click(Sender: TObject);
> var
>  Reg : TRegistry;
> begin
>  Reg := TRegistry.Create;
>  Reg.RootKey := HKEY_CURRENT_USER;
>  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer',
>  false);
>  Label1.Caption := Reg.ReadString('Logon User Name') ;
>  Reg.Free;
> end;

Да но таким путем не получается прочитать
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
Ничего не показывает

---

Батя   (2006-07-29 13:14:00) [7]

> PSPF2003

Огромное спасибо, этот вариант т.е. я прочел в одной книге, а у вас всё просто

---

PSPF2003   (2006-07-29 11:58:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg : TRegistry;
begin
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer', false);
 Label1.Caption := Reg.ReadString('Logon User Name') ;
 Reg.Free;
end;

---

Handle   (2006-07-29 11:47:00) [9]

Батявы к кому то конкретно обращаетесь с вашим вопросом или к автоматической системе ответов сайта www.delphimaster.ru ?

---

Handle   (2006-07-29 11:31:00) [10]

> Батя   (29.07.06 11:29)
> Не могу прочитать ключ в реестре


И я немогу, давай вместе немочь ?

---

Наверх