[Vayrus]

Объявления на паскале:

Код:

const
  WTS_CURRENT_SERVER_HANDLE =0;
  wtsapi = 'wtsapi32.dll';

function WTSDisconnectSession(hServer: THandle; SessionId: DWORD; bWait: BOOL): BOOL; stdcall;
  external wtsapi name 'WTSDisconnectSession';

function WTSLogoffSession(hServer: THandle; SessionId: DWORD; bWait: BOOL): BOOL; stdcall;
  external wtsapi name 'WTSLogoffSession';

Пример получения всех пользователей системы и их сеансов, и пример выхода из системы одного из пользователей.
Ну напоследок переведи на паскаль данный код

ЗЫ
Реально поиск рулит, но нужно уметь им пользоваться )