Beep хочу. В смысле - бииип. :-))

Chukcha

Сабж, господа.
как бы юзеру попищать спикером, поморгать окном, выскочить поверх других окон или чтонибудьтакое?
Подскажите, плиззз.

РМщик

напиши лучше "что-нибудь такое" на каком-нибудь делфи или си,
а в нужный момент - вызывай через фм WS_EXECUTE

Правда, исполняемый модуль должен быть на каждой локальной машине, но это не беда - при запуске твоего приложения - проверяй, есть ли у пользователя нужный файл, а если нет - быстренько его скопируй. Или вообще - можно на сети положить

Ну не предназначен сап для визуальных эффектов

trop

можно так:

Code:

type-pools ole2.
data h_wb  type ole2_object.
create object h_wb 'Word.Basic'.
call method of h_wb 'Beep'. "system beep
wait up to 1 seconds.
call method of h_wb 'MsgBox'
  exporting #1 = 'hello!'.
free h_wb.

можно еще попробовать js, только не факт что быстрее

ArmAnn

ФМ TH_POPUP, если выскочить

Chukcha

trop написал(а):

create object h_wb 'Word.Basic'.

Чуть правильнее, кажись, -
create object h_wb 'Word.WordBasic'.
но бипать не хочет. Хоть и не ругается. Метод "Beep" есть, но тишина.
Может, надо через VBA вызывать...

Остается использовать TH_POPUP.
По крайней мере, на верх выскакивает, железно.
:-)

Спасибо всем.

trop

на office xp работает,
а word.wordbasic это что-то новенькое, может alias какой-то

посмотри что в subrc после word.wordbasic

word.basic = word 2.0 ,должно работать

Правила форума

Beep хочу. В смысле - бииип. :-))

Кто сейчас на конференции