сохранение значений прямо в exe

[DeKot]

Попробую накидать и потом выложу код.

[Roof]

2 DeKot - жду заранее благодарен.

[NieL]

Используй дополнительные файловые потоки NTFS. Вот небольшой пример:

// данные из Memo сохраняются в доп. поток NTFS

procedure Tform_Test.saveClick(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(ParamStr(0) + ': MyData');
end;

procedure Tform_Test.loadClick(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ParamStr(0) + ': MyData');
end;

В твоем случае запоминать значение счетчика можно так:

procedure Tform_Test.saveClick(Sender: TObject);
var
  M: TMemoryStream;
  i: Integer;
begin
  M := TMemoryStream.Create;
  try
    i := 12345; // temp счетчик
    M.Write(i, SizeOf(i));
    M.SaveToFile(ParamStr(0) + ':Data');
  finally
    M.Free;
  end;
end;

procedure Tform_Test.loadClick(Sender: TObject);
var
  M: TMemoryStream;
  i: Integer;
begin
  M := TMemoryStream.Create;
  try
    M.LoadFromFile(ParamStr(0) + ':Data');
    M.Read(i, SizeOf(i));
    //-----------------
    ShowMessageFmt('%d', [i]);
  finally
    M.Free;
  end;
end;

[Zeraim]

А разве ресурсы не сам собераеш, тоесть их можно пересобирать без своей помощи? И проще не рисовать прямоугольник а сделать бмб размерностью 1х1 и при каждом нажатии менять на 2х1 3х1 4х1 и тд.

[Roof]

2 NieL - пример с Memo получился - но этот пример только при работающей программе запоминает содержимое Мемо.
и втрой пример тоже! - у меня i так и остается - 12345 и я никак не могу его поменять. Не могу понять - как при следющем открытии увеличить i на определенное значение?

[Roof]

2 Zeraim - напиши пример, как увеличить этот бмп в ресурсах?

[Arigato]

Вот, набросал примерчик:

program Project1;

{$APPTYPE CONSOLE}

uses SysUtils, Windows, Forms;

const ValidMarker: Integer = $0A52BC93; // маркер
      MaxCount = 5; // число запусков програмы

function LimitCheck: Integer;
// Проверка лимитов запуска:
var H, Marker, Count, I: Integer;
    B: Byte;
    TempName: string;
begin
  TempName := ChangeFileExt (Application.ExeName, '.tmp');
  if TempName = Application.ExeName then
  begin
    TempName := ChangeFileExt (Application.ExeName, '.exe');
    CopyFile (PChar (Application.ExeName), PChar (TempName), False);
    WinExec (PChar (TempName), SW_SHOWNORMAL);
    ExitProcess (0);
  end; {if}
  H := FileOpen (Application.ExeName, fmOpenRead or fmShareDenyWrite);
  FileSeek (H, GetFileSize (H, nil) - SizeOf (Marker) - SizeOf (Count), 0);
  FileRead (H, Marker, SizeOf (Marker));
  if Marker = ValidMarker
    then FileRead (H, Count, SizeOf (Count))
    else Count := MaxCount;
  if not FileExists (TempName) then
  begin
    Dec (Count);
    if Count <= 0 then ExitProcess (0);
    FileClose (H);
    CopyFile (PChar (Application.ExeName), PChar (TempName), False);
    H := FileOpen (TempName, fmOpenWrite);
    if Marker = ValidMarker then
    begin
      FileSeek (H, GetFileSize (H, nil) - SizeOf (Count), 0);
      FileWrite (H, Count, SizeOf (Count));
    end else
    begin
      FileSeek (H, 0, 2);
      FileWrite (H, ValidMarker, SizeOf (ValidMarker));
      FileWrite (H, Count, SizeOf (Count));
    end; {if}
    FileClose (H);
    WinExec (PChar (TempName), SW_HIDE);
    ExitProcess (0);
  end else FileClose (H);
  DeleteFile (PChar (TempName));
  Result := Count;
end; {func LimitCheck}

begin
  WriteLn ('Count: ', LimitCheck);
  Write ('Press [ENTER]... ');
  ReadLn;
end.

Счётчик записывается в конец EXE-файла и при запуске уменьшается.
Первый запуск определяется отсутствием специального маркера в конце файла. Поэтому, защита не надёжная, т.к. если этот маркер удалить, счётчик сбросится. Можно маркер и начальное значение счётчика создавать руками, после компиляции, так будет надёжнее.

[DeKot]

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

[Roof]

2 Arigato - да, то что нужно.))))) именно этого и добивался. Спасибо большое!.

[Izhic]

а если с болванки ? Или это нелицензионное копирование?
Как минимум надо предусмотреть