Tapi 32.dll

[Alterauge]

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;