Timer в консольном приложении

[Lauri]

Sleep не подойдёт.
Как реализовать?

[eduard93]

А почему консольное? Скрытые окна создавать можно?

[Пепел Феникса]

Апи функция SetTimer+цикл стандартных сообщений.

а вообще зачем это?
не проще ли многопоточность замутить со Sleep?

[eduard93]

Без петли выборки сообщений работать не будет.

[Lauri]

Сообщение от Пепел Феникса

Апи функция SetTimer+цикл стандартных сообщений.

а вообще зачем это?
не проще ли многопоточность замутить со Sleep?

спасибо

нужно каждые N минут отправлять данные на сервер

function SetTimer(Wnd: HWnd; IDEvent: Integer; Elapse: Word; TimerFunc: TFarProc): Word;
покажи ещё плз пример использования

[eduard93]

Так зачем все эти извороты? Вы хотите добиться минимального размера проги? Тогда причем тут консоль?

[Вадим Мошев]

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

Так зачем все эти извороты? Вы хотите добиться минимального размера проги? Тогда причем тут консоль?

Автору темы поясняю, что программу можно написать вообще без форм, это будет своеобразный "скрипт"

[Пепел Феникса]

нужно каждые N минут отправлять данные на сервер

и чем Sleep не подходит?
зачем воротить велосипед?
или вам нужно между отправками данных чтото еще делать?

говорите цель полностью, ибо пока Sleep наиболее верное решение.

[veniside]

> нужно каждые N минут отправлять данные на сервер

нужно — отправляйте:

program
  Project2;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, Classes;

const
  N = 10; // every 10 minutes

var
  evThreadTerminate: THandle;

type
  myThread = class(TThread)
  protected
    procedure Execute(); override;
  end;


{ myThread }

procedure myThread.Execute();
begin
  while (not Terminated) do begin
    //
    if (WAIT_OBJECT_0 = WaitForSingleObject(evThreadTerminate, N * 60000)) then
      break;
    //
    // send data
    // .....
  end;
end;


// -- main --

begin
  evThreadTerminate := CreateEvent(nil, true, false, nil);
  try
    myThread.Create(false).FreeOnTerminate := true;
    //
    // do your stuff
    //..
    //
    ReadLn;
    //
    //  close thread when done
    SetEvent(evThreadTerminate);
  finally
    CloseHandle(evThreadTerminate);
  end;
end.