Listview vsList Multiselect bei RDP

[Thomasl]

Danke für die schnelle Antwort

Das csRecreating ist bei mir nicht gekommen (im MainForm)
Die Auswahl im Listview stelle ich jetzt bei "WTS_SESSION_UNLOCK" wieder her

Delphi-Quellcode:

procedure TFormMain.WTS_SessionWndProc(var Message: TMessage);
begin
  if Message.Msg = WM_WTSSESSION_CHANGE then
  begin
    case Message.wParam of
      WTS_SESSION_LOCK,
      WTS_REMOTE_DISCONNECT:  DoHandleRDPLock;
      WTS_REMOTE_CONNECT,
      WTS_SESSION_UNLOCK:  DoHandleRDPUnLock;
    end;
  end;
  Message.Result := DefWindowProc(FMethodWnd, Message.Msg, Message.WParam, Message.LParam);
end;