Помогите пожалуйста:
Я хочу чтобы программа добавляла в реестр информацию из указанного файла, но почему то в одно место (раздел реестра) получается, а в остальные нет.

Напишите как делать! Пожалуйста.
exec('c:\windows\regedit.exe','/s c:\aaa.reg');

В тот что не получается, наверно прав нет.

Поработай с модулем Registry, там есть такие классы, как TRegistry, TRegFile и тому подобное, а exec('c:\windows\regedit.exe','/s c:\aaa.reg'); забрось подальше, работай с реестром прямо из программы без всяких файлов.

В некоторые разделы нужно иметь администраторские права чтобы писать инфу.

Всё-таки насчёт файла... Попробуй это:

Код

... var si:TStartUpInfo; pi:TProcessInformation; begin ZeroMemory(@si, SizeOf(si)); si.cb:=SizeOf(si); si.wShowWindow:=SW_HIDEl; si.dwFlags:=STARTF_USESHOWWINDOW; CreateProcess(nil, 'c:\windows\regedit.exe /s c:\aaa.reg', nil, nil, False, IDLE_PRIORITY_CLASS or DETACHED_PROCESS, nil , nil, si, pi); ... end;

Цитата(Pakshin @ 2.4.2003, 19:54)

Всё-таки насчёт файла... Попробуй это: Код ... var si:TStartUpInfo; pi:TProcessInformation; begin ZeroMemory(@si, SizeOf(si)); si.cb:=SizeOf(si); si.wShowWindow:=SW_HIDEl; si.dwFlags:=STARTF_USESHOWWINDOW; CreateProcess(nil, 'c:\windows\regedit.exe /s c:\aaa.reg', nil, nil, False, IDLE_PRIORITY_CLASS or DETACHED_PROCESS, nil , nil, si, pi); ... end;

Чего-то не фига не выходит. Индефикаторов Паскаль таких не знает (я впрочем тоже).

А операционка какая?

Ты чЁ на Паскале шпаришь ?? Или Дельфи??

Цитата(SmaLL @ 3.4.2003, 08:50)

Ты чЁ на Паскале шпаришь ?? Или Дельфи??

А как на Паскале в реестр писать?

Я на Паскале вообшето пишу.

Товарищ Сталин, попробуйте считать с файла построчно и записать в реестр через класс TRegistry - так и возможные ошибки можно найти в файле реестра.

Насколько мне известно, на Паскале вообще нельзя писать через TRegistry. Там вообще нету такой фигни. На нем в реестр что-то прописать можно наверно тока из файла.

Ну да, реестр - это же в Windows.

Вот поэтому он и пытается добавить запись через файл.

Мой тебе совет: изучи Delphi и не мучай Pascal. А уж если тебе лень изучать Delphi, то попробуй раздобыть гди-нибудь фенкции WinApi по работе с реестром... Поcтой сейчас скину пару штук, только не знаю как их загрузить в Pascal и где они точно находятся, тем более не знаю, как подогнать типы под Pascal.

Код

RegCreateKey (Key:HKey; SubKey: PChar; var Result: HKey): Longint; Создать подраздел в реестре. Key указывает на "корневой" раздел реестра, в Delphi1 доступен только один - HKEY_CLASSES_ROOT, в в Delphi3 - все. SubKey - имя раздела - строится по принципу пути к файлу в DOS (пример subkey1\subkey2\ ...). Если такой раздел уже существует, то он открывается (в любом случае при успешном вызове Result содержит Handle на раздел). Об успешности вызова судят по возвращаемому значению, если ERROR_SUCCESS, то успешно, если иное - ошибка. RegOpenKey(Key: HKey; SubKey: PChar; var Result: HKey):Longint; Открыть подраздел Key\SubKey и возвращает Handle на него в переменной Result. Если раздела с таким именем нет, то он не создается. Возврат - код ошибки или ERROR_SUCCESS, если успешно. RegCloseKey(Key: HKey): Longint; Закрывает раздел, на который ссылается Key. Возврат - код ошибки или ERROR_SUCCESS, если успешно. RegDeleteKey(Key: HKey; SubKey: PChar): Longint; Удалить подраздел Key\SubKey. Возврат - код ошибки или ERROR_SUCCESS, если нет ошибок. RegEnumKey(Key:HKey; index: Longint; Buffer: PChar;cb: Longint):Longint; Получить имена всех подразделов раздела Key, где Key - Handle на открытый или созданный раздел (см. RegCreateKey и RegOpenKey), Buffer - указатель на буфер, cb - размер буфера, index - индекс, должен быть равен 0 при первом вызове RegEnumKey. Типичное использование - в цикле While, где index увеличивается до тех пор, пока очередной вызов RegEnumKey не завершится ошибкой (см. пример). RegQueryValue(Key: HKey; SubKey: PChar; Value: PChar; var cb: Longint): Longint; Возвращает текстовую строку, связанную с ключом Key\SubKey.Value - буфер для строки; cb- размер, на входе - размер буфера, на выходе - длина возвращаемой строки. Возврат - код ошибки. RegSetValue(Key: HKey; SubKey: PChar; ValType: Longint; Value: PChar; cb: Longint): Longint; Задать новое значение ключу Key\SubKey, ValType - тип задаваемой переменной, Value - буфер для переменной, cb - размер буфера. В Windows 3.1 допустимо только Value=REG_SZ. Возврат - код ошибки или ERROR_SUCCESS, если нет ошибок. RegDeleteValue(HKEY hKey, LPCTSTR lpValueName ); Удаляет значение lpValueName находящееся в ключе hKey.hKey должен был быть открыт с доступом KEY_SET_VALUE процедурой RegOpenKey.Возвращает ERROR_SUCCESS если успешно. LONG RegEnumValue( HKEY hKey, DWORD dwIndex,LPTSTR lpValueName,LPDWORD lpcbValueName,LPDWORD lpReserved,LPDWORD lpType, LPBYTE lpData, LPDWORD lpcbData ); , Выдает список значений у ключа hKey, dwIndex-этот параметр должен быть 0 при первом вызове, а далее по анологии с RegEnumKey(т.е. можно использовать в цикле), lpValueName-буфер для названия значения, lpcbValueName-размер lpValueName, lpReserved должно быть всегда 0, lpType-буфер для названия типа (int), lpData- буфер для данных, lpcbData-размер для lpData. Примечание: При каждой новом вызове функции после предыдущего нужно заново переназначить lpcbValueName. ( lpcbValueName=sizeof  lpValueName) Иногда параметр lpcbData -должно обязательно иметь значение Примеры : {  Создаем список всех подразделов указанного раздела } procedure TForm1.Button1Click(Sender: TObject); var  MyKey : HKey; { Handle для работы с разделом }  Buffer : array[0..1000] of char; { Буфер }  Err, { Код ошибки } index : longint; { Индекс подраздела } begin  Err:=RegOpenKey(HKEY_CLASSES_ROOT,'DelphiUnit',MyKey); { Открыли раздел }  if Err<> ERROR_SUCCESS then   begin     MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);     exit;   end;  index:=0;  {Определили имя первого подраздела }  Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));  while err=ERROR_SUCCESS do { Цикл, пока есть подразделы }   begin     memo1.lines.add(StrPas(Buffer)); { Добавим имя подраздела в список }     inc(index); { Увеличим номер подраздела }     Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); { Запрос }   end;  RegCloseKey(MyKey); { Закрыли подраздел } end;

P.S. Удачи!

Цитата(SmaLL @ 4.4.2003, 00:33)

Вот поэтому он и пытается добавить запись через файл.

Ну тогда просто надо изучить структуру файлов реестра, а потом писать в них.

Цитата(serious @ 4.4.2003, 03:39)

Цитата(SmaLL @ 4.4.2003, ) Вот поэтому он и пытается добавить запись через файл. Ну тогда просто надо изучить структуру файлов реестра, а потом писать в них.

Windows не допустит работы с реестром как с файлом. Обычный Паскаль WinAPI не поддерживает и классов Дельфи не знает. Это чисто DOS'овская среда программирования и с реестром она работать не сможет.

Имеется в виду формат файлов *.reg.

Хотя зачем писать на паскале, если потом всЁ-равно эти значения в паскале не получить...

Цитата(SmaLL @ 4.4.2003, 08:06)

Имеется в виду формат файлов *.reg. Хотя зачем писать на паскале, если потом всЁ-равно эти значения в паскале не получить...

Реестр хранится в файлах *.dat, а файлы *.reg это обычные текстовые файлы - открывай как текст и работай, тролько к реестру они имеют мало отношения.

У меня получалось записать в реестр вот код

Код

uses dos; var f:text;     i,j:integer; begin      assign(f,'c:\vr.reg');      rewrite(f);      writeln(f,'REGEDIT4');      writeln(f);  {   writeln(f,'[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]');         }      writeln(f,'[HKEY_CURRENT_USER\Control Panel\International]');      writeln(f,'"sTimeFormat"="Hm:mH:mH"');      close(f);      SwapVectors;      Exec('c:\windows.000\regedit.exe', '/s c:\vr.reg');      SwapVectors;      {If DosError<>0 Then WriteLn('Ошибка DOS #', DosError)      Else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);}      erase(f); end; begin end.

Только вот в другие разделы он не хочет!!!!

Это сообщение отредактировал(а) p0s0l - 30.9.2005, 09:29

Цитата

Реестр хранится в файлах *.dat, а файлы *.reg это обычные текстовые файлы - открывай как текст и работай, тролько к реестру они имеют мало отношения.

Vit, ведь в реестр можно вносить инфу из *.reg файлов, если эти файлы открываются при помощи regedit. Так вот насколько я понял, Stalin сначала создает reg файл, а потом открывает regedit с именем файла в качестве парамметра.

Stalin, всё-таки не пойму, на кой чёрт ты лезешь в реестр из досовской программы??

Цитата(Pakshin @ 6.4.2003, 09:36)

Stalin, всё-таки не пойму, на кой чёрт ты лезешь в реестр из досовской программы??

Это уже не наше дело, мало ли какие задачи перед ним стоят.

Ну паскаль - dos
а до чего то другого руки ещё не дошли.


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

Цитата(Stalin @ 4.4.2003, 13:50)

Только вот в другие разделы он не хочет!!!!

Нет прав доступа

И как их можно получить?

Запустить свою программу от имени администратора

Цитата(Vit @ 7.4.2003, 15:43)

Запустить свою программу от имени администратора

Как? Тут недавно была такая тема.

Цитата(serious @ 8.4.2003, 04:31)

Цитата(Vit @ 7.4.2003, 15:43) Запустить свою программу от имени администратора Как? Тут недавно была такая тема.

А не поможет! Надо запустить Reg файл с другими правами, и сделать это можно только через WinAPI, а вот доступа то к WinAPI из ДОСовского паскаля нет, так что надо будет либо смириться с тем что твоя прога должна сразу запускаться с администраторрскими правами (мы это не контролируем) - просто запускающий прогу товарищь должен знать что ему запускать надо с администрторскими правами, или писать собственный thumb для доступа к 32 битным API из 16 битной среды - лет 5 назад я таким баловался - ну очень гемморойно, сложно и нестабильно - дебри такие, что оказалось, легче сменить язык программирования чем заставить thumb нормально работать.

Можно изменить файл реестра до загрузки винды. Например, если указать свою прогу в автозагрузке, или конфиге. Правда мутерно ... И надо знать структуру файла...

Цитата(neutrino @ 9.4.2003, 01:44)

Можно изменить файл реестра до загрузки винды.

Пишем вирус, да?

Цитата(serious @ 9.4.2003, 06:18)

Цитата(neutrino @ 9.4.2003, ) Можно изменить файл реестра до загрузки винды. Пишем вирус, да?

Да нет, похоже что тов. Сталин пытается из велосипеда сделать Боинг, уже прикрепил крылья и движок от электомясорубки, только летает эта штука пока что-то плохо...

Цитата(Vit @ 9.4.2003, 23:51)

Да нет, похоже что тов. Сталин пытается из велосипеда сделать Боинг, уже прикрепил крылья и движок от электомясорубки, только летает эта штука пока что-то плохо...

Ничего, наш совместный мозговой штурм вырастет в шторм, и мы поможем велосипеду взлететь и посыпать всех свежерубленным мясом...

2 Vit thumb -- это в смысле thunk ?

Цитата(cully @ 11.4.2003, 06:42)

2 Vit thumb -- это в смысле thunk ?

Он! Я никак не мог вспомнить, мозги пылью покрылись в тех местах уже...