Работа в терминале

[Powerfull100]

Ситуация такая - программа запускаеться в терминале ...
Подскажите пожайлуста как можно определить програмно ИД терминала и имя компьютера с которого этот терминал запущен. Или что еще лучще то ссылку н а литературу по роботе с терминальными сессиями, а то, что-то не могу ничего внятного найти (((
Заранее спасибо.

[Powerfull100]

Тема снимаеться ответ найден ... всем пасибо

PHP код:

type 
  _WTS_CONNECTSTATE_CLASS = ( 
    WTSActive,              // User logged on to WinStation 
    WTSConnected,           // WinStation connected to client 
    WTSConnectQuery,        // In the process of connecting to client 
    WTSShadow,              // Shadowing another WinStation 
    WTSDisconnected,        // WinStation logged on without client 
    WTSIdle,                // Waiting for client to connect 
    WTSListen,              // WinStation is listening for connection 
    WTSReset,               // WinStation is being reset 
    WTSDown,                // WinStation is down due to error 
    WTSInit);               // WinStation in initialization 
  {$EXTERNALSYM _WTS_CONNECTSTATE_CLASS} 
  WTS_CONNECTSTATE_CLASS = _WTS_CONNECTSTATE_CLASS; 
  {$EXTERNALSYM WTS_CONNECTSTATE_CLASS} 
  TWtsConnectStateClass = WTS_CONNECTSTATE_CLASS; 

************************************************************************
************************************************************************
if WTSEnumerateSessions(WTS_CURRENT_SERVER_HANDLE, 0, 1, ppSessionInfo, pCount) then 
begin
ppSessionInfo1 := ppSessionInfo;
for i := 0 to pCount - 1 do 
begin
SessionInfo := PWTS_SESSION_INFOA(ppSessionInfo);
if SessionInfo.SessionId <> 0 then 
begin
FCaption := GetLocalIPAddressClient(SessionInfo^.SessionId);
if (FCaption <> '') and (SessionInfo^.pWinStationName <> 'Console') and (SessionInfo^.State <> WTSListen) then 
begin

ListItem := nil;

for j := 0 to ListView.Items.Count - 1 do 
begin
if PItemInfo(ListView.Items[j].Data)^.SessionId = SessionInfo^.SessionId then 
begin
ListItem := ListView.Items[j];
Break;
end;
end;

if ListItem = nil then
 begin

ListItem := ListView.Items.Add;
with ListItem do begin
Caption := FCaption;
SubItems.Add(GetLocalClientName(SessionInfo^.SessionId));
SubItems.Add(SessionInfo^.pWinStationName);
SubItems.Add(GetUserName(SessionInfo^.SessionId));
SubItems.Add(DecodeSessionSate(SessionInfo^.State));
SubItems.Add('');
SubItems.Add('0ms');
end;

New(ItemInfo);
with ItemInfo^ do begin
SessionId := SessionInfo^.SessionId;
ReplyStatus := IP_SUCCESS;
ItemStatus := isNew;
SessionState := SessionInfo^.State;
WinStationName := GetUserName(SessionInfo^.SessionId);
PingThread := TPingTrhread.Create(SessionInfo^.SessionId, FCaption, ListView, FPackedSize, FTimeOut, FPingInterval);
PingThread.Resume;
end;
ListItem.Data := ItemInfo;
******************************************************************************
******************************************************************************