GetTime глючит в windows Опции

[Игорь]

Программа с GetTime (или GetDate?) при запуске из windows предлагает ввести новое время. Старые ф-ии выполняют новые действия или я опять что-то сломал?

[volvo]

Программа с GetTime (или GetDate?) при запуске из windows предлагает ввести новое время.

Ошибка в общем случае не воспроизводится. Под WinXP + TP7 GetTime работает совершенно так же, как и под ДОС... Приводи код, если нужна более детальная помощь.

[TarasBer]

Я спрошу немного о другой проблеме времени. Если графическое приложение свернуть, а потом через минуту развернуть, то где-то с минуту время будет догонять настоящее. При написании игр, использующих таймер, это очень мешает.

[volvo]

Если графическое приложение свернуть, а потом через минуту развернуть, то где-то с минуту время будет догонять настоящее.

Не подтверждается.

Вот эта программа (Показать/Скрыть)

uses dos, graph, crt;

procedure PrintTime;

  function IntToStr(I: Longint): string;
  var s: string;
  begin
    Str(I, s);
    if length(s) < 2 then s := '0' + s;
    IntToStr := s;
  end;

var
  hr, min, sec, hnd: word;
  s: string;
begin
  clearviewport;
  gettime(hr, min, sec, hnd);
  s := inttostr(hr) + ':' + inttostr(min) + ':' +
       inttostr(sec) + '.' + inttostr(hnd);
  outtextxy(getmaxx div 4, 5 + textheight('W'), s);
end;
var
  Driver, Mode: integer;
  Err: integer;

begin
  initgraph(Driver, Mode, '');
  Err := graphresult;
  if Err = grOk then
  begin
    setviewport(0, 0, getmaxx div 2, 10 + textheight('W'), clipon);
    settextjustify(centertext, centertext);
    repeat
      PrintTime;
      if keypressed then
      case readkey of
        #27: break;
      end;
      delay(50);
    until false;
    closegraph;
  end
  else writeln('error on InitGraph: ', grapherrormsg(Err));
end.

была откомпилирована, запущена, свернута и на 4 минуты я про нее забыл (проверял почту через браузер). Потом развернул - время не отстало ни на секунду...

[TarasBer]

Win XP SP2?

[andriano]

Я спрошу немного о другой проблеме времени. Если графическое приложение свернуть, а потом через минуту развернуть, то где-то с минуту время будет догонять настоящее. При написании игр, использующих таймер, это очень мешает.

Встречал такой эффект в DOS-программах, запущенных в Windows.
IMHO хоть это и не всегда удобно, но, тем не менее, логично: DOS-сессиия должна получить эмуляцию всех аппаратных прерываний таймера. В свернутом состоянии она ничего не получает. Ничего не остается, как в ускоренном темпе скормить ей все эти прерывания после разворачивания - вплоть до момента, когда внутренние часы DOS-сессии догонят системные.

[volvo]

Win XP SP2?

SP3

[TarasBer]

SP3

В ней другой ntvdm? Его можно как-то настроить или заменить?