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

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

Tregistry [D7, WinME]

AdmeraL ©   (2004-09-24 19:14:00) 

гляньте чё тут не так...я уже всё перепробовал

begin
t:=treginifile.Create;
t.RootKey:=hkey_local_machine;
t.OpenKey('software\microsoft\windows\currentversion',false);
form1.Edit1.Text:=t.ReadString('currentversion','RegisteredOwner',form1.Edit2.Text);t.Free;
end.

---

Anatoly Podgoretsky   (2004-09-24 19:42:00) [1]

Так ты до сих пор не посмотрел справку и примеры в ней. Ленивый ты Парамоша.

---

AdmeraL   (2004-09-24 19:38:00) [2]

не поможет..

---

Defunct   (2004-09-24 19:35:00) [3]

AdmeraL ©   (24.09.04 19:25) [3]

тут уж нечего сказать:
Переставьте иконки на рабочем столе.

---

simpson   (2004-09-24 19:33:00) [4]

Только TRegIniFile замени на TRegistry

---

AdmeraL   (2004-09-24 19:30:00) [5]

меня учили,да и в подсказках написано, что у readstring три параметра, но всё-равно спосибо...попробую

---

simpson   (2004-09-24 19:27:00) [6]

Посчитай количество параметров функции ReadString в

function ReadString(const Name: String): String;


сравни его с количеством в

t.ReadString('currentversion','RegisteredOwner',form1.Edit2.Text);


и сделай выводы.

---

AdmeraL   (2004-09-24 19:25:00) [7]

всё равно я не понял чё мне надо зделать...объясните точней пожалусто.

---

Defunct   (2004-09-24 19:21:00) [8]

А где вопрос?

var Registry : TRegistry;

Registry := TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
Registry.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+Database,True);
Registry.WriteString('Driver','odbcjt32.dll');
Registry.CloseKey;
Registry.Free;

---

simpson   (2004-09-24 19:19:00) [9]


function ReadString(const Name: String): String;


С каких пор форум заменяет компилятор?

---

Наверх