Hallo,
das Telefon wird angesprochen!
Es wird aber nur eine '0' übermittelt, und nicht die ganze Nummer! Wieso?
Delphi-Quellcode:
{$R *.dfm}
function tapiRequestMakeCall(DestAddress, AppName,
CalledParty, Comment: PChar): LongInt; stdcall; external 'TAPI32.DLL';
procedure TForm3.AdvGlowButton1Click(Sender: TObject);
begin
Form3.Close;
end;
procedure TForm3.AdvGlowButton2Click(Sender: TObject);
var
PhoneNumber, AppName: array[0..255] of Char;
i: integer;
begin
PhoneNumber := '0017123456789';
StrPCopy(AppName, Application.Title);
tapiRequestMakeCall(PhoneNumber, AppName, '', '');
if i < 0 then
ShowMessage('es ist ein Fehler aufgetreten - Abbruch des Wählvorganges!');
end;