Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

ply © (2011-12-09 19:03:00)
Нужно создать приложение на WinApi, которое
1. выполняет определенные действия,
2. ждет 5 минут
3. снова к п.1

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

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

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

Anatoly Podgoretsky (2011-12-12 16:19:00) [2]
> Inovet (12.12.2011 16:04:12) [12]

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

Inovet (2011-12-12 16:04:00) [3]
> [11] RWolf © (12.12.11 10:00)
> вот Windows.Beep(1000, 1000) — другое дело.

Ещё
MessageBeep(MB_OK)

RWolf (2011-12-12 10:00:00) [4]
зато Beep() не из WinAPI.
вот Windows.Beep(1000, 1000) — другое дело.

DVM (2011-12-11 23:43:00) [5]

> Inovet © (11.12.11 23:19) [9]

> Sleep же из Win API.

А, ну да, действительно :)

Inovet (2011-12-11 23:19:00) [6]
> [8] DVM © (11.12.11 22:51)
> на WinApi же просили :)

Sleep же из Win API.

DVM (2011-12-11 22:51:00) [7]

> 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;

Dennis I. Komarov (2011-12-10 00:29:00) [8]

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

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

Германн (2011-12-10 00:29:00) [9]

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

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

Ega23 (2011-12-10 00:15:00) [10]

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

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

Dennis I. Komarov (2011-12-09 23:55:00) [11]

> while Ture do

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

Inovet (2011-12-09 22:27:00) [12]
> [1] Ega23 © (09.12.11 19:18)
> Sleep(5*60*1000);
> Beep;

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

Anatoly Podgoretsky (2011-12-09 21:40:00) [13]
> ply (09.12.2011 19:03:00) [0]

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

Ega23 (2011-12-09 19:18:00) [14]
while Ture do begin Sleep(5*60*1000); Beep; end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »