Помогите написать звонилку

[Nervous_from_morning]

Люди!!!! Пожалуиста помогите написать звонилку срочно надо у меня код есть но не получается напишите пож. код хоть простенькой звонилки в инет
БООООЛЬЬЬШШОЕЕЕ СПАИБО

[Var-Alex]

RAS API? Смотри в MSDN и портируй в дельфу функции да структуры. Там всё просто.

[Anonymous]

Люди!!!! Пожалуиста помогите написать звонилку срочно надо у меня код есть но не получается напишите пож. код хоть простенькой звонилки в инет
БООООЛЬЬЬШШОЕЕЕ СПАИБО

У меня есть исходник звонилки, стукни мне в асю, договоримся !!
ICQ: 1720912

[Судейкина Ирина]

procedure Sound(Frequency, Duration: Integer);
asm
   push edx
   push eax
   mov eax, Win32Platform
   cmp eax, VER_PLATFORM_WIN32_NT
   jne @@9X
   call Windows.Beep
   ret
@@9X:
   pop eax
   pop edx
   push ebx
   push edx
   mov bx, ax
   mov ax, 34DDh
   mov dx, 0012h
   cmp dx, bx
   jnc @@2
   div bx
   mov bx, ax
   in al, 61h
   test al, 3
   jnz @@1
   or al, 3
   out 61h, al
   mov al, 0B6h
   out 43h, al
@@1:
   mov al, bl
   out 42h, al
   mov al, bh
   out 42h, al
   call Windows.Sleep
   in al, 61h
   and al, 0FCh
   out 61h, al
   jmp @@3
@@2:
   pop edx
@@3:
   pop ebx
end;

Вызываешь где нужно:

Sound(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

Или просто:

Sound(1500,200);

[OSokin]

Если юзать telnet, то это лучше на C++... Но в инет - не знаю