Таймер на api

[fox_and_Delphi]

Всем здравствуйте.
У меня проблема как запустить таймер в отдельном потоке на api? Таймер создаю следующим способом:

procedure ProcTime;
begin
  //Сдесь код который надо выполнять
end;

{это процедура выполняется при нажатии button}
begin
  SetTimer(hWND,1,1000*120,@ProcTime);
end;

//Уничтожить таймер
KillTimer(hWND,1);

Дело в том что не могу разобраться с CreateThread\BeginThread как если не запустить в отдельном потоке форма просто виснет и все и потом программа закрывается не коректно(принудительно). Кто сможет подсказать?

[Stilet]

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

[fox_and_Delphi]

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

[Stilet]

Давно не работал с Win API в этом плане, так что не суди строго за быдлокод:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public

    { public declarations }
  end;

var tid: TThreadID;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
  stdcall;
begin
  form1.ListBox1.Items.Append('11');
end;

function tt(parameter: pointer): ptrint;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 BeginThread(nil,0,@tt,nil,0,tid);
end;


end.

[fox_and_Delphi]

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

Давно не работал с Win API в этом плане, так что не суди строго за быдлокод:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public

    { public declarations }
  end;

var tid: TThreadID;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);
  stdcall;
begin
  form1.ListBox1.Items.Append('11');
end;

function tt(parameter: pointer): ptrint;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 BeginThread(nil,0,@tt,nil,0,tid);
end;


end.

Stilet , благодарю за код но это ясно, у меня проблемы именно с создание и вообще с патоком в api, я просто не нашел на форуме раздел про api а поиск по форуму не дал ни чего.

[Stilet]

Так какие проблемы то?
Пример не помог прояснить ситуацию?

[fox_and_Delphi]

мне надо помочь разобраться с CreateThread\BeginThread , не могу правильно как воткнуть таймер в CreateThread\BeginThread таймер.

[northener]

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

мне надо помочь разобраться с CreateThread\BeginThread , не могу правильно как воткнуть таймер в CreateThread\BeginThread таймер.

Так чем помочь? Что за проблемы?

P.S. Таймер не втыкают. Втыкают нечто иное.
P.P.S. А вот с Thread'ом API-шным вам явно нужно разбираться читая МСДН и справку. Раз уж вы упоминаете и CreateThread и BeginThread.

[Stilet]

А-а-а... Я так понимаю пример мой не читал. Ладно, пока больше предложить нечего.

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

создайте нормальный поток? зачем именно апишный.
и в потоке отсчет времени проще организовать или через sleep или через WaitableTimer или через синхронизацию с основным потоком на котором таймер(еще конечно можно и свой цикл сообщений поднять )