Звук

[supernewbie]

Можно ли сделать звуковое оповещение при приходе пакета?

И еще, как сделать TForm всегда в фоновом режиме? (Поверх всех окон)

[J-Fobos]

Насчет звука не уверен, но если не найдется ничего лучше использования плагинов, то можно использовать функцию ShowMessage(msg:Variant); предварительно в настройках винды установив нужный звук на это событие.

Поверх всех окон вот так:

var Form1:TForm;
//==========
Form1.FormStyle:=fsStayOnTop;

[Fer123]

На счет звука - можно использовать функцию Beep из kernel32.dll
вот пример

var kernel32:integer;

procedure Init; 
begin
kernel32 := loadLibrary('kernel32.dll');
end;

Procedure Free;
begin
FreeLibrary(kernel32);
end;

begin
if FromServer and (pck[1]=#$03) then CallFunction(kernel32,'Beep',2,[200,1000]); // где 200 это частота гудка, а 1000 время звучания в милисекундах
end.

[supernewbie]

че-то веер не работает)

[Fer123]

У меня работает.. Кинь CallFunction(kernel32,'Beep',2,[200,100]); в Init там точно сработает. У тебя же ОС windows?

[supernewbie]

win XP sp 2 x64

Добавлено через 55 секунд
и ничего не слышно) никакого бип)

Добавлено через 9 часов 58 минут
форма стала в топе, остался вопрос про звук

[alexteam]

и ничего не слышно) никакого бип)

спикер отсуствует ?

Добавлено через 2 минуты
по поводу звука.
function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; external 'winmm.dll' name 'PlaySoundA'; stdcall;
игрет вав.
я плагин для пх выкладывал. добавляющий плайсоунд в скриптовый движек. но его с дампа потерли уже давно. попроси у тамбика\гака.. у них возможно он остался.

[supernewbie]

эммм, тамбик? гак? кто-нибудь?

Добавлено через 4 минуты

Сообщение от alexteam

function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; external 'winmm.dll' name 'PlaySoundA'; stdcall;

это все вообще выдает ошибку при компиляции..

Добавлено через 5 минут
ну вот кое-что, что НОРМАЛЬНО работает...

lib := loadLibrary('user32.dll');
CallFunction(lib,'MessageBeep',1,[5000]);

[alexteam]

это все вообще выдает ошибку при компиляции..

а кто тебе сказал что оно должно компилиццо в фастскрипте в таком виде ?

Добавлено через 30 секунд

ну вот кое-что, что НОРМАЛЬНО работает...

вот. для сравнения.
function MessageBeep(uType: UINT): BOOL; external 'user32.dll' name 'MessageBeep';

[QaK]

Сообщение от alexteam

гака

это кто такой?