Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизЧтение строкового параметра из ключа реестра! Помогите Найти похожие ветки
← →
Petrovich(Flame) (2002-10-01 02:34) [0]Подскажите почему не считываеться !!!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.
Заранее благодарю!
← →
Bsl (2002-10-01 07:53) [1]А ты пользуй не TRegistry, а TRegIniFile - намного проще и не надо никаких OpenKey!
← →
Внук (2002-10-01 09:21) [2]Прежде чем спрашивать, надо ж и самому хоть немного усилий приложить. Например, 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.
То есть, если исключение не возникает, остается только вариант, что параметр не существует. Попробуй убрать первый и последний слэши в имени раздела.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c