Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.10.2023, 12:01
infopol infopol вне форума
Прохожий
 
Регистрация: 03.06.2021
Сообщения: 35
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как получить функцию NumGet?

Есть задача определение IP и имя удаленного компьютера подключенного через терминальный доступ (RDB).
function WTSQuerySessionInformationA(hServer: THandle; SessionId: Integer;
WTSInfoClass: Integer; var ppBuffer: Pointer; var pBytesReturned: DWORD
): BOOL; stdcall; external 'wtsapi32.dll' name 'WTSQuerySessionInformationA';

Код:
const
WTSClientAddress=14
WTS_CURRENT_SESSION=-1

function Get_TerminalSesion :String;
var
  BufSize: Cardinal;
  ppBuffer:Pointer;
  pBuf:PAnsiChar;
  pSessionId: DWORD;
  const
    WTS_CURRENT_SESSION=-1;
     WTS_CUR_SERVER_HANDLE  =0;

  begin

//  WTS_CURRENT_SERVER_HANDLE:=0;

//  ProcessIdToSessionId(GetCurrentProcessId, pSessionId);
  // èëè pSessionId := DWORD(-1);
  if WTSQuerySessionInformationA(WTS_CUR_SERVER_HANDLE,WTS_CURRENT_SESSION,WTSClientAddress,ppBuffer, BufSize) then
  try
           //  pBuf:=@ppBuffer;
//  (pBuf) ;
//  ShowMessage( pBuf);
    //NumGet(Pointer(pBuf),0,'u')   ;
// SetString(Result, ppBuffer^, BufSize);
 // (ppBuffer);
  finally
    WTSFreeMemory(ppBuffer);
  end;
end;

Последний раз редактировалось infopol, 07.10.2023 в 12:23. Причина: 1
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter