Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

СТАРТОВАЯ СТРАНИЦА   Найти похожие ветки 

← →
ДАНИИЛ   (2004-10-06 20:25) [0]

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

---

← →
Rouse_ ©   (2004-10-06 20:52) [1]

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

---

← →
XProger ©   (2004-10-07 19:22) [2]

Вот пример использования реестра без 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;


---

Страницы: 1 вся ветка

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c