1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  Luh       : PHLineApp;
  DC        : Cardinal;    
  Lo, Hi, V : DWord;
  CCo, AC   : PChar;
  H         : HWND;
  R         : LongInt;   

begin
  Lo := 0;
  Hi := 0;
  R  := -2;
  R  := lineInitialize( Luh, Application.Handle, nil, PChar( 'Test' ), DC );  //  
  ShowMessage( 'Result:  ' + Inttostr( R ) + Char( $0D ) + 'Hex:  ' + IntToHex( R, 8 ) );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  
  FillChar(LineInitExParams, sizeof(LineInitExParams), 0);
  LineInitExParams.dwTotalSize := sizeof(LineInitExParams);
  dwAPIVersion := $10000000;
  Erg := lineInitializeEx(@lineApp, HInstance, lineCallback, PChar(Application.Name), lDeviceCount, dwAPIVersion, LineInitExParams);  { < 0 is an error }
  case Erg of
    LINEERR_INVALAPPNAME : aDialClass.AddInfo('LINEERR_INVALAPPNAME');
    LINEERR_OPERATIONFAILED : aDialClass.AddInfo('LINEERR_OPERATIONFAILED');
    LINEERR_INIFILECORRUPT : aDialClass.AddInfo('LINEERR_INIFILECORRUPT');
    LINEERR_INVALPOINTER : aDialClass.AddInfo('LINEERR_INVALPOINTER');
    LINEERR_REINIT : aDialClass.AddInfo('LINEERR_REINIT');
    LINEERR_NOMEM : aDialClass.AddInfo('LINEERR_NOMEM');
    LINEERR_INVALPARAM : aDialClass.AddInfo('LINEERR_INVALPARAM');
  end;					

1:
2:
3:
4:
5:

lineApp: THandle;
procedure LineCallback(hDevice, dwMsg, dwCallbackInstance, dwParam1, dwParam2, dwParam3: DWORD);
lDeviceCount : DWORD;
dwAPIVersion : DWORD;
LineInitExParams : TLineInitializeExParams;					

1:

R  := lineInitialize( @Luh, HInstance, @LineCallBack, PChar( 'Test' ), DC );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

procedure TCustomTapiDial.OpenLine;
var
  extid   : TLineExtensionID;
  Hstr    : string;
  aResult : Integer; (*DWORD; *)

begin
  if LineApp = 0 then
  begin
    AddError(6);
    Exit;
  end;

  if lDeviceID < 0 then
  begin
    AddError(6);
    Exit;
  end;

 { Zeros CallParams structure }
  FillChar(CallParams, sizeof(CallParams), 0);
  CallParams.dwTotalSize := sizeof(CallParams);
  CallParams.dwBearerMode := LINEBEARERMODE_VOICE;
  CallParams.dwAddressMode := LINEADDRESSMODE_DIALABLEADDR;

  case lTAPIDialMode of
    ldmINTERACTIVEVOICE : CallParams.dwMediaMode := LINEMEDIAMODE_INTERACTIVEVOICE;
    ldmAUTOVOICE        : CallParams.dwMediaMode := LINEMEDIAMODE_AUTOMATEDVOICE;
    ldmDIGITALDATA      : CallParams.dwMediaMode := LINEMEDIAMODE_DIGITALDATA;
    ldmDATAMODEM        : CallParams.dwMediaMode := LINEMEDIAMODE_DATAMODEM;
    ldmVOICEVIEW        : CallParams.dwMediaMode := LINEMEDIAMODE_VOICEVIEW;
    else CallParams.dwMediaMode := LINEMEDIAMODE_INTERACTIVEVOICE;
  end;

  aResult := lineNegotiateAPIVersion(lineApp, lDeviceID, $00010000, $10000000, tapiVersion, extid);
  if aResult < 0 then  { Check for version (copied from a TAPI sample) }
  begin
    AddErrorCode(aResult,2);
  end else  { Open a line for outbound calls (here I use first device, normally the modem) }
  begin
    aResult := lineOpen(lineApp,lDeviceID, @line, tapiVersion, 0, 0,     { Zuerst Versuch ISDN }
                        LINECALLPRIVILEGE_MONITOR+LINECALLPRIVILEGE_OWNER,
                        LINEMEDIAMODE_INTERACTIVEVOICE, @CallParams);
    if aResult < 0 then
    begin
      aResult := lineOpen(lineApp, lDeviceID, @line, tapiVersion, 0, 0,  { .. oder Modem }
                          LINECALLPRIVILEGE_MONITOR, 0, @CallParams);
    end;
    case aResult of
      LINEERR_ALLOCATED : aDialClass.AddInfo('LINEERR_ALLOCATED');
      LINEERR_LINEMAPPERFAILED : aDialClass.AddInfo('LINEERR_LINEMAPPERFAILED');
      LINEERR_BADDEVICEID : aDialClass.AddInfo('LINEERR_BADDEVICEID');
      LINEERR_NODRIVER : aDialClass.AddInfo('LINEERR_NODRIVER');
      LINEERR_INCOMPATIBLEAPIVERSION : aDialClass.AddInfo('LINEERR_INCOMPATIBLEAPIVERSION');
      LINEERR_NOMEM : aDialClass.AddInfo('LINEERR_INCOMPATIBLEAPIVERSION');
      LINEERR_INCOMPATIBLEEXTVERSION : aDialClass.AddInfo('LINEERR_INCOMPATIBLEEXTVERSION');
      LINEERR_OPERATIONFAILED : aDialClass.AddInfo('LINEERR_OPERATIONFAILED');
      LINEERR_INVALAPPHANDLE : aDialClass.AddInfo('LINEERR_INVALAPPHANDLE');
      LINEERR_RESOURCEUNAVAIL : aDialClass.AddInfo('LINEERR_RESOURCEUNAVAIL');
      LINEERR_INVALMEDIAMODE : aDialClass.AddInfo('LINEERR_INVALMEDIAMODE');
      LINEERR_STRUCTURETOOSMALL : aDialClass.AddInfo('LINEERR_STRUCTURETOOSMALL');
      LINEERR_INVALPOINTER : aDialClass.AddInfo('LINEERR_INVALPOINTER');
      LINEERR_UNINITIALIZED : aDialClass.AddInfo('LINEERR_UNINITIALIZED');
      LINEERR_INVALPRIVSELECT : aDialClass.AddInfo('LINEERR_INVALPRIVSELECT');
      LINEERR_REINIT : aDialClass.AddInfo('LINEERR_REINIT');
      LINEERR_NODEVICE : aDialClass.AddInfo('LINEERR_NODEVICE');
      LINEERR_OPERATIONUNAVAIL : aDialClass.AddInfo('LINEERR_OPERATIONUNAVAIL');
    end;
    if aResult < 0 then
    begin
      AddErrorCode(aResult,6);
      line := 0;
      Exit;
    end;
  end;

  aDialClass := self;
  lLineActive := True;
  Hstr := 'Opening: ';
  if (lDev.List.Count - 1) >= lDeviceId then Hstr := Hstr+lDev.List[lDeviceId];
  AddInfo(Hstr);
end;