[ISDN Anrufmonitor] - ISDN Sentinel

[ManuMF]

Delphi-Quellcode:

Type
  Teledat = Class(TISDN-Produkte);

var TeledatXYZ : TTISDN-Anlage;
var TeledatABC : TTISDN-Karte;

...

QUERYEND:

Delphi-Quellcode:

//Haupt-Form Deklaration
private
  procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QUERYENDSESSION;
  

procedure THaupt-Form.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  // Was auch immer noch gemacht werden soll
  Msg.Result := 1;
  Application.Terminate;
  // Close geht nicht - Form ist ja zu
end;

Gruß,
ManuMF