var
Form1: TForm1;
Zvonok:ICall;
Skype:TSkype;
CallStatus:TCallStatus;
st:WideString;
В кнопке звонка:
Цитата:
procedure TForm1.sButton1Click(Sender: TObject);
var
id:integer;
begin
Zvonok:=Skype.PlaceCall(sListBox1.Items[sListBox1.ItemIndex],'','','');
id:=Zvonok.Id;
end;
end.
Идет ошибка ListBox - ошибка: list index out of bounds (-1)
Мб Кто знает где можно почитать про Skype API
Последний раз редактировалось fenks; 15.08.2012 в 17:47.