Moment:
Code:
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
FErrorList:=TStringList.Create;
FErrorList.LoadFromFile('C:\ErrorList.txt');
FCallList:=TStringList.Create;
FCallList.LoadFromFile('C:\CallList.txt');
FCapi:=TCapi.Create(nil);
FCapi.OnIncomeCall:=FCapiIncomeCallProc;
FCapi.OnError:=FCapiErrorProc;
FCapi.DoListen([ANALOG, DIGITAL]);
end;
In der Execute Prozedure ist nix. Soll, wie man oben sieht, ein Thread werden, der alle Anrufe über die Capi aufzeichnet.