Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.046 c
1-1102248440
OldFrits
2004-12-05 15:07
2004.12.19
Перенос кода с С++ на Паскаль


14-1101913628
Alexander Panov
2004-12-01 18:07
2004.12.19
"Свернуть все окна"


3-1100696705
Moiseev-KN
2004-11-17 16:05
2004.12.19
Не получается сохранить в базе значение типа Currency


1-1102198580
Tool
2004-12-05 01:16
2004.12.19
Как получить жётскую ссылку на элемент в TList, независимо от


6-1097094870
Zhuk
2004-10-07 00:34
2004.12.19
TClientSocket и TServerSocket