Thema: Remotedesktop

Einzelnen Beitrag anzeigen

Benutzerbild von Remko
Remko

Registriert seit: 10. Okt 2006
Ort: 's-Hertogenbosch, Die Niederlande
222 Beiträge
 
RAD-Studio 2010 Arc
 
#44

Re: Remotedesktop

  Alt 16. Mär 2007, 08:19
Also ich versuche Deutsch, Entschuldigung fur fehlers

Eine Remote Desktop session ist anlich an ein Terminal Server Session. Microsoft hat eine API für Terminal Server. Mit dieser API ist es möglich ein Session zu Disconnecten (wie heiBt das in Deutsch) oder Abgemeldet. Man kann die API remote (von PC1) oder local (von PC2) benutzen.
Mit ein Disconnect bleibt dien Programm laufen, mit abmelden werd es abgeslossen.

Also, zum Disconnect Session 0 auf PC2 von PC1:

Delphi-Quellcode:
uses JwaWtsApi32;

var hServer: THandle;

hServer := WTSOpenServerW('PC2');
WTSDisconnectSession(hServer, 0, False);
WTSCloseServer(hServer);
Zum Disconnect Session 0 auf pc2 von pc2 (aus diener programm):
Delphi-Quellcode:
Uses JwaWtsApi32;

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

WTSDisconnectSession(SERVERNAME_CURRENT, LOGONID_CURRENT, False);
SERVERNAME_CURRENT ist eine constante für die lokale PC, LOGONID_CURRENT ist eine constante für die jezt aktieve session.
  Mit Zitat antworten Zitat