Пример приложения на winapi

← →
ply © (2011-12-09 19:03) [0]

Нужно создать приложение на WinApi, которое
1. выполняет определенные действия,
2. ждет 5 минут
3. снова к п.1

Дайте плиз простейший пример

← →
Ega23 © (2011-12-09 19:18) [1]

while Ture do begin Sleep(5*60*1000); Beep; end;

← →
Anatoly Podgoretsky © (2011-12-09 21:40) [2]

> ply (09.12.2011 19:03:00) [0]

И пятерка в кармане, а нам то что?

← →
Inovet © (2011-12-09 22:27) [3]

> [1] Ega23 © (09.12.11 19:18)
> Sleep(5*60*1000);
> Beep;

Сначала выполняет, потом ждёт. А пятёрку поделит на всех делавших, т.е. Ега отдаст, в еденицах измерения им пожелаемых, например, литрах.

← →
Dennis I. Komarov © (2011-12-09 23:55) [4]

> while Ture do

на 5-ку не тянет :)

← →
Ega23 © (2011-12-10 00:15) [5]

> на 5-ку не тянет :)

Я ж прям тут пишу. А редактор сей не умный, Syntax Check не делает

← →
Dennis I. Komarov © (2011-12-10 00:29) [6]

> Ega23 © (10.12.11 00:15) [5]

тебе, все равно, не простительно :)

← →
Германн © (2011-12-10 00:29) [7]

> на 5-ку не тянет :)
>

Эт да. Я всегда предпочитал
repeat ... until False;
:)
Отрыжка Турбо Паскаля в виде keypressed.

← →
DVM © (2011-12-11 22:51) [8]

> Ega23 © (09.12.11 19:18) [1]
> while Ture do
> begin
> Sleep(5*60*1000);
> Beep;
> end;
>
>

на WinApi же просили :)

while true do
begin
Beep;
case WaitForSingleObject(FShutdownEvent, 5*60*1000) of
WAIT_OBJECT_0, WAIT_FAILED: break;
else
Continue;
end;
end;

← →
Inovet © (2011-12-11 23:19) [9]

> [8] DVM © (11.12.11 22:51)
> на WinApi же просили :)

Sleep же из Win API.

← →
DVM © (2011-12-11 23:43) [10]

зато Beep() не из WinAPI.
вот Windows.Beep(1000, 1000) — другое дело.

> Inovet (12.12.2011 16:04:12) [12]

А это то чем не устраивает, родная функция WinAPI

> [13] Anatoly Podgoretsky © (12.12.11 16:19)
> А это то чем не устраивает, родная функция WinAPI

Пусть две будет - препод похвалит.

Пример приложения на winapi Найти похожие ветки