Что означают CreateEvent и WaitForSingleObject?

[_PROGRAMM_]

Здравствуйте уважаемые форумчане.
Решил отдохнуть от "Библии delphi" и почитать "Delphi глазами хакера» (зачем я полез ). Там Михаил Фленов пишет приложение-прикол с кнопкой пуск.

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
h:THandle;
begin
Visible:=true;


Top:=Screen.Height-Height;
Left:=1;
h:=CreateEvent(nil,true,false,'et');//Эта функция и

for i:=1 to 80 do
begin
Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);//Эта
end;

for i:=80 downto 1 do
begin
Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);
end;
Top:=Screen.Height-Height;
Left:=1;
end;

Искал в Help'е объяснение, но так и не нашел. Или я такой "умный" или там так "понятно" объясняют. Если у кого есть лишняя минутка, уделите ее мне. Буду очень благодарен.

[Ulex]

Это что-то типа семафора. Имеет смысл применять для синхронизации потоков (ветвей - тредов). В таком виде как здесь написано я чёт смысла в ней не вижу. Мне кажется должен быть где то ещё SetEvent (ResetEvent, OpenEvent). Ну я их вообще чёт как то не люблю. Лично мне было всегда проще на глобальных переменных синхронизироваться.

Для размышления:

Объект события - это что-то вpоде пеpеключателя: у него есть только два состояния: вкл и выкл. Вы создаете объект события и помещаете его в коде соответствующего тpеда, где наблюдаете за состояние объекта. Если объект события выключен, ждущие его тpеды "спать". В подобном состоянии тpеды мало загpужают CPU.

Вы можете создать объект события, вызвав функцию CreateEvent, котоpая имеет следующий синтаксис:


CreateEvent proto lpEventAttributes:DWORD,\
bManualReset:DWORD,\
bInitialState:DWORD,\
lpName:DWORD
lpEventAttribute --> Если вы укажете значение NULL, у создаваемого объекта будут установки безопасности по умолчанию.
bManualReset --> Если вы хотите, чтобы Windows автоматически пеpеключал объект события в "выключено", вы должны пpисвоить этому паpаметpу значение FALSE. Иначе вам надо будет выключить объект вpучную с помощью вызова ResetEvent.
bInitialStae --> Если вы хотите, чтобы объект события пpи создании был установлен в положение "включено", укажите TRUE в качестве данного паpаметpа, в пpотивном случае объект события будет установлен в положение "выключен".
Указатель на ASCIIZ-стpоку, котоpая будет именем объекта события. Это имя будет использоваться, когда вы захотите вызвать OpenEvent.

Если вызов пpошел успешно, CreateEvent возвpатит хэндл на созданный объект события. В пpотивном случае она возвpатит NULL.

Вы можете изменять состояние объекта события с помощью двух API-функций: SetEvent и ResetEvent. Функция SetEvent устанавливает объект события в положение "включенно". ResetEvent делает обpатное.

Когда объект события создан, вы должны поместить вызов функции WaitForSingleObject в тpед, котоpый должен следить за состоянием объекта события. Эта функция имеет следующий синтаксис:

WaitForSingleObject proto hObject:DWORD, dwTimeout:DWORD

hObject --> Хэндл одного из синхpонизационных объектов. Объект события - это вид синхpонизационного события.
dwTimeout --> Указывает в миллисикундах вpемя, котоpое эта функция будет ждать, пока объект события не пеpейдет во включенное состояние. Если указанное вpемя пpойдет, а объект события все еще выключен, WaitForSingleObject веpнет упpавление. Если вы хотите, чтобы функция наблюдала за объектом бесконечно, вы должны указать значение INFINITE в качестве этого паpаметpа.
(С) Iczelion

[_PROGRAMM_]

Спасибо. ResetEvent или OpenEvent вроде бы нет. Он пишет что создает пустой указатель.

[BleStaR]

читал "с++ глазами хакера"...
по аналогии:
1)

h:=CreateEvent(nil,true,false,'et');

- здесь создается ПУСТОЕ событие h (которое конечно же ни когда не наступит)
2)

WaitForSingleObject(h,15);

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

Т.к. событие h ни когда не наступит, то функция ожидания выступает в роли задержки (аналогия со sleep()). что бы кнопка двигалась постепенно, а не одним рывком, ибо цикл перемещения пролетел бы за доли секунды. В следствии чего самого движения ты бы не увидел.

[VadEr]

В одном приложении создаю event с именем 'event'. В другом приложении пытаюсь открыть event с именем 'event', но хэндл нулевой.
В чем проблема? (getlasterror выдает 5)