Remotedesktop

[Remko]

use WTSDisconnectSession:

Delphi-Quellcode:

Uses JwaWtsApi32;

const
  SERVERNAME_CURRENT  = HANDLE(0);
  LOGONID_CURRENT = ULONG(-1);

var bRes: Boolean;

bRes := WTSDisconnectSession(SERVERNAME_CURRENT, LOGONID_CURRENT, False);

if bRes then
begin
   Application.Terminate;
end;