У меня есть функция, которая из реестра формирует Ини-файл из файловых расширений. Он необходим для того, чтобы как в Проводнике, показывать рядом с расширением пояснение: Файл справки, Delphi Project, Текстовой файл ну и т.д.
Но возникает непонятная ошибка. Я придумал, как её избегать, но для этого в файл надо вписывать дополнительные не нужные строки. Ну зачем мне замусаривать Файл. Помогите пожалуйста с этой сложной проблемой.
Вот код программы. Я не могу понять, почему возникает ошибка. Я обозначил строку с ошибкой.

Код

procedure TBaseIniFilesStruct.SetAtributeFileStruct; var   i,j,k          :Integer;   MyKey          :HKey;                   //Handle для работы с разделом   KeyAnderstand  :HKey;   Buffer,Buffer1 :array[0..1000] of char; //Буфер   PBufStr        :PAnsiChar;   BufStr         :string;   BufChr         :string;   Err,ErrKey     :Integer;   index          :longint;                //Индекс подраздела begin   with INIF do  //класс работы с Ини Файлами программы, где FAtributeIF - это поле типа TIniFile   begin     ErrKey := 0;     FAtributeIF.WriteString('Type','e','');  //раздел Тип файла     //получаем доступ к реестру     Err := RegOpenKey(HKEY_LOCAL_MACHINE,'SOFTWARE\Classes',MyKey);     if Err <> ERROR_SUCCESS then ProgramControl.FatalError := 'Ваша операционная система иммеет неверную структуру реестра. Дальнейшее выполнение программы невозможно.';     index := 1; //index=0 будет звездочка     Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));     if Err <> ERROR_SUCCESS then ProgramControl.FatalError := 'Ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes пуст. Дальнейшее выполнение программы невозможно.';     PBufStr := 'SOFTWARE\Classes\';     BufStr := PBufStr;     new(PBufStr); //---------------------------Без этой строки выводится ошибка, данная ниже--------------------      for i := 1 to 10 do //если не 10, а 8, то ошибка другого вида : "Не могу записать в файл <путь к файлу>\<Имя файла испорченное(Не AtrConvent.INI, а типа так AtrCon^#~%)>      begin       FAtributeIF.WriteString('EEEE{или любой другой}'+IntToStr(i),'Number',IntToStr(i));//мусор     end; //----------------------------------------------------------------------------------------------------------------     while ((err=ERROR_SUCCESS) and(Buffer[0] = '.'))do     begin       //создаем заготовку файловых расширений       Form1.Label2.Caption := Buffer;       FAtributeIF.WriteString(Buffer,'Number',IntToStr(index-1));//ПРИ index=81 ВЫВОДИТСЯ ОШИБКА "Неверный адрес"       Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));       BufChr := Buffer;       //получае необходимый путь       for i := 0 to 19+length(BufChr) do       begin         if index = 81 then         Index := Index +1-1;         if i < 17 then PBufStr[i] := BufStr[i+1]         else PBufStr[i] := BufChr[i-16];       end;       //получаем пояснение       Err := RegOpenKey(HKEY_LOCAL_MACHINE,PBufStr,KeyAnderstand);       if Err <> ERROR_SUCCESS then       begin         RegCloseKey(MyKey);         RegCloseKey(KeyAnderstand);         ProgramControl.FatalError := 'Ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes '+ Buffer +' пуст, что не возможно в принципе. Дальнейшее выполнение программы невозможно.';       end;       ErrKey := RegQueryValue(KeyAnderstand,'',Buffer1,j);       //идем по пояснению в одноименную папку       index := index + 1;     end;     FAtributeIF.WriteString('Attribute','*','Файл');     PBufStr := '';     //читаем реестр на предмет пояснений к расширению     //добавляем свойство - папка или файл   end; end;

Это сообщение отредактировал(а) p0s0l - 24.7.2005, 11:57

Текст программы надо оформлять тэгами CODE (кнопка "Код"). Инчаче, читать не оформленный код, нет ни времени ни желания.

О, спасибо, я не знал. У меня чегото эта кнопка срезается и я не виже, что на ней написано.
Ну а что касательно проблемы?

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:49

Почему мне нужно именно из файла:
1. Работать с Ини файлом значительно быстрее, чем перебирать реестр, влезать в нужную ветвь, а
затем снова влезать и получать данные.
2. Это можно сделать единожды в программе при первом запуске и больше реестр не трогать.
3. Пользователь сам волен устанавливать для файлового расширения пояснения к нему, не залезая при этом в реестр.
4. Если программа будет использовать файл, а не реестр, то это будет намного безопасней.

Вопрос типа "Сразу из реестра" больше задавать не надо. Мне надо именно так, и не иначе.

Меня интерисует, почему ошибка.

CosmoMan
Покажи как создаётся FAtributeIF

А вообще мне не понятен комментарий "//класс работы с Ини Файлами программы, где FAtributeIF - это поле типа TIniFile"

Если FAtributeIF это

Var FAtributeIF: INIF

то делать надо 'With FAtributeIF'.

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:50

Цитата

А вообще мне не понятен комментарий "//класс работы с Ини Файлами программы, где FAtributeIF - это поле типа TIniFile"

Что непонятного

Код

TIniFileWork = class(TObject) private    FAtributeIF :TIniFile;    F....             :TIniFile; public //функции end; Только глюки непонятно откудо берутся; var INIF :TIniFileWork;

Цитата

Цитата (CosmoMan @ 24.7.2005, 14:55) Работать с Ини файлом значительно быстрее, чем перебирать реестр, влезать в нужную ветвь, а затем снова влезать и получать данные.  Ненамного.

В моем случаи намного.

Цитата

Цитата (CosmoMan @ 24.7.2005, 14:55) Это можно сделать единожды в программе при первом запуске и больше реестр не трогать. Гм. А если а реестре произошли изменения?

Это можно сделать при простое программы или по желанию пользоваетя, притом процедура обновления идет намного быстрее, чем процедура формирования заново. К томуже муторно это постоянно работать с реестром, а в фале все понятно и все, что нужно. Ни какой лишней информации

Цитата

А вот и рабочий код

Ух, а я и не знад, что есть такой тип TRegIniFilе. Это интересно. Обязательно попробую, чотя код я уже закончил писать. Может это сделает его менее грамоздким и менее глючным. Завтра будем пробовать

Да, вопрос. str := StrPas(buf); что за функция. Я делал просто str := buf

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:50

Цитата

В хелпе нам лень посмотреть

Нет, просто для этого мне надо вырубить XP и запустить сервак 2003. К томуже я же сказал, что

Цитата

Завтра будем пробовать

А функцию, которая бы обратно преобразовывала из str в buf не знаеш?

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:50

Цитата

Взято из секретных архивов Пентагона.

Охотно верю. Ото мне пришлось цикл делать.

А почему бы не сделать Экспорт ветки реестра ? таже структура что и у INI.

Цитата

А почему бы не сделать Экспорт ветки реестра ?

Это как????

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:53