[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 ничего не говорит по поводу) Вот код:

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
FName : string;

begin
FName := ExtractFilePath(Application.ExeName) + 'Devices.ini';
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 ничего не говорит по поводу) Вот код:

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
FName : string;

begin
FName := ExtractFilePath(Application.ExeName) + 'Devices.ini';
Devices := TIniFile.Create(FName);
end;

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

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

Код:

FName := ExtractFilePath(Application.ExeName) + '\Devices.ini';

[ZIP]

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

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

Код:

FName := ExtractFilePath(Application.ExeName) + '\Devices.ini';

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

Код:

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, файл не создастся, пока вы туда что-нить не запишете.