Also ich verwende die Komponente RASComm (leider keine ahnung mehr, wo ich die her habe, ist schon ein paar Jährchen her) und frage den Parameter RasConnState ab:
Delphi-Quellcode:
procedure TsMain.rasCommDial(Sender: TObject; RASConnState, ErrorCode: Longint;
status, device, modem: string);
begin
StatusBar1.Panels[0].Text := 'Gerät: ' + Modem;
Log(status);
if (errorcode <> 0) then
begin
Log(rasComm.RASGetError(errorCode)+'['+inttostr(errorcode)+']');
Dialerror := errorcode;
DialingIsDone := true;
rasComm.RASHangUp;
exit;
end;
if (RasConnState = RASCS_DISCONNECTED) then
begin
DialError := 0;
DialingIsDone := true;
rasComm.RASHangUp;
...
end;
So etwas müßte es bei Deinen Ras-Funktionen doch eigentlich auch geben?
