VPF::SetTimer без окна - Форум программистов

tripsin

Дата 13.6.2005, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 10.4.2005
Где: Талица

Репутация: 3
Всего: 3

Имеется вот такой код:

Код


program Project1;
uses Windows;
var h: THandle;

procedure TimerProc(wnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD);
begin
  WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOW);
  KillTimer(0,h);
end;

begin
  h := SetTimer(0,0,3000,@TimerProc);
  MessageBox(0,'Не жми на кнопку 3 секунды','',0);
end.

Почему в Win98 блокнот запускается 1 раз, а в WinXP 2 раза? smile

Как этого избежать (надо, чтобы только 1 раз)?
Я подозреваю, что WM_TIMER обрабатывается 2 раза: второй раз после цикла обработки сообщений, но окна в программе нет. smile

p0s0l

Дата 13.6.2005, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Вроде как stdcall не хватает в объявлении TimerProc...

--------------------

С уважением, г-н Посол.

tripsin

Дата 13.6.2005, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 10.4.2005
Где: Талица

Репутация: 3
Всего: 3

Хм... Попробую. Жаль XP под рукой нет. Но в Win98 код запускается и без stdcall.

З.Ы. В Win98 компилил Delphi6, а в WinXP - Delphi7. Может из-за этого ?

Yanis

Дата 13.6.2005, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Я проверил в XP. Если использовать stdcall, то блокнот запускается 1 раз.

Код


program Project1;
uses Windows;
var h: THandle;

procedure TimerProc(wnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
begin
  WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOW);
  KillTimer(0,h);
end;

begin
  h := SetTimer(0,0,3000,@TimerProc);
  MessageBox(0,'Don''t click on the button of 3 seconds','',0);
end.

К стати, почему бы не использовать задержку Windows.Sleep(3000);, тем более что программа без GUI. Типа того:

Код


program Project1;
uses
  Windows;

var
  h: THandle;

begin
  Windows.Sleep(3000);
  WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOW);
end.

Или обязательно нужно показывать MessageBox!?

--------------------

*щёлк*

tripsin

Дата 14.6.2005, 18:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 10.4.2005
Где: Талица

Репутация: 3
Всего: 3

p0s0l Yanis Большое спасибо! smile

Я уж и не знал, что думать. Теперь еще сам убедюсь smile

Yanis Sleep использовать не желательно. Надо чтобы прога продолжала работу в процессе ожидания сообщения. А код наверху просто в качестве короткого примера.

Snowy

Дата 15.6.2005, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(tripsin @ 14.6.2005, 18:50)

Sleep использовать не желательно. Надо чтобы прога продолжала работу в процессе ожидания сообщения.

Тогда так:

Код


for i:=1 to 30 do begin
  Application.ProcessMessages;
  Sleep(100);
end;

tripsin

Дата 15.6.2005, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 10.4.2005
Где: Талица

Репутация: 3
Всего: 3

Проверил.

Точно, все работает. И причина проблемы именно в stdcall.
p0s0l Респект!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »