Форум: "Система";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизПомогите! Как позвонить?... Найти похожие ветки
← →
Dimaz-z (2003-04-07 22:32) [0]Как вызвать системную функцию дозвона? Голосовой звонок, без TAPI
← →
Cobalt (2003-04-09 00:35) [1]в смысле, RASAPI?
Или ты намекаешь на SpeechApi?
← →
demonyator (2003-04-10 02:51) [2]У меня работает, поппробуй сам, если чё не сработает, - могу свой Unit на мыло сбросить.
Function Call(number:Integer):Boolean;
var
I:Integer;
begin
with (Sender as YourSelf) do begin
StandUp;
FindYourPhone;
TakeTheTrubka;
if Trubka.hasDialTone=True then with YourHands do begin
for I:=0 to Number.Count-1 do begin
if FindButton(I) then ClickButton(I) else Exit;
end;
Sleep(5000);
If Trubka.PodrugaIsConnected then Result:=True else Result:=False;
end;
end;
end;
← →
demonyator (2003-04-10 03:02) [3]Ой, сорри, ошибка в коде, строку "If Trubka.PodrugaIsConnected then Result:=True else Result:=False;" перенеси перед последним end"ом, иначе Result может быть Undefined.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c