Форум: "Сети";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Вниз
СТАРТОВАЯ СТРАНИЦА Найти похожие ветки
← →
ДАНИИЛ (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c
