Този сайт използва бисквитки (cookies). Ако желаете можете да научите повече тук. Разбрах
IDG  •  PC World  •  Computerworld  •  CIO  •  CFO  •  Networkworld  •  Дискусии  •  Кариерна зона  •  Събития
computerworld | кариерна зона | Lang Cloud
Computerworld | кариерна зона | programming | Delphi

Определяне времето на работа

Delphi 986 прочитания


Ето как вие можете да определите времето на работа на Windows, считано от последното рестартиране на системата:

CODE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function WindowsUpTime : string ;
В  function MSecToTime(mSec: Integer): string;
В  const
В В В  secondTicks = 1000;
В В В  minuteTicks = 1000 * 60;
В В В  hourTicks = 1000 * 60 * 60;
В В В  dayTicks = 1000 * 60 * 60 * 24;
В  var
В В В В  D, H, M, S: string;
В В В В  ZD, ZH, ZM, ZS: Integer;
В  begin
В В В В  ZD := mSec div dayTicks;
В В В В  Dec(mSec, ZD * dayTicks) ;
В В В В  ZH := mSec div hourTicks;
В В В В  Dec(mSec, ZH * hourTicks) ;
В В В В  ZM := mSec div hourTicks;
В В В В  Dec(mSec, ZM * minuteTicks) ;
В В В В  ZS := mSec div secondTicks;
В В В В  D := IntToStr(ZD) ;
В В В В  H := IntToStr(ZH) ;
В В В В  M := IntToStr(ZM) ;
В В В В  S := IntToStr(ZS) ;
В В В В  Result := D + '.' + H + ':' + M + ':' + S;
В  end;
begin
В  result := MSecToTime(GetTickCount) ;
end;

ICON ICON ICON Tweet it! ICON

Изпращане на електронно писмо с Outlook
Когато ви се налага да изпратите по програмен път електронно писмо, може да си послужите със следната техника
Delphi 2056 прочитания
Как да затворим приложение на Delphi с бутона „escape"
Използвайте кода в примера
Delphi 1125 прочитания
Как ще разберете, че средата на Windows се затваря в Delphi приложение
Когато средата на Windows се затваря, до всички отворени приложения се изпраща съобщението WM_QueryEndSession. Ето как това съобщение може да бъде прихванато и обработено
Delphi 1092 прочитания
Добавяне на работни дни към дата
Добавяне и изваждане на брой работни дни към зададена дата
C# 1486 прочитания
Търсене на дублиран низ
Ако искате да намерите най-дългия субстринг, който се дублира използвайте кода от примера
C 1481 прочитания
Задаване на различни кавички за различните езици
:lang(de), :lang(de-de) { quotes: "\201E" "\201C" "\201A" "\2018"; }:lang(de-fr)    { quotes: "\00BB" "\00AB" "\203A" "\2039"; }:lang(de-ch)    { quotes: "\00AB" "\00BB" "\2039"...
CSS 607 прочитания
Зареждане на съдържание при скрол
var loading = false; $(window).scroll(function(){     if((($(window).scrollTop()+$(window).height())+250)>=$(document).
Javascript 632 прочитания
Малка игра със зарчета в Python
Необходимо е хвърляне на чифт за победа
Python 697 прочитания

Слайдшоу

HR на месеца

Петя Костова, старши бизнес партньор „Човешки ресурси“ VMware за България и за регион EMEA

Петя Костова, старши бизнес партньор „Човешки ресурси“ VMware за България и за регион EMEA

“ Петя Костова, старши бизнес партньор „Човешки ресурси“ VMware за България и за регион EMEA, е лице на рубриката HR of the Month („ЧР на месеца“) през февруари. Инициативата се... ” вижте още »

IT сертификати