Invio sms da programmi esterni - esempio in delphi

Formato del testo:

///////////////////// parte prima: apertura del programma sms:

receiverHandle := FindWindow(PChar('TForm_sms'),nil);
if receiverHandle=0 then
begin
winexec('sms.exe', SW_SHOWNORMAL);
receiverHandle := FindWindow(PChar('TForm_sms'),nil);
end;

//////////////////////////////////////// invio sms

procedure SendSms(stringToSend: string);
var
copyDataStruct : TCopyDataStruct;
begin
if receiverHandle>0 then
begin
copyDataStruct.dwData := 0; //use it to identify the message contents
copyDataStruct.cbData := 1 + Length(stringToSend);
copyDataStruct.lpData := PChar(stringToSend);
w:=sendMessage(receiverHandle, WM_COPYDATA, Integer(form1.Handle), Integer(@copyDataStruct));
(se tutto ok w=0)
end ;
end;

Esempio di riga di importazione (formato testo)

I singoli campi devono essere separati dal simbolo pipe o da un tabulatore (char #9); ogni riga può contenere un solo sms.  
Esempio di riga:

3477097881|Pino|Caro amico ti scrivo così mi distraggo e siccome sei molto lontano più forte ti scriverò