uses
ShellApi;
//
//
procedure TForm1.Button1Click(Sender: TObject);
var
cmd,params: string;
begin
cmd := 'c:\sms\sms.exe';
params := 'send="Привет мир!"'; // текст сообщения
params := params+' to="79131231212,79021231212"'; // телефон(ы)
params := params+' from="SMSFIRMA"'; // Номер отправителя или ID
params := params+' apikey="КЛЮЧ"'; //
// params := params + ' proxy="user:pass@192.169.1.14:8080"'; // прокси
ShellExecute(Self.Handle, 'open', PChar(cmd), PChar(params), nil, SW_SHOWNORMAL);
end;
|