Как запускать программу 1 раз за N запусков Wind-ы

[misher]

Вопрос в названии темы, помогите с кодом.

[shanluu]

а как программа без запуска узнает сколько раз была запущена винда ?

[misher]

Программу 1 -вый раз запускаеш все работает, потом после завершения сеанса Windows, она начинает считать(стоит автозапуск программы)...
С таким кодом она будет работать только 1 раз в сеансе

    procedure TForm1.FormShow(Sender : TObject);
var atom : integer;

CRLF : string;
begin

if
GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then //я думал это число, поставил 5 но и на 6 раз программа не запустилась... 
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
else
begin
CRLF := #10 + #13;
ShowMessage('Данная версия предусматривает только один запуск в текущем сеансе Windows.' + CRLF +
'Для повторного запуска вам необходимо перезапустить Windows, или, что лучше:' + CRLF +
'ЗАРЕГИСТРИРУЙТЕСЬ !!');
Close;
end;
end;

[GunSmoker]

Есть подозрение на X, Y, Z.

Вам зачем?

Вы в курсе, что, наверное, около трети машин не выключаются вообще (а уходят в гибернацию)?

[DeKot]

Как запускать программу 1 раз за N запусков Wind-ы
...помогите с кодом.

С кодом не подскажу, но в общем случае алгоритм следующий. Нужны две программы - первая, собственно, та что запускется 1 раз за N включений компа и вторая программа (работает в автозапуске и в фоновом режиме), которая подсчитывает включения и при нужном их количестве запускает первую программу, сбрасывает необходимые переменные в исходное для возможности очередного подсчета включений.

[BoT_T]

Я так понял ты хочешь затриалить прогу. Создай файл или же ключ в реестре, и при запуски проги проверяй его. Если не совпадает с предыдущим то +1 к N запускам, если же совпадают то программа запущена несколько раз при 1 запуске винды.