Текущий архив: 2005.11.20;
Скачать: CL | DM;
Вниз
Прочитать определённую ветвь системного реестра... Найти похожие ветки
← →
Starcom © (2005-11-01 16:39) [0]Привет Мастера!
Как мне в моём приложении сделать следующее...
Прочитать определённую ветвь системного реестра
HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage
SetValue "1250"="c_1250.nls" и если вней есть изменения
SetValue "1250"="c_1251.nls" то в CheckBox выставить
Checked = true;
С Уважением Starcom! ;)
← →
Leonid Troyanovsky © (2005-11-01 16:42) [1]
> Starcom © (01.11.05 16:39)
> Как мне в моём приложении сделать следующее...
VCL Reference
Create, OpenKey, RootKey, WriteString, CloseKey example
--
Regards, LVT.
← →
Starcom © (2005-11-01 18:01) [2]Leonid Troyanovsky © (01.11.05 16:42) [1]
Да всё понятно .... но как мне зделать Checked=True;
>>>
var
Registry: TRegistry;
S: string;
begin
Registry:=TRegistry.Create;
try
Registry.RootKey:=HKEY_LOCAL_MACHINE;
if Registry.OpenKey("\SYSTEM\CurrentControlSet\Control\Nls\CodePage",False) then
Result :=Registry.ReadString("1250",);
end;
finally
Registry.Free;
end;
<<<
← →
Leonid Troyanovsky © (2005-11-01 18:06) [3]
> Leonid Troyanovsky © (01.11.05 16:42) [1]
> Да всё понятно .... но как мне зделать Checked=True;
..
> Result :=Registry.ReadString("1250",);
Checked := Result = "c_1251.nls" ; ?
--
Regards, LVT.
← →
Starcom © (2005-11-01 19:18) [4]Leonid Troyanovsky © (01.11.05 18:06) [3]
С таким кодом что c_1250.nls или c_1251.nls - Checked = всегда - true
что вообще не так, можно с примером!
function TForm1.GetRegistryValue: string;
var
Registry: TRegistry;
S: string;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey("\SYSTEM\CurrentControlSet\Control\Nls\CodePage",False);
Result :=Registry.ReadString(""1250"="c_1250.nls"");
Form1.CheckBox1.Checked := Result = Registry.ReadString(""1250"="c_1251.nls"");
end;
← →
Grol © (2005-11-01 19:47) [5]А можно поинтересоваться? А как можно будет считать или записать информаци в реестр, если я нахожусь под ограниченной учетной записью в Windows XP?
← →
Leonid Troyanovsky © (2005-11-02 09:21) [6]
> Starcom © (01.11.05 19:18) [4]
> что вообще не так, можно с примером!
uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
S: string;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey("\SYSTEM\CurrentControlSet\Control\Nls\CodePage",False);
s :=Reg.ReadString("1250");
Reg.Free;
CheckBox1.Checked := Trim(s) = "c_1251.nls";
end;
--
Regards, LVT.
Страницы: 1 вся ветка
Текущий архив: 2005.11.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.027 c
