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

не поможет..

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

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