[cda]

Всем доброго дня. Такая загвоздка - нужно узнать время компиляции. Не дату, а именно время в секундах от нажатия ф9 и до вывода формы и всех компонентов на экран

Стандартными средствами или подскажите как остановить таймер. На форме есть таймер, лэйблы для вывода время и канва, на которой рисуются линии. После отрисовки таймер должен остановится

[Страдалецъ]

Это не время компиляции, а время запуска приложения и зависит оно от многих факторов. От наличия в кэше аналогичного блока данных, от фрагментации памяти,диска. От наличия антивируса или еще каких программ сторонних, наконец просто от скорости работы компа и т.д.

[cda]

Сообщение от Страдалецъ

Это не время компиляции, а время запуска приложения и зависит оно от многих факторов. От наличия в кэше аналогичного блока данных, от фрагментации памяти,диска. От наличия антивируса или еще каких программ сторонних, наконец просто от скорости работы компа и т.д.

Я в курсе, от чего оно зависит. Тем не менее, вопрос остался, мне нужно это время считать

[Thrasher]

Компилируй программу из командной строки. Например

Dcc32 project.dpr >info.txt

в Info.txt при успешной компиляции будет написано время компиляции

[Страдалецъ]

Так ему не время компиляции нужно как я понял, а время от старта приложения до видимо события 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;