| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

СТАРТОВАЯ СТРАНИЦА [D5, D6, D7, WinXP]

ДАНИИЛ ©   (2004-10-06 20:25:00) 

как сделать програмно стартовую страницу в IE без реестра ?

---

XProger   (2004-10-07 19:22:00) [1]

Вот пример использования реестра без uses Registry %)


// Сохраниение
Procedure SaveSettings;
Var
 Key : hKey;
 Dummy : Integer;
Begin
 If RegCreateKeyEx(hKey_Current_User, 'Software\SilverStream\SSBoxes', 0, Nil, Reg_Option_Non_Volatile, Key_All_Access, Nil, Key, @Dummy) = Error_Success Then
 Begin
   RegSetValueEx(Key, 'RoundedRectangles', 0, Reg_Binary, @RoundedRectangles, SizeOf(Boolean));
   RegSetValueEx(Key, 'SolidColors', 0, Reg_Binary, @SolidColors, SizeOf(Boolean)); RegCloseKey(Key);
 End;
End;

Загружаем параметры так:

Procedure LoadSettings;
Var
 Key : hKey;
 D1, D2 : Integer;
 Value : Boolean;
Begin
 If RegOpenKeyEx(hKey_Current_User, 'Software\SilverStream\SSBoxes', 0, Key_Read, Key) = Error_Success Then
 Begin
   D2 := SizeOf(Value);
   If RegQueryValueEx(Key, 'RoundedRectangles', Nil, @D1, @Value, @D2) = Error_Success Then RoundedRectangles := Value;
   If RegQueryValueEx(Key, 'SolidColors', Nil, @D1, @Value, @D2) = Error_Success Then SolidColors := Value;
   RegCloseKey(Key);
 End;
End;


---

Rouse_   (2004-10-06 20:52:00) [2]

Что значит без реестра? IE берет свои настройки как раз оттуда, хотя можешь, конечно, записать адрес этой страницы в какой нибудь файл текстовый на диске, вот только как ты будешь доказывать браузеру что его настройки лежат в этом файле, а не в реестре, я не знаю ;)

---

Наверх