Показать сообщение отдельно
  #5  
Старый 30.05.2011, 13:10
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Так ему не время компиляции нужно как я понял, а время от старта приложения до видимо события OnActive для главной формы. Тогда можно так попробовать. В основном проекте написать:
Код:
begin
  StartTime := GetTickCount;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
а в главной форме так:
Код:
procedure TForm1.FormActivate(Sender: TObject);
begin
 ShowMessage(Format('Во скока прошло %d',[GetTickCount - StartTime]));
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием