Скачать: CL | DM;

Tregistry   Найти похожие ветки 

← →
AdmeraL ©   (2004-09-24 19:14) [0]

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

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.

---

← →
simpson ©   (2004-09-24 19:19) [1]


function ReadString(const Name: String): String;


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

---

← →
Defunct ©   (2004-09-24 19:21) [2]

А где вопрос?

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;

---

← →
AdmeraL ©   (2004-09-24 19:25) [3]

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

---

← →
simpson ©   (2004-09-24 19:27) [4]

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

function ReadString(const Name: String): String;


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

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


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

---

← →
AdmeraL ©   (2004-09-24 19:30) [5]

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

---

← →
simpson ©   (2004-09-24 19:33) [6]

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

---

← →
Defunct ©   (2004-09-24 19:35) [7]

AdmeraL ©   (24.09.04 19:25) [3]

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

---

← →
AdmeraL ©   (2004-09-24 19:38) [8]

не поможет..

---

← →
Anatoly Podgoretsky ©   (2004-09-24 19:42) [9]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.979 c