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

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

Чтение строкового параметра из ключа реестра! Помогите [D5, Win95/98]

Petrovich(Flame) ©   (2002-10-01 02:34:00) 

Подскажите почему не считываеться !!!unit Putzmann;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids,Registry, StdCtrls;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
sss:string;
begin
StringGrid1.Cells[0,0]:="\Software\Microsoft\Intrnet Explorer\AboutURLs";
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey("\Software\Microsoft\Intrnet Explorer\AboutURLs\",True);
sss:=Reg.ReadString("blank");
StringGrid1.Cells[0,1]:=sss;
label1.caption:=sss;
Reg.CloseKey;
Reg.Free;
end;
end.

Заранее благодарю!

---

Внук   (2002-10-01 09:21:00) [1]

Прежде чем спрашивать, надо ж и самому хоть немного усилий приложить. Например, OpenKey возвращает значение, оно никого не интересует почему-то :)
Затем про ReadString написано: If there is no Registry entry with the specified name, ReadString returns an empty string. If the Registry entry contains something other than a string, an exception is raised.
То есть, если исключение не возникает, остается только вариант, что параметр не существует. Попробуй убрать первый и последний слэши в имени раздела.

---

Bsl   (2002-10-01 07:53:00) [2]

А ты пользуй не TRegistry, а TRegIniFile - намного проще и не надо никаких OpenKey!

---

Наверх