контроль запусков приложения

[Алька2206]

задача в том, чтобы ограничить количество запусков приложения. например, чтобы программа запускалась 10 раз, а 11 раз - не запускалась.
у меня есть готовое решение данной программы, но смысла того, что здесь делается, понять не могу.
используются два проекта: консольный FileWriter.dpr и проект ExecCounter.dpr, содержащий модуль CounterModule.
(программа получает из командной строки три параметра: (1) имя файла; (2) имя строки, которую следует найти в файле; (3) значение, на которое надо заменить в файле (1) следующий за строкой (2) символ.)
если кто-то поможет разобраться во всем, буду признательна.

{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  temp_path: string = 'QWtempQW.txt'; // для чего эта переменная и что означает 'QWtempQW.txt'?
  timeout: TDateTime = 10e-6; // содержит значение даты и времени, но что значит 10e-6 ?
var
  f_in: file of byte;
  f_out: file of byte;
  b: byte;
  temp: string; //общее значение переменных вроде поняла
  to_write: byte; //значение, на которое надо заменить в файле (1) следующий за строкой (2) символ
  counter_str: string; //имя строки, которую следует найти в файле
  path: string; //имя файла
  timeStarted: TDateTime;
 
begin
  timeStarted:= GetTime; // возвращает текущее время
  while (GetTime < (timeStarted + timeout)) do; //пока текущее время меньше..чего?
 
  if (ParamCount < 3) then halt(1); //если число параметров командной строки < 3, тогда завершить..что?
  path:= ParamStr(1);
  counter_str:= ParamStr(2); 
  to_write:= StrToInt( ParamStr(3) ); 
  Assign(f_out, temp_path);
  Rewrite(f_out);
 
  Assign(f_in, path);
  FileMode:= fmOpenRead; //устанавливается режим только для чтения
  Reset(f_in);
  while not eof(f_in) do //цикл не понятен вообще...
  begin
    read(f_in, b);
    temp:= temp+chr(b);
    if (temp = counter_str) then
      begin
        write(f_out, b);
        read(f_in, b);
        b:= to_write;
      end;
    if ( length(temp) = length(counter_str) ) then
      temp := copy(temp, 2, length(temp)-1);
    write(f_out, b);
  end;
  Close(f_in);
  Close(f_out);
  SysUtils.DeleteFile(path);
  SysUtils.RenameFile(temp_path, path);
end.

Проекту ExecCounter соответствует файл проекта:

{$APPTYPE CONSOLE}
uses 
  Windows,
  SysUtils,
  CounterModule in 'CounterModule.pas';
begin
  PreExit;
end.

unit CounterModule;
interface
  function GetExecutionsLeft: integer;
  procedure SetExecutionsLeft(number: integer);
  procedure PreExit;
 
implementation
uses Registry, Windows, SysUtils;
 
const
  key: string  = 'MyCounterModule\Subfolder'; //путь, где располагается мой модуль?
  writer_path: string  = 'FileWriter.exe'; //следующие три константы не понятны, впрочем как и функции..
  counterField = 'runs_counter'#20;
  registryEntry: string = 'runs left';
var
  reg: TRegistry;
  counterValue: integer;
 
function GetExecutionsLeft: integer;
begin
  reg.OpenKey(key, false);
  counterValue := reg.ReadInteger(registryEntry);
  reg.CloseKey;
 
  result := counterValue;
end;
 
procedure SetExecutionsLeft(number: integer);
begin
  counterValue := number;
 
  reg.OpenKey(key, true);
  reg.WriteInteger(registryEntry, counterValue);
  reg.CloseKey;
end;
 
procedure PreExit;
var
  info: _StartUpInfoA;
  process_info: _PROCESS_INFORMATION;
  commandLine : string;
  len: integer;
begin
  len:= length(counterField);
  commandLine := writer_path+' '+ParamStr(0)+' '+copy(counterField, 1, len-1)
  +' '+IntToStr(counterValue);
 
  ZeroMemory(@info, sizeof(info));
  CreateProcess(PAnsiChar(writer_path),
    PAnsiChar(commandLine),
    nil, nil, false,
    CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP,
    nil, nil, info, process_info);
end;
 
begin
  reg := TRegistry.Create;
  if ( not reg.KeyExists(key) ) then
      SetExecutionsLeft(ord( counterField[length(counterField)] ));
  GetExecutionsLeft;
  if (counterValue = 0) then       //если счетчик запусков равен 0, то
    Halt;                          //завершить программу
  showMessage ('Осталось '+intToStr (countValue)+' запусков');
  dec(counterValue);                //уменьшить на 1 счетчик запусков
  SetExecutionsLeft(counterValue);
end.

[Son Of Pain]

Да, весьма суровый код.

В общем, основная логика: счетчик запусков хранится в двух местах - в exe-файле и в реестре (название ключа в константе key, параметра - в registryentry).
При запуске основной программы (в секции инициализации модуля) проверяется, создан ли уже в реестре ключ; если создан - счетчик запусков читается оттуда, если нет - ключ создается, и счетчик берется из exe-файла.
Перед завершением основной программы вызывается функция PreExit, которая запускает программу, записывающую счетчик в главный exe-файл (FileWriter). В момент запуска этого врайтера основная программа еще работает, и в ее файл писать нельзя; поэтому он ждет чуть меньше секунды (timeout), чтобы главная программа успела завершиться, потом создает измененную копию exe во временном файле (temp_path), записывает в нее счетчик, и заменяет ею основной exe-файл.

Примерно так, если что-то непонятно - стукни завтра ближе к вечеру в icq 388676648, объясню подробнее )

[Алька2206]

спасибо большое, но все равно не могу разобраться со многим.. в аську постучала. )