[ZIP]

Кто нибудь знает, как заставить программу запомнить некоторые настройки, допустим строку внутри себя (без внешних файлов)?

[lmikle]

Да, такое возможно. Надо ее писать в ресурсы программы.
Посмотри на torry.ru, там был компонет, который позволяет это делать (не помню как назывался, т.к. никогда таких потребностей не возникало).

[Dux]

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

Кто нибудь знает, как заставить программу запомнить некоторые настройки, допустим строку внутри себя (без внешних файлов)?

Такое вряд ли возможно. Настройки сохраняйте в регистре или в ini-файлах

[zip000]

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

[lmikle]

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

[ZIP]

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

ini-файлах

Другая проблема. Посмотрел в RAD Studio Documentation и в CodeGear Delphi Runtime Library. Сделал как CodeGear Delphi Runtime Library, но упорно отказывается создавать ini ,причем никаких ошибок нет. (то бишь Delph ничего не говорит по поводу) Вот код:

Код:

1 2 3 4 5 6 7 8

<font color="blue"><b>procedure </b></font>TForm2.FormCreate(Sender: TObject); var FName : <font color="blue"><b>string</b></font>;   <font color="Blue"><b>begin</b></font> FName := ExtractFilePath(Application.ExeName) +<font color="blue"> 'Devices.ini'</font>; Devices := TIniFile.Create(FName); end;

В Uses прописан IniFiles, Devices : TIniFile в общей var
Что не так?

[Winny]

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

Другая проблема. Посмотрел в RAD Studio Documentation и в CodeGear Delphi Runtime Library. Сделал как CodeGear Delphi Runtime Library, но упорно отказывается создавать ini ,причем никаких ошибок нет. (то бишь Delph ничего не говорит по поводу) Вот код:

Код:

В Uses прописан IniFiles, Devices : TIniFile в общей var
Что не так?

В конечном итоге не будет хватать "\" между путём и "Devices.ini".
Пиши:

Код:

1	FName := ExtractFilePath(Application.ExeName) +<font color="blue"> '\Devices.ini'</font>;

[ZIP]

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

В конечном итоге не будет хватать "\" между путём и "Devices.ini".
Пиши:

Код:

Не работает.
Проверил на новой форме.
Листинг (новый проект)

Код:

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

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IniFiles;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   Devices: TIniFile;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); var FName : string;   begin FName := ExtractFilePath(Application.ExeName) + '\Devices.ini'; Devices := TIniFile.Create(FName); end;   end.

Вроде правильно, а при запуске упорно не хочет создавать ини!

[zip000]

ZIP, файл не создастся, пока вы туда что-нить не запишете.

[ZIP]

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

ZIP, файл не создастся, пока вы туда что-нить не запишете.

Гы.. Точно... (вот я старый дурак )

А тохда еще вопрос. Можно ли запихнуть текст (желательно несколко) для Memo1 (т.е. большой) в dll, и если да, то каой функцией запихуть и прочитать в мемо?