Содержание материала

Ниже приведён код обработчика события OnClick для Button1. Он показывает диалоговое окошко с текстом в следующем формате

 Windows started on Thursday, February 10, 2000 at 11:42:46 AM

Its been up for 0 days, 3 hours, 22 minutes, 54 seconds

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

ndays: double;

ticks: LongInt;

btime: TDateTime;

begin

{Функция GetTickCount получает количество миллисекунд, прошедших с момента старта Windows}

ticks := GetTickCount;

 

{Чтобы получить дни, необходимо разделить на количество миллисекунд в дне, 24*60*60*1000=86400000}

ndays := ticks/86400000;

 

{теперь вычитаем из текущей даты полученное количество дней работы Windows}

bTime := now-ndays;

 

{показываем диалоговое окошко с сообщением}

ShowMessage(

  FormatDateTime('"Windows started on" dddd, mmmm d, yyyy, ' +

                 '"at" hh:nn:ss AM/PM', bTime) + #10#13 +

  'Its been up for ' + IntToStr(Trunc(nDays)) + ' days,' +

  FormatDateTime(' h "hours," n "minutes," s "seconds"',ndays));

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!