SetTimer - не пашет((

AGENTX001

Дата: Вторник, 27.12.2011, 23:43 | Сообщение # 1

старожил

Сообщений: 1664

Сейчас нет на сайте

Code

procedure Step();
begin
end;

begin
SetTimer(0,0,1,@Step);
end.

Програмка консольная, при запуске вылазит

Quote

Server.lpr(23,23) Error: Incompatible type for arg no. 4: Got "<address of procedure;Register>", expected "<procedure variable type of procedure(LongWord,LongWord,LongWord,LongWord);StdCall>"

Вкурить не получается, пжст помогите!)

Добавлено (27.12.2011, 23:43)
---------------------------------------------
Уг, написал так, терь пашет, но тутже отключается

Code

procedure Step(_para1:HWND; _para2:UINT; _para3:UINT; _para4:DWORD); stdcall;
begin
end;

begin
   SetTimer(0,0,1,@Step);
end.

Уроки по GM/39DLL
[MMOG]Battle City World - легендарные танчики в новом обличие!

mitch

Дата: Среда, 28.12.2011, 00:07 | Сообщение # 2

участник

Сообщений: 224

Сейчас нет на сайте

AGENTX001, сеттаймер вроде как функция, а не процедура
http://www.codenet.ru/progr/delphi/WinAPI/SetTimer.php

TimKruz

Дата: Пятница, 30.12.2011, 16:56 | Сообщение # 3

старожил

Сообщений: 1588

Сейчас нет на сайте

AGENTX001, я тебе уже объяснял!
SetTimer(указатель_на_окно, номер_таймера, период, @процедура)

Quote (mitch)

сеттаймер вроде как функция, а не процедура

Да, но легко используется как процедура. Возвращает номер этого таймера. Если не задать указатель на окно, то придётся перехватывать событие вручную... А если правильно задать указатель на окно и не будет ошибок, вернёт номер_таймера.

Но в консольном режиме будет работать некорректно, нужен обработчик событий...
А твой код у меня ошибок не выдаёт... huh

Сообщение отредактировал TimKruz - Пятница, 30.12.2011, 16:59