Показать сообщение отдельно
Старый 28.07.2012, 14:41   #2
demon112
Знающий
 
Регистрация: 18.03.2009
Сообщений: 223
Написано 10 полезных сообщений
(для 17 пользователей)
Ответ: Отправка смс и автозагрузка

program Autorun10Test;  
uses autorun20;  

var  
 
OldTime:integer;  
begin  

OldTime
:=autorun20.register_date(GetYear(GetCurrentTime),GetMonth(GetCurrentTime),GetDay(GetCurrentTime)+1,8,0,0,0); 
//autorun20.register_date(y,m,d,h,min,sec,ms:integer); 

if not SmsStartSend('sms://+79000000''Доброе утро любимая :*'then Halt

while 
SmsIsSending do // wait for the message to be sent 

Delay(100); 

if 
not SmsWasSuccessfull then Halt
end
вроде так.
Чтобы тебе не пришлось просыпаться - придется тебе соответствующие права дать приложению...
__________________
И суслики вам не помогут
(Offline)
 
Ответить с цитированием