Форум: "Система";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизTRegistry Найти похожие ветки
← →
nil (2001-10-23 15:50) [3]тоже самое, но правильнее и мне кажется проще.
procedure TForm1.CheckBox31Click(Sender: TObject);
procedure uWriteStrToRegestry(Key,Value: string);
var
reg: TRegistry;
begin
reg := Tregistry.Create;
try
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey(Key, false);
reg.WriteString("", Value);
reg.CloseKey;
except
...
end;
finally
reg.Free;
end;
end;
begin
if Checkbox31.Checked then
uWriteStrToRegestry("Software\CLASSES\Paint.Picture\DefaultIcon","C:PROGRA~1ACCESS~1MSPAINT.EXE,1")
else
uWriteStrToRegestry("Software\CLASSES\Paint.Picture\DefaultIcon","%1")
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c