[KORSA_MC]

Вот такая проблема стоял delphi 7(прога работала норм,но по некоторым причинам пришлось поставить хе3 ,поставил 2012 XE3 и программа стала выдавать не правильное время все перерыл ничего не нашёл может подскажите.... вот код :

Код:

function TimeWorks: String;
var
  Hours,
  Minutes,
  Seconds,
  MSeconds,
  TheLength: Integer;
begin
  Hours:=TheLength div 3600000;
  Minutes:=(TheLength mod 3600000) div 60000;
  Seconds:=((TheLength mod 3600000) mod 60000)div 1000;
  MSeconds:=((TheLength mod 3600000) mod 60000)mod 1000;
  result := IntToStr(Hours)+':'+IntToStr(Minutes)+':'+IntToStr(Seconds);
  end;
begin
  Label1.Caption := 'Продолжительность работы компьютера : '+TimeWorks;
  end;

Админ: Пользуемся тегами дял оформления кода!

[angvelem]

delphi 7(прога работала норм...
...поставил 2012 XE3 и программа стала выдавать не правильное...

И в Дельфи 7 программа не могла работать правмльно

Код:

...
  Hours := TheLength div 3600000;
...

TheLength - локальная переменная и без инициализации в ней находится "мусор". И этот "мусор" вы делите, получая в результате такой же "мусор".

[Alegun]

Сообщение от angvelem

И в Дельфи 7 программа не могла работать правмльно...

Точно подмечено, так не могло работать, но походу в коде просто пропущена первая строчка после begin

Код:

TheLength := GetTickCount;

[KORSA_MC]

Спасибо помогло )))

[KORSA_MC]

Вот у меня ещё такой вопрос программа показывает мне время работы ПК с того момента как я скомпилировал её и даже выключая компьютер и сново включая время не сбрасываеться как быть?

[M.A.D.M.A.N.]

Продолжительность работы компа можно получить ф-ей GetTickCount (точнее работы системы).

[Alegun]

Сообщение от KORSA_MC

...программа показывает мне время работы ПК с того момента как я скомпилировал её и даже выключая компьютер и сново включая время не сбрасываеться как быть?

Код:

TheLength := GetCurrentTime; // время в миллисекундах, прошедшее с момента последнего запуска системы