Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
ВнизРеестр Найти похожие ветки
← →
Батя (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]Извените, простите всё разобрался. Я блин запутался с этими ключами. Всем Огромное спасибо.
← →
PSPF2003 © (2006-07-29 13:40) [10]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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.045 c