Показать сообщение отдельно
Старый 09.04.2008, 08:33   #5
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Смс отправка.

Без библиотеки практически аналогично:

Procedure TryToSendSMS(Number: string, sms_text: string);
begin
	exit := FALSE;
	if not SmsStartSend('sms://' + Number, sms_text) then Halt;
	if exit = false then while SmsIsSending do Delay(100);
	if not SmsWasSuccessfull then Halt;
end;
(Offline)
 
Ответить с цитированием