ダイヤラを呼び出す。(TAPI32.DLLの使用)
|
TAPI32.DLLのtapiRequestMakeCall関数を呼び出します。
function tapiRequestMakeCall(pDestAddress,pAppName,pCalledParty,pComment: PChar): LongInt; stdcall; external 'TAPI32.DLL';
procedure CallDialar(Number, DName , Comment : string);
begin
tapiRequestMakeCall(pChar(Number),
PChar(Application.Title), pChar(DName), PChar(Comment));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CallDialar('06-5556-1234', '山田太郎', '');
end;
で、ダイアラが起動します。
本格的にTAPIを使う場合は、Tapi32.dll用の定義ユニットが必要です。
なお、TAPIの定義ユニットは、
外国製ですが、
d_tapi.zip (28K)のTapi.pas
tapid3.zip (28K)のTapih.pasなどがあります。
これらは、桜島子宮さんの ページ
http://www.kobira.co.jp/sakura/d_net_RasAPI.htm
からダウンロードできます。
|
|