Реестр

← →
Батя (2006-07-29 11:29) [0]

Не могу прочитать ключ в реестре
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;

← →
Handle (2006-07-29 11:31) [1]

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

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

← →
Handle (2006-07-29 11:47) [2]

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

← →
PSPF2003 © (2006-07-29 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;

← →
Батя (2006-07-29 13:14) [4]

> PSPF2003

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

← →
Батя (2006-07-29 13:22) [5]

> 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
Ничего не показывает

← →
PSPF2003 © (2006-07-29 13:23) [6]

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

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

← →
Батя (2006-07-29 13:25) [7]

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

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

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

← →
Батя (2006-07-29 13:27) [8]

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

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

← →
Батя (2006-07-29 13:32) [9]

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

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;

Реестр Найти похожие ветки