[Dead_Gigabit]

Всем привет, проблема не могу разобраться как хранить в ДЛЛ настроики программы.

Например пути к фаилам, настроики фильтров и размеры окон кто с талкивался с такой проблемой подскажите как это делается ....

[angvelem]

Как то не слышал, чтобы в dll хранили настройки. Реестра или файла не хватает?

[Dead_Gigabit]

Сообщение от angvelem

Как то не слышал, чтобы в dll хранили настройки. Реестра или файла не хватает?

Хм впринципе можно и инишник сделать, но это как-то неинтересно хочется что-то новое...

[angvelem]

Честным способом ОС не даст писать в dll или другой файл. Но если не хочется писать в ini в текстовом виде, пиши в бинарном, можешь ещё и закодировать при этом.

[v1s2222]

Если сильно хочется, но нельзя - значит можно

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; var  aStream: TFileStream;  iSize: Integer; begin  Result := False;  if not FileExists(AFileName) then  Exit;  try  aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);  MemoryStream.Seek(0, soFromBeginning);   aStream.Seek(0, soFromEnd);  aStream.CopyFrom(MemoryStream, 0);  iSize := MemoryStream.Size + SizeOf(Integer);  aStream.Write(iSize, SizeOf(iSize));  finally  aStream.Free;  end;  Result := True; end;   function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; var  aStream: TFileStream;  iSize: Integer; begin  Result := False;  if not FileExists(AFileName) then  Exit;    try  aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);  aStream.Seek(-SizeOf(Integer), soFromEnd);  aStream.Read(iSize, SizeOf(iSize));  if iSize > aStream.Size then  begin  aStream.Free;  Exit;  end;  aStream.Seek(-iSize, soFromEnd);  MemoryStream.SetSize(iSize - SizeOf(Integer));  MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));  MemoryStream.Seek(0, soFromBeginning);  finally  aStream.Free;  end;  Result := True; end;

Немного глупый способ, но все же. Можно хранить настройки хоть в самом ЕХЕ файле.

Вот если надо "мини-демка":

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

// Запись var  aStream: TMemoryStream; begin  aStream := TMemoryStream.Create;  Memo1.Lines.SaveToStream(aStream);  if not FileExists('options.exe') then showmessage('error!!!');  AttachToFile('options.exe', aStream);  aStream.Free; end;   // Чтение var  aStream: TMemoryStream; begin  aStream := TMemoryStream.Create;  if not FileExists('options.exe') then showmessage('error!!!');  LoadFromFile('options.exe', aStream);  Memo1.Lines.LoadFromStream(aStream);  aStream.Free; end;

[Pyro]

хороший способ
сама же в себя программа не может писать
вроде можно сделать самоудаляющиейся bat/vbs скрипт, который бы это записывал, тогда вобще всё можно держать в одном exe

[v1s2222]

Ну а если брать отдельную dll, как надо ТС, то все спокойно записывается.
Да и в сам ЕХЕ записать можно, только через др. программу, либо скрипт.

[angvelem]

Сообщение от v1s2222

Если сильно хочется, но нельзя - значит можно

Немного глупый способ, но все же. Можно хранить настройки хоть в самом ЕХЕ файле.

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

[v1s2222]

Сообщение от angvelem

а не только желание похвастать свими знаниями.

Я наоборот своими знаниями почти не хвастаюсь, если не заметил.
А код выложил для ознакомления. Хотели писать в библиотеки - пожалуйста

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10

uses   IniFiles,   var   ini: TIniFile; begin   ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'<b><font color="Red">Project1.dll</font></b>');   ini.WriteString('Section', 'Ident', 'Value');   ini.Free; end;