помогите написать звонилку. Мне срочно нужно. Я знаю ее как писать но у меня ниче не получается скажите пожалуйста код программы простой звонилки или скажите мне хоть ссылку. Заранее огромное спасибо

И Скажите это правильный код программы

var hCommFile : THandle;
procedure TForm1.Button1Click(Sender: TObject);
var PhoneNumber : string;
CommPort : string;
NumberWritten : LongInt;
begin PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10; CommPort := 'COM2'; hCommFile := CreateFile(PChar(CommPort),GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hCommFile=INVALID_HANDLE_VALUE then begin ShowMessage('Unable to open '+ CommPort); exit; end; NumberWritten:=0; if WriteFile(hCommFile, PChar(PhoneNumber)^, Length(PhoneNumber), NumberWritten, nil) = false then begin ShowMessage('Unable to write to ' + CommPort); end; end; procedure TForm1.Button2Click(Sender: TObject); begin CloseHandle(hCommFile); end;

Посмотри на www.sources.ru/delphi/index.html там много всякого.

там есть но не понятно написано помогите кто-нибудь!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Олжас Качай компоненты MagnaRas и вперед, там все есть

Где их взять? В google

Спасибо ща попробую

Добавлено спустя 4 часа, 4 минуты, 26 секунд:
гогл не находит не фига дай плиз ссылку или че нить еще и в рамблере тоже не находит