Объявления на паскале:
Код:
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';
Пример получения всех пользователей системы и их сеансов, и пример выхода из системы одного из пользователей.
Ну напоследок переведи на паскаль данный
код
ЗЫ
Реально поиск рулит, но нужно уметь им пользоваться )