Текущий архив: 2003.03.06;
Скачать: CL | DM;
Вниз
Реестр >>> Помогите плиз!!!!! Найти похожие ветки
← →
Stream2k (2003-02-22 08:41) [0]Как это не ужастно но я не умею работать с реестром в D6. Может кто ниить поможет? Илил подскажите какие нить компоненты для работы с реестром windows98-xp... Буду очень благодарен.
← →
Cr@sh © (2003-02-22 08:42) [1]Пример:
procedure Tform1.RegisterFileType(prefix:String; exepfad:String);
var
reg :TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey("."+prefix,True);
reg.WriteString("",prefix+"file");
reg.CloseKey;
reg.CreateKey(prefix+"file");
reg.OpenKey(prefix+"file\DefaultIcon",True);
reg.WriteString("",exepfad+",0");
reg.CloseKey;
reg.OpenKey(prefix+"file\shell\open\command",True);
reg.WriteString("",exepfad+" "%1"");
reg.CloseKey;
reg.Free;
end;
Я вот не помню... там по-моему надо еще registry в uses прописать...
← →
Stream2k (2003-02-22 13:06) [2]Окей я объесню что мне надо. Мне надо что бы если у CheckBox1.checked := true, то при запуске приложения label1.visible := false и наоборот. Помогите мне плиз.!!!!!
← →
Palladin © (2003-02-22 13:08) [3]причем тут реестр???
label1.visible:=not checkbox1.checked;
← →
Meson © (2003-02-22 13:29) [4]В ответе Cr@sh есть практически все, что тебе надо:
В FormCreate читаешь из регистра и инициализируешь свои переменные.
В FormDestroy сохраняешь значения обратно в регистре.
Только не забывай убивать объект reg.
← →
Stream2k (2003-02-22 16:20) [5]Конечно же спасибо вам сем за ваши советы, но вы не учли что я полный ЛОХ когда дело доходит до работы с реестром. Скажите хотябы где можно в инете научиться работать с реестром. спасибо .
← →
Mirolex (2003-02-22 18:05) [6]Зачем, вообще, надо учиться работать с реестром, если полно готовых компонентов (например RxLib). Положил на форму такой компонент и сохраняй в реестре все, что надо, не задумываясь как работает реестр.
Я в Delphi работаю с самой первой бета версии (уж сколько приложений сделано) и практически не возникает необходимости прямой работы с реестром. А если все же и надо работать с реестром, просто открой help (F1, если не знаешь) и поищи по слову "Registry". Там будут полные примеры, как и что надо делать.
← →
Лесник © (2003-02-23 12:36) [7]А я считаю что лучше работать с ини файлами. Положить их в папочку с программой и пользоваться. И не страшно если система полетит, все настройки сохраняться.
← →
Stream2k (2003-02-23 20:15) [8]2Mirolex Расскажи поподробней о RxLib(... и где его добыть.) Буду благодарен.
← →
Stream2k (2003-02-24 08:09) [9]Ну же! Разве никто не пользовался RxLib? Я вот пытаюсь его установить но вылезает MaxMin.pas нет какого то *.dcu
← →
Беспечный Ангел © (2003-02-24 09:56) [10]RxLib... А ты читал инструкцию по установке? Если нет, напиши, скину... С RxLib вместе... ;)
← →
andrey_pst © (2003-02-25 08:12) [11]Кинь мне письмо на andrey_pst@rambler.ru - вышлю доку по работе с реестром (на русском языке)
← →
AlisaKK (2003-02-25 12:43) [12]Для хранения информации используй ветку в реестре
HKEY_CURRENT_USER\Software\"Название твоей программы"
function ReadRegStr(RootKey:HKey; SubKey, Value:String):String;
//Чтение строкового параметра из реестра
var
C : Array [0..254] of Char;
T,S : DWORD;
K : HKEY;
begin
Result := "";
T:=REG_SZ;
S:=SizeOf(c);
if RegOpenKeyEx(RootKey,PChar(SubKey),0,KEY_READ,K)=ERROR_SUCCESS then
if RegQueryValueEx(K, PChar(Value),nil,@T,@C,@S)=ERROR_SUCCESS then
Result := C;
RegCloseKey(K);
end;
function WriteRegStr(RootKey:HKey; SubKey, Value, Param:String): Boolean;
//Запись строкового параметра в реестр
var
T : DWORD;
K : HKEY;
begin
Result:=False;
If (RegCreateKeyEx(RootKey, PChar(SubKey), 0,nil,
Reg_Option_Non_Volatile,
Key_All_Access,nil,K, @T) = Error_Success) Then
if RegSetValueEx(K, PChar(Value), 0, REG_SZ,
PChar(Param),Length(Param))=ERROR_SUCCESS Then
Result:=True;
RegCloseKey(K);
end;
Страницы: 1 вся ветка
Текущий архив: 2003.03.06;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.023 c
