Реестр: значение ключа по умолчанию -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.12.36.30]

Модераторы: jack128, Rouse_, Krid

Реестр: значение ключа по умолчанию

s-mike

Сообщ. #1 , 28.04.05, 17:13

Unregistered

изменить

procedure TForm1.Button1Click(Sender: TObject);

var

reg:TRegistry;

begin

reg:=TRegistry.Create;

try

reg.RootKey:=HKEY_CURRENT_USER;

if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control',false) then

begin

Reg.WriteString('',ParamStr(0));

Reg.CloseKey

end

finally

reg.Free

end

end;

получить

procedure TForm1.Button2Click(Sender: TObject);

var

reg:TRegistry;

s:string;

begin

reg:=TRegistry.Create;

try

reg.RootKey:=HKEY_CURRENT_USER;

if Reg.OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Control') then

begin

s:=Reg.ReadString('');

Reg.CloseKey

end

finally

reg.Free

end;

ShowMessage(s)

end;

Автор: Krid

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0181 ] [ 16 queries used ] [ Generated: 2.05.24, 20:42 GMT ]