![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#5
|
||||
|
||||
|
Так ему не время компиляции нужно как я понял, а время от старта приложения до видимо события 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; |