Лимит на запуск программы

[SolovejK]

Программа (не важна ее функциональность) должна запускаться строго 10 раз..не больше... но, нельзя создавать сторонние файлы (dll, res и т.д.) и пользоваться реестром..

пытался записать в .ехе файл информацию, а потом считывать, но в открытый файл ничего не запишешь.... Пример взял с инета.

 //Вот процедура, добавляющая какие-либо данные к существующему EXE файлу:
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);
  // копируем данные из MemoryStream
  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;


procedure TForm1.Button2Click(Sender: TObject);//сохранить данные
var
 aStream: TMemoryStream;
begin
 aStream := TMemoryStream.Create;
 Memo1.Lines.SaveToStream(aStream);
 AttachToFile('Project1.exe', aStream);
 aStream.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);//загрузить данные
var
 aStream: TMemoryStream;
begin
 aStream := TMemoryStream.Create;
 LoadFromFile('Project1.exe', aStream);
 Memo1.Lines.LoadFromStream(aStream);
 aStream.Free;
end;

Может есть какой-нибудь способ сохранить данные непосредственно в exe?

[Marsel737]

SolovejK, на семёрке вроде нельзя писать инфу в экзешник, а для хрюши полно примеров в инете должно быть

[DeKot]

Может есть какой-нибудь способ сохранить данные непосредственно в exe?

Есть! Используется модуль, разработаный Arigato (спасибо большое ему).
Обсуждалось на форуме, ссылку не сохранил, надо поискать.
PS. В примере лимит = 5 запусков (выставляется в подключаемом модуле).

[SolovejK]

Спасибо большое DeKot, пример замечательный!
Но все равно там создается tmp файл, видимо по другому записать информацию в exe невозможно.

[psycho-coder]

Слышал от кого то, что можно эту инфу хранить в Защищенном хранилище.

[DeKot]

Но все равно там создается tmp файл

Только во время работы программы. Потом он (temp) cтирается. Во вском случае на моих системах (ОС) так.

видимо по другому записать информацию в exe невозможно.

Это оптимальный метод. Экзешник перезаписывается во время проги, все это в фоновом режиме.
Чего тебе, хороняка, надо ещё ("Иван Васильевич меняет профессию").

[Sibedir]

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

[W0LF]

Способ для мазахистов:
Делаете несколько ini, в ней запись, количество запусков, так же несколько записей в реестре, в разных ветках... Конечно же записи шифруете, имена ключей не относящихся к программе, что бы обычным поиском не попалили...

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