Tapi 32.dll

[DeddyH]

Dann fragt man sich aber doch, wieso es tapiRequestMakeCallA und tapiRequestMakeCallW gibt, wenn beide Ansi-Parameter entgegennehmen
Anyway, ich würde es so versuchen:

Delphi-Quellcode:

function tapiRequestMakeCall(DestAddress, AppName,
CalledParty, Comment: PAnsiChar): LongInt; stdcall; external 'TAPI32.DLL';

procedure TForm3.AdvGlowButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm3.AdvGlowButton2Click(Sender: TObject);
var
  PhoneNumber, AppName: AnsiString;
  i: integer;
begin
  PhoneNumber := '0017123456789';
  AppName := Application.Title;
  i := tapiRequestMakeCall(PAnsiChar(PhoneNumber), PAnsiChar(AppName), '', '');
  if i < 0 then
    ShowMessage('es ist ein Fehler aufgetreten - Abbruch des Wählvorganges!');
end;