таймер жизни программы

[Человек_Борща]

Функция та же, алгоритм тот же. Словесно описал, код докинул.

[Ципихович Эндрю]

ну поинтерисовался в гугле
функция GetTickCount возвращает количество миллисекунд, прошедших с момента загрузки системы
при чум тут это?
перед компиляцией запустили таймер и он тикает независимо выключили компьютер или нет
Вы ничего не напутали?

[Goodwin98]

Поясняю человеческим языком.
ТС хочет сделать триальную версию программы и спрашивает как узнать сколько прошло с момента первого запуска.
Ципихович Эндрю, научитесь уже формулировать мысли так, чтобы они были понятны тем, кого спрашиваете.

[Ципихович Эндрю]

так и есть!
Видимо приписка хорошо поставленный вопрос - половина дела, это не для меня

Итого, можно узнать сколько прошло с момента первого запуска? на VB можно? как?

[Stilet]

таймер жизни программы

Один простой вопрос: Зачем?

[Ципихович Эндрю]

затем, чтобы править миром, не могу начать
по теме не подскажите? пхп, реестр не подходит

[Человек_Борща]

Итого, можно узнать сколько прошло с момента первого запуска? на VB можно? как?

Вам оно не надо. Если вы даже не можете использовать функцию без параметров и произвести простые математ. вычисления 2-го класса.

Видимо приписка хорошо поставленный вопрос - половина дела, это не для меня

Тогда этот мир не для вас.

[Ципихович Эндрю]

>вычисления 2-го класса
в смысле школы?
задумался как я высшее образование получил
если в этой сфере не работаешь, тогда и тяжеловато с параметрами совладать
если возможно, укажите свою цену за консультацию

[Stilet]

чтобы править миром

Далеко тебе до правителя.
Я не зря спросил, намекая на множество решений задачи, которые напрямую зависят от особенностей, а ты не колешся.
Запускай тот процесс, что требует обмера через свою программу, и контролируй его закрытие. CreateProcess и WaitForSingleObject тебе в помошь, а так же пример:

var sa:_STARTUPINFO; pi: PROCESS_INFORMATION;
...
 SetLastError(0);
               if  CreateProcess(nil,PChar('та самая прога.EXE'),nil,nil,true,CREATE_DEFAULT_ERROR_MODE,nil,nil,sa,pi)
               then begin
                timeA:=Time;
                    WaitForSingleObject(pi.hProcess,INFINITE);
                timeB:=Time;
               end else begin
                RaiseLastOSError;
               end;

После чего разница в TimeA и TimaB и будет тем отрезком жизни процесса.
Это первый вариант обмера, есть и другие.

[Ципихович Эндрю]

>Это первый вариант обмера, есть и другие
Мне и одного хватит лишь бы на ВБ, сможете?