Решение задачи со временем

[LiNeR70]

Задача в том, что бы по прошествию 15 секунд изменять системное время на 14 секунд обратно)) не нашел аналогов на форумах, прошу помогите пожалуйста

[GunSmoker]

1. Поставить таймер на 15 секунд.
2. При срабатывании таймера - установить системное время.
3. Перейти к п1.

[LiNeR70]

2. При срабатывании таймера - установить системное время.

вот именно с этим проблемы, как изменить только секунды и загнать их в цикл?))

[GunSmoker]

GetSystemTime + SetSystemTime.

[LiNeR70]

Большое спасибо на делфи до этого пробовал сделать, только не совсем понял зачем Getsystemtime, вопрос еще такой, как в си сделать цикл шаг которого будет равен секунде? или как нибудь попросить его считать секунды?))

[VerhoLom]

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

Большое спасибо на делфи до этого пробовал сделать, только не совсем понял зачем Getsystemtime, вопрос еще такой, как в си сделать цикл шаг которого будет равен секунде? или как нибудь попросить его считать секунды?))

1. Getsystemtime нужен для того, чтобы Вы могли перевести время назад, а такое можно сделать только получив текущее время, чем Getsystemtime и занимается...

2.

int t=1;
while(t){
         sleep(1000);
         // чего-то делаем
         if(!t) break;
}

[LiNeR70]

Всем спасибо, задача решена так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
     function gethours: integer;
function getmins: integer;
function getsecs: integer;



type
  TForm1 = class(TForm)
  Timer1: TTimer;
  Button1: TButton;
  procedure Timer1Timer(Sender: TObject);
  procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

function gethours: integer;
var
  s: string;
  h: integer;
begin
  s := timetostr(time);
  h := strtoint(s[1] + s[2]);
  Result := h;

end;

function getmins: integer;
var
  s: string;
  h: integer;
begin
  s := timetostr(time);
  h := strtoint(s[4] + s[5]);
  Result := h;
end;

function getsecs: integer;
var
  s: string;
  h: integer;
begin
  s := timetostr(time);
  h := strtoint(s[7] + s[8]);
  Result := h;
end;


procedure SetSysDateTime;
var
  ST : _SYSTEMTIME;

begin
  GetSystemTime(ST);
 ST.wSecond := ST.wSecond-14 ;
  SetSystemTime(ST);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getsecs>=15 then
  begin
   setsysdatetime;
   sleep(1000*15);
   end
else sleep(1000);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Close;
end;

end.

Но только проблема в том что программа виснет после запуска))

[Dj_SheLL]

Хоть сообщение и было давнешнее,но столкнулся с проблемой с функциями-они при подсчёте часа и минут,захватывали (когда часы и минуты с 0 по 9) знак ":",решил таким образом,вдруг кому пригодится:

function gethours: integer;
var
  s:string;
  h:integer;
begin
  s:=timetostr(time);
  if s[2]=':' then h:=strtoint(s[1]) else h:=strtoint(s[1]+s[2]);
  Result:=h;
end;

function getmins: integer;
var
  s:string;
  h:integer;
begin
  s:=timetostr(time);
  if s[5]=':' then h:=strtoint(s[4]) else h:=strtoint(s[4]+s[5]);
  Result:=h;
end;