开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWtsApi32.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：50k
源码类别：

Windows编程

开发平台：

Delphi

JwaWtsApi32.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Terminal Services API interface Unit for Object Pascal                       }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: wtsapi32.h, released June 2000. The original Pascal    }
  9. { code is: WtsApi32.pas, released December 2000. The initial developer of the  }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaWtsApi32;
  46. interface
  48. uses
  49.   JwaWinNT, JwaWinType;
  51. //   Windows Terminal Server public APIs
  52. //
  53. //   Copyright 1995-1999, Citrix Systems Inc.
  54. //   Copyright (c) 1997-1999  Microsoft Corporation
  56. //==============================================================================
  57. // Defines
  58. //==============================================================================
  60. //
  61. //  Specifies the current server
  62. //
  64. const
  65.   WTS_CURRENT_SERVER        = HANDLE(0);
  66.   {$EXTERNALSYM WTS_CURRENT_SERVER}
  67.   WTS_CURRENT_SERVER_HANDLE = HANDLE(0);
  68.   {$EXTERNALSYM WTS_CURRENT_SERVER_HANDLE}
  69.   WTS_CURRENT_SERVER_NAME   = '';
  70.   {$EXTERNALSYM WTS_CURRENT_SERVER_NAME}
  72. //
  73. //  Specifies the current session (SessionId)
  74. //
  76.   WTS_CURRENT_SESSION = DWORD(-1);
  77.   {$EXTERNALSYM WTS_CURRENT_SESSION}
  79. //
  80. //  Possible pResponse values from WTSSendMessage()
  81. //
  83.   IDTIMEOUT = 32000;
  84.   {$EXTERNALSYM IDTIMEOUT}
  85.   IDASYNC   = 32001;
  86.   {$EXTERNALSYM IDASYNC}
  88. //
  89. //  Shutdown flags
  90. //
  92.   WTS_WSD_LOGOFF = $00000001;           // log off all users except
  93.   {$EXTERNALSYM WTS_WSD_LOGOFF}         // current user; deletes
  94.                                         // WinStations (a reboot is
  95.                                         // required to recreate the
  96.                                         // WinStations)
  97.   WTS_WSD_SHUTDOWN = $00000002;         // shutdown system
  98.   {$EXTERNALSYM WTS_WSD_SHUTDOWN}
  99.   WTS_WSD_REBOOT   = $00000004;         // shutdown and reboot
  100.   {$EXTERNALSYM WTS_WSD_REBOOT}
  101.   WTS_WSD_POWEROFF = $00000008;         // shutdown and power off (on
  102.   {$EXTERNALSYM WTS_WSD_POWEROFF}
  103.                                         // machines that support power
  104.                                         // off through software)
  105.   WTS_WSD_FASTREBOOT = $00000010;       // reboot without logging users
  106.   {$EXTERNALSYM WTS_WSD_FASTREBOOT}     // off or shutting down
  108. //==============================================================================
  109. // WTS_CONNECTSTATE_CLASS - Session connect state
  110. //==============================================================================
  112. type
  113.   _WTS_CONNECTSTATE_CLASS = (
  114.     WTSActive,              // User logged on to WinStation
  115.     WTSConnected,           // WinStation connected to client
  116.     WTSConnectQuery,        // In the process of connecting to client
  117.     WTSShadow,              // Shadowing another WinStation
  118.     WTSDisconnected,        // WinStation logged on without client
  119.     WTSIdle,                // Waiting for client to connect
  120.     WTSListen,              // WinStation is listening for connection
  121.     WTSReset,               // WinStation is being reset
  122.     WTSDown,                // WinStation is down due to error
  123.     WTSInit);               // WinStation in initialization
  124.   {$EXTERNALSYM _WTS_CONNECTSTATE_CLASS}
  125.   WTS_CONNECTSTATE_CLASS = _WTS_CONNECTSTATE_CLASS;
  126.   {$EXTERNALSYM WTS_CONNECTSTATE_CLASS}
  127.   TWtsConnectStateClass = WTS_CONNECTSTATE_CLASS;
  129. //==============================================================================
  130. // WTS_SERVER_INFO - returned by WTSEnumerateServers (version 1)
  131. //==============================================================================
  133. //
  134. //  WTSEnumerateServers() returns two variables: pServerInfo and Count.
  135. //  The latter is the number of WTS_SERVER_INFO structures contained in
  136. //  the former.  In order to read each server, iterate i from 0 to
  137. //  Count-1 and reference the server name as
  138. //  pServerInfo[i].pServerName; for example:
  139. //
  140. //  for ( i=0; i < Count; i++ ) {
  141. //      _tprintf( TEXT("%s "), pServerInfo[i].pServerName );
  142. //  }
  143. //
  144. //  The memory returned looks like the following.  P is a pServerInfo
  145. //  pointer, and D is the string data for that pServerInfo:
  146. //
  147. //  P1 P2 P3 P4 ... Pn D1 D2 D3 D4 ... Dn
  148. //
  149. //  This makes it easier to iterate the servers, using code similar to
  150. //  the above.
  151. //
  153. type
  154.   PWTS_SERVER_INFOW = ^WTS_SERVER_INFOW;
  155.   {$EXTERNALSYM PWTS_SERVER_INFOW}
  156.   _WTS_SERVER_INFOW = record
  157.     pServerName: LPWSTR; // server name
  158.   end;
  159.   {$EXTERNALSYM _WTS_SERVER_INFOW}
  160.   WTS_SERVER_INFOW = _WTS_SERVER_INFOW;
  161.   {$EXTERNALSYM WTS_SERVER_INFOW}
  162.   TWtsServerInfoW = WTS_SERVER_INFOW;
  163.   PWtsServerInfoW = PWTS_SERVER_INFOW;
  165.   PWTS_SERVER_INFOA = ^WTS_SERVER_INFOA;
  166.   {$EXTERNALSYM PWTS_SERVER_INFOA}
  167.   _WTS_SERVER_INFOA = record
  168.     pServerName: LPSTR; // server name
  169.   end;
  170.   {$EXTERNALSYM _WTS_SERVER_INFOA}
  171.   WTS_SERVER_INFOA = _WTS_SERVER_INFOA;
  172.   {$EXTERNALSYM WTS_SERVER_INFOA}
  173.   TWtsServerInfoA = WTS_SERVER_INFOA;
  174.   PWtsServerInfoA = PWTS_SERVER_INFOA;
  176. {$IFDEF UNICODE}
  177.   WTS_SERVER_INFO = WTS_SERVER_INFOW;
  178.   {$EXTERNALSYM WTS_SERVER_INFO}
  179.   PWTS_SERVER_INFO = PWTS_SERVER_INFOW;
  180.   {$EXTERNALSYM PWTS_SERVER_INFO}
  181.   TWtsServerInfo = TWtsServerInfoW;
  182.   PWtsServerInfo = PWtsServerInfoW;
  183. {$ELSE}
  184.   WTS_SERVER_INFO = WTS_SERVER_INFOA;
  185.   {$EXTERNALSYM WTS_SERVER_INFO}
  186.   PWTS_SERVER_INFO = PWTS_SERVER_INFOA;
  187.   {$EXTERNALSYM PWTS_SERVER_INFO}
  188.   TWtsServerInfo = TWtsServerInfoA;
  189.   PWtsServerInfo = PWtsServerInfoA;
  190. {$ENDIF}
  192. //==============================================================================
  193. // WTS_SESSION_INFO - returned by WTSEnumerateSessions (version 1)
  194. //==============================================================================
  196. //
  197. //  WTSEnumerateSessions() returns data in a similar format to the above
  198. //  WTSEnumerateServers().  It returns two variables: pSessionInfo and
  199. //  Count.  The latter is the number of WTS_SESSION_INFO structures
  200. //  contained in the former.  Iteration is similar, except that there
  201. //  are three parts to each entry, so it would look like this:
  202. //
  203. //  for ( i=0; i < Count; i++ ) {
  204. //      _tprintf( TEXT("%-5u  %-20s  %un"),
  205. //                pSessionInfo[i].SessionId,
  206. //                pSessionInfo[i].pWinStationName,
  207. //                pSessionInfo[i].State );
  208. //  }
  209. //
  210. //  The memory returned is also segmented as the above, with all the
  211. //  structures allocated at the start and the string data at the end.
  212. //  We'll use S for the SessionId, P for the pWinStationName pointer
  213. //  and D for the string data, and C for the connect State:
  214. //
  215. //  S1 P1 C1 S2 P2 C2 S3 P3 C3 S4 P4 C4 ... Sn Pn Cn D1 D2 D3 D4 ... Dn
  216. //
  217. //  As above, this makes it easier to iterate the sessions.
  218. //
  220. type
  221.   PWTS_SESSION_INFOW = ^WTS_SESSION_INFOW;
  222.   {$EXTERNALSYM PWTS_SESSION_INFOW}
  223.   _WTS_SESSION_INFOW = record
  224.     SessionId: DWORD;              // session id
  225.     pWinStationName: LPWSTR;       // name of WinStation this session is connected to
  226.     State: WTS_CONNECTSTATE_CLASS; // connection state (see enum)
  227.   end;
  228.   {$EXTERNALSYM _WTS_SESSION_INFOW}
  229.   WTS_SESSION_INFOW = _WTS_SESSION_INFOW;
  230.   {$EXTERNALSYM WTS_SESSION_INFOW}
  231.   TWtsSessionInfoW = WTS_SESSION_INFOW;
  232.   PWtsSessionInfoW = PWTS_SESSION_INFOW;
  234.   PWTS_SESSION_INFOA = ^WTS_SESSION_INFOA;
  235.   {$EXTERNALSYM PWTS_SESSION_INFOA}
  236.   _WTS_SESSION_INFOA = record
  237.     SessionId: DWORD;              // session id
  238.     pWinStationName: LPSTR;        // name of WinStation this session is connected to
  239.     State: WTS_CONNECTSTATE_CLASS; // connection state (see enum)
  240.   end;
  241.   {$EXTERNALSYM _WTS_SESSION_INFOA}
  242.   WTS_SESSION_INFOA = _WTS_SESSION_INFOA;
  243.   {$EXTERNALSYM WTS_SESSION_INFOA}
  244.   TWtsSessionInfoA = WTS_SESSION_INFOA;
  245.   PWtsSessionInfoA = PWTS_SESSION_INFOA;
  247. {$IFDEF UNICODE}
  248.   WTS_SESSION_INFO = WTS_SESSION_INFOW;
  249.   PWTS_SESSION_INFO = PWTS_SESSION_INFOW;
  250.   TWtsSessionInfo = TWtsSessionInfoW;
  251.   PWtsSessionInfo = PWtsSessionInfoW;
  252. {$ELSE}
  253.   WTS_SESSION_INFO = WTS_SESSION_INFOA;
  254.   PWTS_SESSION_INFO = PWTS_SESSION_INFOA;
  255.   TWtsSessionInfo = TWtsSessionInfoA;
  256.   PWtsSessionInfo = PWtsSessionInfoA;
  257. {$ENDIF}
  259. //==============================================================================
  260. // WTS_PROCESS_INFO - returned by WTSEnumerateProcesses (version 1)
  261. //==============================================================================
  263. //
  264. //  WTSEnumerateProcesses() also returns data similar to
  265. //  WTSEnumerateServers().  It returns two variables: pProcessInfo and
  266. //  Count.  The latter is the number of WTS_PROCESS_INFO structures
  267. //  contained in the former.  Iteration is similar, except that there
  268. //  are four parts to each entry, so it would look like this:
  269. //
  270. //  for ( i=0; i < Count; i++ ) {
  271. //      GetUserNameFromSid( pProcessInfo[i].pUserSid, UserName,
  272. //                          sizeof(UserName) );
  273. //      _tprintf( TEXT("%-5u  %-20s  %-5u  %sn"),
  274. //              pProcessInfo[i].SessionId,
  275. //              UserName,
  276. //              pProcessInfo[i].ProcessId,
  277. //              pProcessInfo[i].pProcessName );
  278. //  }
  279. //
  280. //  The memory returned is also segmented as the above, with all the
  281. //  structures allocated at the start and the string data at the end.
  282. //  We'll use S for the SessionId, R for the ProcessId, P for the
  283. //  pProcessName pointer and D for the string data, and U for pUserSid:
  284. //
  285. //  S1 R1 P1 U1 S2 R2 P2 U2 S3 R3 P3 U3 ... Sn Rn Pn Un D1 D2 D3 ... Dn
  286. //
  287. //  As above, this makes it easier to iterate the processes.
  288. //
  290. type
  291.   PWTS_PROCESS_INFOW = ^WTS_PROCESS_INFOW;
  292.   {$EXTERNALSYM PWTS_PROCESS_INFOW}
  293.   _WTS_PROCESS_INFOW = record
  294.     SessionId: DWORD;     // session id
  295.     ProcessId: DWORD;     // process id
  296.     pProcessName: LPWSTR; // name of process
  297.     pUserSid: PSID;       // user's SID
  298.   end;
  299.   {$EXTERNALSYM _WTS_PROCESS_INFOW}
  300.   WTS_PROCESS_INFOW = _WTS_PROCESS_INFOW;
  301.   {$EXTERNALSYM WTS_PROCESS_INFOW}
  302.   TWtsProcessInfoW = WTS_PROCESS_INFOW;
  303.   PWtsProcessInfoW = PWTS_PROCESS_INFOW;
  305.   PWTS_PROCESS_INFOA = ^WTS_PROCESS_INFOA;
  306.   {$EXTERNALSYM PWTS_PROCESS_INFOA}
  307.   _WTS_PROCESS_INFOA = record
  308.     SessionId: DWORD;    // session id
  309.     ProcessId: DWORD;    // process id
  310.     pProcessName: LPSTR; // name of process
  311.     pUserSid: PSID;      // user's SID
  312.   end;
  313.   {$EXTERNALSYM _WTS_PROCESS_INFOA}
  314.   WTS_PROCESS_INFOA = _WTS_PROCESS_INFOA;
  315.   {$EXTERNALSYM WTS_PROCESS_INFOA}
  316.   TWtsProcessInfoA = WTS_PROCESS_INFOA;
  317.   PWtsProcessInfoA = PWTS_PROCESS_INFOA;
  319. {$IFDEF UNICODE}
  320.   WTS_PROCESS_INFO = WTS_PROCESS_INFOW;
  321.   {$EXTERNALSYM WTS_PROCESS_INFO}
  322.   PWTS_PROCESS_INFO = PWTS_PROCESS_INFOW;
  323.   {$EXTERNALSYM PWTS_PROCESS_INFO}
  324.   TWtsProcessInfo = TWtsProcessInfoW;
  325.   PWtsProcessInfo = PWtsProcessInfoW;
  326. {$ELSE}
  327.   WTS_PROCESS_INFO = WTS_PROCESS_INFOA;
  328.   {$EXTERNALSYM WTS_PROCESS_INFO}
  329.   PWTS_PROCESS_INFO = PWTS_PROCESS_INFOA;
  330.   {$EXTERNALSYM PWTS_PROCESS_INFO}
  331.   TWtsProcessInfo = TWtsProcessInfoA;
  332.   PWtsProcessInfo = PWtsProcessInfoA;
  333. {$ENDIF}
  335. //==============================================================================
  336. // WTS_INFO_CLASS - WTSQuerySessionInformation
  337. // (See additional typedefs for more info on structures)
  338. //==============================================================================
  340. const
  341.   WTS_PROTOCOL_TYPE_CONSOLE = 0; // Console
  342.   {$EXTERNALSYM WTS_PROTOCOL_TYPE_CONSOLE}
  343.   WTS_PROTOCOL_TYPE_ICA     = 1; // ICA Protocol
  344.   {$EXTERNALSYM WTS_PROTOCOL_TYPE_ICA}
  345.   WTS_PROTOCOL_TYPE_RDP     = 2; // RDP Protocol
  346.   {$EXTERNALSYM WTS_PROTOCOL_TYPE_RDP}
  348. type
  349.   _WTS_INFO_CLASS = (
  350.     WTSInitialProgram,
  351.     WTSApplicationName,
  352.     WTSWorkingDirectory,
  353.     WTSOEMId,
  354.     WTSSessionId,
  355.     WTSUserName,
  356.     WTSWinStationName,
  357.     WTSDomainName,
  358.     WTSConnectState,
  359.     WTSClientBuildNumber,
  360.     WTSClientName,
  361.     WTSClientDirectory,
  362.     WTSClientProductId,
  363.     WTSClientHardwareId,
  364.     WTSClientAddress,
  365.     WTSClientDisplay,
  366.     WTSClientProtocolType);
  367.   {$EXTERNALSYM _WTS_INFO_CLASS}
  368.   WTS_INFO_CLASS = _WTS_INFO_CLASS;
  369.   TWtsInfoClass = WTS_INFO_CLASS;
  371. //==============================================================================
  372. // WTSQuerySessionInformation - (WTSClientAddress)
  373. //==============================================================================
  375. type
  376.   PWTS_CLIENT_ADDRESS = ^WTS_CLIENT_ADDRESS;
  377.   {$EXTERNALSYM PWTS_CLIENT_ADDRESS}
  378.   _WTS_CLIENT_ADDRESS = record
  379.     AddressFamily: DWORD;           // AF_INET, AF_IPX, AF_NETBIOS, AF_UNSPEC
  380.     Address: array [0..19] of BYTE; // client network address
  381.   end;
  382.   {$EXTERNALSYM _WTS_CLIENT_ADDRESS}
  383.   WTS_CLIENT_ADDRESS = _WTS_CLIENT_ADDRESS;
  384.   {$EXTERNALSYM WTS_CLIENT_ADDRESS}
  385.   TWtsClientAddress = WTS_CLIENT_ADDRESS;
  386.   PWtsClientAddress = PWTS_CLIENT_ADDRESS;
  388. //==============================================================================
  389. // WTSQuerySessionInformation - (WTSClientDisplay)
  390. //==============================================================================
  392. type
  393.   PWTS_CLIENT_DISPLAY = ^WTS_CLIENT_DISPLAY;
  394.   {$EXTERNALSYM PWTS_CLIENT_DISPLAY}
  395.   _WTS_CLIENT_DISPLAY = record
  396.     HorizontalResolution: DWORD; // horizontal dimensions, in pixels
  397.     VerticalResolution: DWORD;   // vertical dimensions, in pixels
  398.     ColorDepth: DWORD;           // 1=16, 2=256, 4=64K, 8=16M
  399.   end;
  400.   {$EXTERNALSYM _WTS_CLIENT_DISPLAY}
  401.   WTS_CLIENT_DISPLAY = _WTS_CLIENT_DISPLAY;
  402.   {$EXTERNALSYM WTS_CLIENT_DISPLAY}
  403.   TWtsClientDisplay = WTS_CLIENT_DISPLAY;
  404.   PWtsClientDisplay = PWTS_CLIENT_DISPLAY;
  406. //==============================================================================
  407. // WTS_CONFIG_CLASS - WTSQueryUserConfig/WTSSetUserConfig
  408. //==============================================================================
  410. type
  411.   _WTS_CONFIG_CLASS = (
  412.     //Initial program settings
  413.     WTSUserConfigInitialProgram,          // string returned/expected
  414.     WTSUserConfigWorkingDirectory,        // string returned/expected
  415.     WTSUserConfigfInheritInitialProgram,  // DWORD returned/expected
  416.     //
  417.     WTSUserConfigfAllowLogonTerminalServer,  //DWORD returned/expected
  418.     //Timeout settings
  419.     WTSUserConfigTimeoutSettingsConnections,  //DWORD returned/expected
  420.     WTSUserConfigTimeoutSettingsDisconnections, //DWORD returned/expected
  421.     WTSUserConfigTimeoutSettingsIdle,          //DWORD returned/expected
  422.     //Client device settings
  423.     WTSUserConfigfDeviceClientDrives,   //DWORD returned/expected
  424.     WTSUserConfigfDeviceClientPrinters,         //DWORD returned/expected
  425.     WTSUserConfigfDeviceClientDefaultPrinter,   //DWORD returned/expected
  426.     //Connection settings
  427.     WTSUserConfigBrokenTimeoutSettings,         //DWORD returned/expected
  428.     WTSUserConfigReconnectSettings,             //DWORD returned/expected
  429.     //Modem settings
  430.     WTSUserConfigModemCallbackSettings,         //DWORD returned/expected
  431.     WTSUserConfigModemCallbackPhoneNumber,      // string returned/expected
  432.     //Shadow settings
  433.     WTSUserConfigShadowingSettings,             //DWORD returned/expected
  434.     //User Profile settings
  435.     WTSUserConfigTerminalServerProfilePath,     // string returned/expected
  436.     //Terminal Server home directory
  437.     WTSUserConfigTerminalServerHomeDir,         // string returned/expected
  438.     WTSUserConfigTerminalServerHomeDirDrive,    // string returned/expected
  439.     WTSUserConfigfTerminalServerRemoteHomeDir); // DWORD 0:LOCAL 1:REMOTE
  440.   {$EXTERNALSYM _WTS_CONFIG_CLASS}
  441.   WTS_CONFIG_CLASS = _WTS_CONFIG_CLASS;
  442.   TWtsConfigClass = WTS_CONFIG_CLASS;
  444. {$IFDEF FALSE}
  446. // There we're remove in June 2001 PSDK (pre-release)
  448.   PWTS_USER_CONFIG_SET_NWSERVERW = ^WTS_USER_CONFIG_SET_NWSERVERW;
  449.   {$EXTERNALSYM PWTS_USER_CONFIG_SET_NWSERVERW}
  450.   _WTS_USER_CONFIG_SET_NWSERVERW = record
  451.     pNWServerName: LPWSTR;
  452.     pNWDomainAdminName: LPWSTR;
  453.     pNWDomainAdminPassword: LPWSTR;
  454.   end;
  455.   {$EXTERNALSYM _WTS_USER_CONFIG_SET_NWSERVERW}
  456.   WTS_USER_CONFIG_SET_NWSERVERW = _WTS_USER_CONFIG_SET_NWSERVERW;
  457.   {$EXTERNALSYM WTS_USER_CONFIG_SET_NWSERVERW}
  458.   TWtsUserConfigSetNwserverW = WTS_USER_CONFIG_SET_NWSERVERW;
  459.   PWtsUserConfigSetNwserverW = PWTS_USER_CONFIG_SET_NWSERVERW;
  461.   PWTS_USER_CONFIG_SET_NWSERVERA = ^WTS_USER_CONFIG_SET_NWSERVERA;
  462.   {$EXTERNALSYM PWTS_USER_CONFIG_SET_NWSERVERA}
  463.   _WTS_USER_CONFIG_SET_NWSERVERA = record
  464.     pNWServerName: LPSTR;
  465.     pNWDomainAdminName: LPSTR;
  466.     pNWDomainAdminPassword: LPSTR;
  467.   end;
  468.   {$EXTERNALSYM _WTS_USER_CONFIG_SET_NWSERVERA}
  469.   WTS_USER_CONFIG_SET_NWSERVERA = _WTS_USER_CONFIG_SET_NWSERVERA;
  470.   {$EXTERNALSYM WTS_USER_CONFIG_SET_NWSERVERA}
  471.   TWtsUserConfigSetNwserverA = WTS_USER_CONFIG_SET_NWSERVERA;
  472.   PWtsUserConfigSetNwserverA = PWTS_USER_CONFIG_SET_NWSERVERA;
  474. {$IFDEF UNICODE}
  475.   WTS_USER_CONFIG_SET_NWSERVER  = WTS_USER_CONFIG_SET_NWSERVERW;
  476.   {$EXTERNALSYM WTS_USER_CONFIG_SET_NWSERVER}
  477.   PWTS_USER_CONFIG_SET_NWSERVER = PWTS_USER_CONFIG_SET_NWSERVERW;
  478.   {$EXTERNALSYM PWTS_USER_CONFIG_SET_NWSERVER}
  479.   TWtsUserConfigSetNwserver = TWtsUserConfigSetNwserverW;
  480.   PWtsUserConfigSetNwserver = PWtsUserConfigSetNwserverW;
  481. {$ELSE}
  482.   WTS_USER_CONFIG_SET_NWSERVER  = WTS_USER_CONFIG_SET_NWSERVERA;
  483.   {$EXTERNALSYM WTS_USER_CONFIG_SET_NWSERVER}
  484.   PWTS_USER_CONFIG_SET_NWSERVER = PWTS_USER_CONFIG_SET_NWSERVERA;
  485.   {$EXTERNALSYM PWTS_USER_CONFIG_SET_NWSERVER}
  486.   TWtsUserConfigSetNwserver = TWtsUserConfigSetNwserverA;
  487.   PWtsUserConfigSetNwserver = PWtsUserConfigSetNwserverA;
  488. {$ENDIF}
  489. {$ENDIF}
  491. //==============================================================================
  492. // WTS_EVENT - Event flags for WTSWaitSystemEvent
  493. //==============================================================================
  495. const
  496.   WTS_EVENT_NONE        = $00000000; // return no event
  497.   {$EXTERNALSYM WTS_EVENT_NONE}
  498.   WTS_EVENT_CREATE      = $00000001; // new WinStation created
  499.   {$EXTERNALSYM WTS_EVENT_CREATE}
  500.   WTS_EVENT_DELETE      = $00000002; // existing WinStation deleted
  501.   {$EXTERNALSYM WTS_EVENT_DELETE}
  502.   WTS_EVENT_RENAME      = $00000004; // existing WinStation renamed
  503.   {$EXTERNALSYM WTS_EVENT_RENAME}
  504.   WTS_EVENT_CONNECT     = $00000008; // WinStation connect to client
  505.   {$EXTERNALSYM WTS_EVENT_CONNECT}
  506.   WTS_EVENT_DISCONNECT  = $00000010; // WinStation logged on without client
  507.   {$EXTERNALSYM WTS_EVENT_DISCONNECT}
  508.   WTS_EVENT_LOGON       = $00000020; // user logged on to existing WinStation
  509.   {$EXTERNALSYM WTS_EVENT_LOGON}
  510.   WTS_EVENT_LOGOFF      = $00000040; // user logged off from existing WinStation
  511.   {$EXTERNALSYM WTS_EVENT_LOGOFF}
  512.   WTS_EVENT_STATECHANGE = $00000080; // WinStation state change
  513.   {$EXTERNALSYM WTS_EVENT_STATECHANGE}
  514.   WTS_EVENT_LICENSE     = $00000100; // license state change
  515.   {$EXTERNALSYM WTS_EVENT_LICENSE}
  516.   WTS_EVENT_ALL         = $7fffffff; // wait for all event types
  517.   {$EXTERNALSYM WTS_EVENT_ALL}
  518.   WTS_EVENT_FLUSH       = DWORD($80000000); // unblock all waiters
  519.   {$EXTERNALSYM WTS_EVENT_FLUSH}
  521. //==============================================================================
  522. // WTS_VIRTUAL_CLASS - WTSVirtualChannelQuery
  523. //==============================================================================
  525. type
  526.   _WTS_VIRTUAL_CLASS = (WTSVirtualClientData, WTSVirtualFileHandle);  
  527.   {$EXTERNALSYM _WTS_VIRTUAL_CLASS}
  528.   WTS_VIRTUAL_CLASS = _WTS_VIRTUAL_CLASS;
  529.   {$EXTERNALSYM WTS_VIRTUAL_CLASS}
  530.   TWtsVirtualClass = WTS_VIRTUAL_CLASS;
  532. //==============================================================================
  533. // Windows Terminal Server public APIs
  534. //==============================================================================
  536. function WTSEnumerateServersA(pDomainName: LPSTR; Reserved, Version: DWORD;
  537.   var ppServerInfo: PWTS_SERVER_INFOA; var pCount: DWORD): BOOL; stdcall;
  538. {$EXTERNALSYM WTSEnumerateServersA}
  539. function WTSEnumerateServersW(pDomainName: LPWSTR; Reserved, Version: DWORD;
  540.   var ppServerInfo: PWTS_SERVER_INFOW; var pCount: DWORD): BOOL; stdcall;
  541. {$EXTERNALSYM WTSEnumerateServersW}
  543. {$IFDEF UNICODE}
  544. function WTSEnumerateServers(pDomainName: LPWSTR; Reserved, Version: DWORD;
  545.   var ppServerInfo: PWTS_SERVER_INFOW; var pCount: DWORD): BOOL; stdcall;
  546. {$EXTERNALSYM WTSEnumerateServers}
  547. {$ELSE}
  548. function WTSEnumerateServers(pDomainName: LPSTR; Reserved, Version: DWORD;
  549.   var ppServerInfo: PWTS_SERVER_INFOA; var pCount: DWORD): BOOL; stdcall;
  550. {$EXTERNALSYM WTSEnumerateServers}
  551. {$ENDIF}
  553. //------------------------------------------------------------------------------
  555. function WTSOpenServerA(pServerName: LPSTR): HANDLE; stdcall;
  556. {$EXTERNALSYM WTSOpenServerA}
  557. function WTSOpenServerW(pServerName: LPWSTR): HANDLE; stdcall;
  558. {$EXTERNALSYM WTSOpenServerW}
  560. {$IFDEF UNICODE}
  561. function WTSOpenServer(pServerName: LPWSTR): HANDLE; stdcall;
  562. {$EXTERNALSYM WTSOpenServer}
  563. {$ELSE}
  564. function WTSOpenServer(pServerName: LPSTR): HANDLE; stdcall;
  565. {$EXTERNALSYM WTSOpenServer}
  566. {$ENDIF}
  568. //------------------------------------------------------------------------------
  570. procedure WTSCloseServer(hServer: HANDLE); stdcall;
  571. {$EXTERNALSYM WTSCloseServer}
  573. //------------------------------------------------------------------------------
  575. function WTSEnumerateSessionsA(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  576.   var ppSessionInfo: PWTS_SESSION_INFOA; var pCount: DWORD): BOOL; stdcall;
  577. {$EXTERNALSYM WTSEnumerateSessionsA}
  578. function WTSEnumerateSessionsW(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  579.   var ppSessionInfo: PWTS_SESSION_INFOW; var pCount: DWORD): BOOL; stdcall;
  580. {$EXTERNALSYM WTSEnumerateSessionsW}
  582. {$IFDEF UNICODE}
  583. function WTSEnumerateSessions(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  584.   var ppSessionInfo: PWTS_SESSION_INFOW; var pCount: DWORD): BOOL; stdcall;
  585. {$EXTERNALSYM WTSEnumerateSessions}
  586. {$ELSE}
  587. function WTSEnumerateSessions(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  588.   var ppSessionInfo: PWTS_SESSION_INFOA; var pCount: DWORD): BOOL; stdcall;
  589. {$EXTERNALSYM WTSEnumerateSessions}
  590. {$ENDIF}
  592. //------------------------------------------------------------------------------
  594. function WTSEnumerateProcessesA(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  595.   var ppProcessInfo: PWTS_PROCESS_INFOA; var pCount: DWORD): BOOL; stdcall;
  596. {$EXTERNALSYM WTSEnumerateProcessesA}
  597. function WTSEnumerateProcessesW(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  598.   var ppProcessInfo: PWTS_PROCESS_INFOW; var pCount: DWORD): BOOL; stdcall;
  599. {$EXTERNALSYM WTSEnumerateProcessesW}
  601. {$IFDEF UNICODE}
  602. function WTSEnumerateProcesses(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  603.   var ppProcessInfo: PWTS_PROCESS_INFOW; var pCount: DWORD): BOOL; stdcall;
  604. {$EXTERNALSYM WTSEnumerateProcesses}
  605. {$ELSE}
  606. function WTSEnumerateProcesses(hServer: HANDLE; Reserved: DWORD; Version: DWORD;
  607.   var ppProcessInfo: PWTS_PROCESS_INFOA; var pCount: DWORD): BOOL; stdcall;
  608. {$EXTERNALSYM WTSEnumerateProcesses}
  609. {$ENDIF}
  611. //------------------------------------------------------------------------------
  613. function WTSTerminateProcess(hServer: HANDLE; ProcessId, ExitCode: DWORD): BOOL; stdcall;
  614. {$EXTERNALSYM WTSTerminateProcess}
  616. //------------------------------------------------------------------------------
  618. function WTSQuerySessionInformationA(hServer: HANDLE; SessionId: DWORD;
  619.   WTSInfoClass: WTS_INFO_CLASS; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  620. {$EXTERNALSYM WTSQuerySessionInformationA}
  621. function WTSQuerySessionInformationW(hServer: HANDLE; SessionId: DWORD;
  622.   WTSInfoClass: WTS_INFO_CLASS; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  623. {$EXTERNALSYM WTSQuerySessionInformationW}
  625. {$IFDEF UNICODE}
  626. function WTSQuerySessionInformation(hServer: HANDLE; SessionId: DWORD;
  627.   WTSInfoClass: WTS_INFO_CLASS; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  628. {$EXTERNALSYM WTSQuerySessionInformation}
  629. {$ELSE}
  630. function WTSQuerySessionInformation(hServer: HANDLE; SessionId: DWORD;
  631.   WTSInfoClass: WTS_INFO_CLASS; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  632. {$EXTERNALSYM WTSQuerySessionInformation}
  633. {$ENDIF}
  635. //------------------------------------------------------------------------------
  637. function WTSQueryUserConfigA(pServerName, pUserName: LPSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  638.   var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  639. {$EXTERNALSYM WTSQueryUserConfigA}
  640. function WTSQueryUserConfigW(pServerName, pUserName: LPWSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  641.   var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  642. {$EXTERNALSYM WTSQueryUserConfigW}
  644. {$IFDEF UNICODE}
  645. function WTSQueryUserConfig(pServerName, pUserName: LPWSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  646.   var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  647. {$EXTERNALSYM WTSQueryUserConfig}
  648. {$ELSE}
  649. function WTSQueryUserConfig(pServerName, pUserName: LPSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  650.   var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
  651. {$EXTERNALSYM WTSQueryUserConfig}
  652. {$ENDIF}
  654. //------------------------------------------------------------------------------
  656. function WTSSetUserConfigA(pServerName, pUserName: LPSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  657.   pBuffer: LPSTR; DataLength: DWORD): BOOL; stdcall;
  658. {$EXTERNALSYM WTSSetUserConfigA}
  659. function WTSSetUserConfigW(pServerName, pUserName: LPWSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  660.   pBuffer: LPWSTR; DataLength: DWORD): BOOL; stdcall;
  661. {$EXTERNALSYM WTSSetUserConfigW}
  663. {$IFDEF UNICODE}
  664. function WTSSetUserConfig(pServerName, pUserName: LPWSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  665.   pBuffer: LPWSTR; DataLength: DWORD): BOOL; stdcall;
  666. {$EXTERNALSYM WTSSetUserConfig}
  667. {$ELSE}
  668. function WTSSetUserConfig(pServerName, pUserName: LPSTR; WTSConfigClass: WTS_CONFIG_CLASS;
  669.   pBuffer: LPSTR; DataLength: DWORD): BOOL; stdcall;
  670. {$EXTERNALSYM WTSSetUserConfig}
  671. {$ENDIF}
  673. //------------------------------------------------------------------------------
  675. function WTSSendMessageA(hServer: HANDLE; SessionId: DWORD; pTitle: LPSTR;
  676.   TitleLength: DWORD; pMessage: LPSTR; MessageLength: DWORD; Style: DWORD;
  677.   Timeout: DWORD; var pResponse: DWORD; bWait: BOOL): BOOL; stdcall;
  678. {$EXTERNALSYM WTSSendMessageA}
  679. function WTSSendMessageW(hServer: HANDLE; SessionId: DWORD; pTitle: LPWSTR;
  680.   TitleLength: DWORD; pMessage: LPWSTR; MessageLength: DWORD; Style: DWORD;
  681.   Timeout: DWORD; var pResponse: DWORD; bWait: BOOL): BOOL; stdcall;
  682. {$EXTERNALSYM WTSSendMessageW}
  684. {$IFDEF UNICODE}
  685. function WTSSendMessage(hServer: HANDLE; SessionId: DWORD; pTitle: LPWSTR;
  686.   TitleLength: DWORD; pMessage: LPWSTR; MessageLength: DWORD; Style: DWORD;
  687.   Timeout: DWORD; var pResponse: DWORD; bWait: BOOL): BOOL; stdcall;
  688. {$EXTERNALSYM WTSSendMessage}
  689. {$ELSE}
  690. function WTSSendMessage(hServer: HANDLE; SessionId: DWORD; pTitle: LPSTR;
  691.   TitleLength: DWORD; pMessage: LPSTR; MessageLength: DWORD; Style: DWORD;
  692.   Timeout: DWORD; var pResponse: DWORD; bWait: BOOL): BOOL; stdcall;
  693. {$EXTERNALSYM WTSSendMessage}
  694. {$ENDIF}
  696. //------------------------------------------------------------------------------
  698. function WTSDisconnectSession(hServer: HANDLE; SessionId: DWORD; bWait: BOOL): BOOL; stdcall;
  699. {$EXTERNALSYM WTSDisconnectSession}
  701. //------------------------------------------------------------------------------
  703. function WTSLogoffSession(hServer: HANDLE; SessionId: DWORD; bWait: BOOL): BOOL; stdcall;
  704. {$EXTERNALSYM WTSLogoffSession}
  706. //------------------------------------------------------------------------------
  708. function WTSShutdownSystem(hServer: HANDLE; ShutdownFlag: DWORD): BOOL; stdcall;
  709. {$EXTERNALSYM WTSShutdownSystem}
  711. //------------------------------------------------------------------------------
  713. function WTSWaitSystemEvent(hServer: HANDLE; EventMask: DWORD;
  714.   var pEventFlags: DWORD): BOOL; stdcall;
  715. {$EXTERNALSYM WTSWaitSystemEvent}
  717. //------------------------------------------------------------------------------
  719. function WTSVirtualChannelOpen(hServer: HANDLE; SessionId: DWORD;
  720.   pVirtualName: LPSTR): HANDLE; stdcall;
  721. {$EXTERNALSYM WTSVirtualChannelOpen}
  723. function WTSVirtualChannelClose(hChannelHandle: HANDLE): BOOL; stdcall;
  724. {$EXTERNALSYM WTSVirtualChannelClose}
  726. function WTSVirtualChannelRead(hChannelHandle: HANDLE; TimeOut: ULONG;
  727.   Buffer: PCHAR; BufferSize: ULONG; var pBytesRead: ULONG): BOOL; stdcall;
  728. {$EXTERNALSYM WTSVirtualChannelRead}
  730. function WTSVirtualChannelWrite(hChannelHandle: HANDLE; Buffer: PCHAR;
  731.   Length: ULONG; var pBytesWritten: ULONG): BOOL; stdcall;
  732. {$EXTERNALSYM WTSVirtualChannelWrite}
  734. function WTSVirtualChannelPurgeInput(hChannelHandle: HANDLE): BOOL; stdcall;
  735. {$EXTERNALSYM WTSVirtualChannelPurgeInput}
  737. function WTSVirtualChannelPurgeOutput(hChannelHandle: HANDLE): BOOL; stdcall;
  738. {$EXTERNALSYM WTSVirtualChannelPurgeOutput}
  740. function WTSVirtualChannelQuery(hChannelHandle: HANDLE; VirtualClass: WTS_VIRTUAL_CLASS;
  741.   ppBuffer: PVOID; var pBytesReturned: DWORD): BOOL; stdcall;
  742. {$EXTERNALSYM WTSVirtualChannelQuery}
  744. //------------------------------------------------------------------------------
  746. procedure WTSFreeMemory(pMemory: PVOID); stdcall;
  747. {$EXTERNALSYM WTSFreeMemory}
  749. // Flags for Console Notification
  751. const
  752.   NOTIFY_FOR_ALL_SESSIONS = 1;
  753.   {$EXTERNALSYM NOTIFY_FOR_ALL_SESSIONS}
  754.   NOTIFY_FOR_THIS_SESSION = 0;
  755.   {$EXTERNALSYM NOTIFY_FOR_THIS_SESSION}
  757. function WTSRegisterSessionNotification(hWnd: HWND; dwFlags: DWORD): BOOL; stdcall;
  758. {$EXTERNALSYM WTSRegisterSessionNotification}
  760. function WTSUnRegisterSessionNotification(hWnd: HWND): BOOL; stdcall;
  761. {$EXTERNALSYM WTSUnRegisterSessionNotification}
  763. function WTSQueryUserToken(SessionId: ULONG; var phToken: HANDLE): BOOL; stdcall;
  764. {$EXTERNALSYM WTSQueryUserToken}
  766. implementation
  768. const
  769.   wtsapi = 'wtsapi32.dll';
  772. {$IFDEF DYNAMIC_LINK}
  773. var
  774.   _WTSEnumerateServersA: Pointer;
  776. function WTSEnumerateServersA;
  777. begin
  778.   GetProcedureAddress(_WTSEnumerateServersA, wtsapi, 'WTSEnumerateServersA');
  779.   asm
  780.     mov esp, ebp
  781.     pop ebp
  782.     jmp [_WTSEnumerateServersA]
  783.   end;
  784. end;
  785. {$ELSE}
  786. function WTSEnumerateServersA; external wtsapi name 'WTSEnumerateServersA';
  787. {$ENDIF DYNAMIC_LINK}
  789. {$IFDEF DYNAMIC_LINK}
  790. var
  791.   _WTSEnumerateServersW: Pointer;
  793. function WTSEnumerateServersW;
  794. begin
  795.   GetProcedureAddress(_WTSEnumerateServersW, wtsapi, 'WTSEnumerateServersW');
  796.   asm
  797.     mov esp, ebp
  798.     pop ebp
  799.     jmp [_WTSEnumerateServersW]
  800.   end;
  801. end;
  802. {$ELSE}
  803. function WTSEnumerateServersW; external wtsapi name 'WTSEnumerateServersW';
  804. {$ENDIF DYNAMIC_LINK}
  805. {$IFDEF UNICODE}
  807. {$IFDEF DYNAMIC_LINK}
  808. var
  809.   _WTSEnumerateServers: Pointer;
  811. function WTSEnumerateServers;
  812. begin
  813.   GetProcedureAddress(_WTSEnumerateServers, wtsapi, 'WTSEnumerateServersW');
  814.   asm
  815.     mov esp, ebp
  816.     pop ebp
  817.     jmp [_WTSEnumerateServers]
  818.   end;
  819. end;
  820. {$ELSE}
  821. function WTSEnumerateServers; external wtsapi name 'WTSEnumerateServersW';
  822. {$ENDIF DYNAMIC_LINK}
  823. {$ELSE}
  825. {$IFDEF DYNAMIC_LINK}
  826. var
  827.   _WTSEnumerateServers: Pointer;
  829. function WTSEnumerateServers;
  830. begin
  831.   GetProcedureAddress(_WTSEnumerateServers, wtsapi, 'WTSEnumerateServersA');
  832.   asm
  833.     mov esp, ebp
  834.     pop ebp
  835.     jmp [_WTSEnumerateServers]
  836.   end;
  837. end;
  838. {$ELSE}
  839. function WTSEnumerateServers; external wtsapi name 'WTSEnumerateServersA';
  840. {$ENDIF DYNAMIC_LINK}
  841. {$ENDIF}
  843. {$IFDEF DYNAMIC_LINK}
  844. var
  845.   _WTSOpenServerA: Pointer;
  847. function WTSOpenServerA;
  848. begin
  849.   GetProcedureAddress(_WTSOpenServerA, wtsapi, 'WTSOpenServerA');
  850.   asm
  851.     mov esp, ebp
  852.     pop ebp
  853.     jmp [_WTSOpenServerA]
  854.   end;
  855. end;
  856. {$ELSE}
  857. function WTSOpenServerA; external wtsapi name 'WTSOpenServerA';
  858. {$ENDIF DYNAMIC_LINK}
  860. {$IFDEF DYNAMIC_LINK}
  861. var
  862.   _WTSOpenServerW: Pointer;
  864. function WTSOpenServerW;
  865. begin
  866.   GetProcedureAddress(_WTSOpenServerW, wtsapi, 'WTSOpenServerW');
  867.   asm
  868.     mov esp, ebp
  869.     pop ebp
  870.     jmp [_WTSOpenServerW]
  871.   end;
  872. end;
  873. {$ELSE}
  874. function WTSOpenServerW; external wtsapi name 'WTSOpenServerW';
  875. {$ENDIF DYNAMIC_LINK}
  876. {$IFDEF UNICODE}
  878. {$IFDEF DYNAMIC_LINK}
  879. var
  880.   _WTSOpenServer: Pointer;
  882. function WTSOpenServer;
  883. begin
  884.   GetProcedureAddress(_WTSOpenServer, wtsapi, 'WTSOpenServerW');
  885.   asm
  886.     mov esp, ebp
  887.     pop ebp
  888.     jmp [_WTSOpenServer]
  889.   end;
  890. end;
  891. {$ELSE}
  892. function WTSOpenServer; external wtsapi name 'WTSOpenServerW';
  893. {$ENDIF DYNAMIC_LINK}
  894. {$ELSE}
  896. {$IFDEF DYNAMIC_LINK}
  897. var
  898.   _WTSOpenServer: Pointer;
  900. function WTSOpenServer;
  901. begin
  902.   GetProcedureAddress(_WTSOpenServer, wtsapi, 'WTSOpenServerA');
  903.   asm
  904.     mov esp, ebp
  905.     pop ebp
  906.     jmp [_WTSOpenServer]
  907.   end;
  908. end;
  909. {$ELSE}
  910. function WTSOpenServer; external wtsapi name 'WTSOpenServerA';
  911. {$ENDIF DYNAMIC_LINK}
  912. {$ENDIF}
  914. {$IFDEF DYNAMIC_LINK}
  915. var
  916.   _WTSCloseServer: Pointer;
  918. procedure WTSCloseServer;
  919. begin
  920.   GetProcedureAddress(_WTSCloseServer, wtsapi, 'WTSCloseServer');
  921.   asm
  922.     mov esp, ebp
  923.     pop ebp
  924.     jmp [_WTSCloseServer]
  925.   end;
  926. end;
  927. {$ELSE}
  928. procedure WTSCloseServer; external wtsapi name 'WTSCloseServer';
  929. {$ENDIF DYNAMIC_LINK}
  931. {$IFDEF DYNAMIC_LINK}
  932. var
  933.   _WTSEnumerateSessionsA: Pointer;
  935. function WTSEnumerateSessionsA;
  936. begin
  937.   GetProcedureAddress(_WTSEnumerateSessionsA, wtsapi, 'WTSEnumerateSessionsA');
  938.   asm
  939.     mov esp, ebp
  940.     pop ebp
  941.     jmp [_WTSEnumerateSessionsA]
  942.   end;
  943. end;
  944. {$ELSE}
  945. function WTSEnumerateSessionsA; external wtsapi name 'WTSEnumerateSessionsA';
  946. {$ENDIF DYNAMIC_LINK}
  948. {$IFDEF DYNAMIC_LINK}
  949. var
  950.   _WTSEnumerateSessionsW: Pointer;
  952. function WTSEnumerateSessionsW;
  953. begin
  954.   GetProcedureAddress(_WTSEnumerateSessionsW, wtsapi, 'WTSEnumerateSessionsW');
  955.   asm
  956.     mov esp, ebp
  957.     pop ebp
  958.     jmp [_WTSEnumerateSessionsW]
  959.   end;
  960. end;
  961. {$ELSE}
  962. function WTSEnumerateSessionsW; external wtsapi name 'WTSEnumerateSessionsW';
  963. {$ENDIF DYNAMIC_LINK}
  964. {$IFDEF UNICODE}
  966. {$IFDEF DYNAMIC_LINK}
  967. var
  968.   _WTSEnumerateSessions: Pointer;
  970. function WTSEnumerateSessions;
  971. begin
  972.   GetProcedureAddress(_WTSEnumerateSessions, wtsapi, 'WTSEnumerateSessionsW');
  973.   asm
  974.     mov esp, ebp
  975.     pop ebp
  976.     jmp [_WTSEnumerateSessions]
  977.   end;
  978. end;
  979. {$ELSE}
  980. function WTSEnumerateSessions; external wtsapi name 'WTSEnumerateSessionsW';
  981. {$ENDIF DYNAMIC_LINK}
  982. {$ELSE}
  984. {$IFDEF DYNAMIC_LINK}
  985. var
  986.   _WTSEnumerateSessions: Pointer;
  988. function WTSEnumerateSessions;
  989. begin
  990.   GetProcedureAddress(_WTSEnumerateSessions, wtsapi, 'WTSEnumerateSessionsA');
  991.   asm
  992.     mov esp, ebp
  993.     pop ebp
  994.     jmp [_WTSEnumerateSessions]
  995.   end;
  996. end;
  997. {$ELSE}
  998. function WTSEnumerateSessions; external wtsapi name 'WTSEnumerateSessionsA';
  999. {$ENDIF DYNAMIC_LINK}
  1000. {$ENDIF}
  1002. {$IFDEF DYNAMIC_LINK}
  1003. var
  1004.   _WTSEnumerateProcessesA: Pointer;
  1006. function WTSEnumerateProcessesA;
  1007. begin
  1008.   GetProcedureAddress(_WTSEnumerateProcessesA, wtsapi, 'WTSEnumerateProcessesA');
  1009.   asm
  1010.     mov esp, ebp
  1011.     pop ebp
  1012.     jmp [_WTSEnumerateProcessesA]
  1013.   end;
  1014. end;
  1015. {$ELSE}
  1016. function WTSEnumerateProcessesA; external wtsapi name 'WTSEnumerateProcessesA';
  1017. {$ENDIF DYNAMIC_LINK}
  1019. {$IFDEF DYNAMIC_LINK}
  1020. var
  1021.   _WTSEnumerateProcessesW: Pointer;
  1023. function WTSEnumerateProcessesW;
  1024. begin
  1025.   GetProcedureAddress(_WTSEnumerateProcessesW, wtsapi, 'WTSEnumerateProcessesW');
  1026.   asm
  1027.     mov esp, ebp
  1028.     pop ebp
  1029.     jmp [_WTSEnumerateProcessesW]
  1030.   end;
  1031. end;
  1032. {$ELSE}
  1033. function WTSEnumerateProcessesW; external wtsapi name 'WTSEnumerateProcessesW';
  1034. {$ENDIF DYNAMIC_LINK}
  1035. {$IFDEF UNICODE}
  1037. {$IFDEF DYNAMIC_LINK}
  1038. var
  1039.   _WTSEnumerateProcesses: Pointer;
  1041. function WTSEnumerateProcesses;
  1042. begin
  1043.   GetProcedureAddress(_WTSEnumerateProcesses, wtsapi, 'WTSEnumerateProcessesW');
  1044.   asm
  1045.     mov esp, ebp
  1046.     pop ebp
  1047.     jmp [_WTSEnumerateProcesses]
  1048.   end;
  1049. end;
  1050. {$ELSE}
  1051. function WTSEnumerateProcesses; external wtsapi name 'WTSEnumerateProcessesW';
  1052. {$ENDIF DYNAMIC_LINK}
  1053. {$ELSE}
  1055. {$IFDEF DYNAMIC_LINK}
  1056. var
  1057.   _WTSEnumerateProcesses: Pointer;
  1059. function WTSEnumerateProcesses;
  1060. begin
  1061.   GetProcedureAddress(_WTSEnumerateProcesses, wtsapi, 'WTSEnumerateProcessesA');
  1062.   asm
  1063.     mov esp, ebp
  1064.     pop ebp
  1065.     jmp [_WTSEnumerateProcesses]
  1066.   end;
  1067. end;
  1068. {$ELSE}
  1069. function WTSEnumerateProcesses; external wtsapi name 'WTSEnumerateProcessesA';
  1070. {$ENDIF DYNAMIC_LINK}
  1071. {$ENDIF}
  1073. {$IFDEF DYNAMIC_LINK}
  1074. var
  1075.   _WTSTerminateProcess: Pointer;
  1077. function WTSTerminateProcess;
  1078. begin
  1079.   GetProcedureAddress(_WTSTerminateProcess, wtsapi, 'WTSTerminateProcess');
  1080.   asm
  1081.     mov esp, ebp
  1082.     pop ebp
  1083.     jmp [_WTSTerminateProcess]
  1084.   end;
  1085. end;
  1086. {$ELSE}
  1087. function WTSTerminateProcess; external wtsapi name 'WTSTerminateProcess';
  1088. {$ENDIF DYNAMIC_LINK}
  1090. {$IFDEF DYNAMIC_LINK}
  1091. var
  1092.   _WTSQuerySessionInformationA: Pointer;
  1094. function WTSQuerySessionInformationA;
  1095. begin
  1096.   GetProcedureAddress(_WTSQuerySessionInformationA, wtsapi, 'WTSQuerySessionInformationA');
  1097.   asm
  1098.     mov esp, ebp
  1099.     pop ebp
  1100.     jmp [_WTSQuerySessionInformationA]
  1101.   end;
  1102. end;
  1103. {$ELSE}
  1104. function WTSQuerySessionInformationA; external wtsapi name 'WTSQuerySessionInformationA';
  1105. {$ENDIF DYNAMIC_LINK}
  1107. {$IFDEF DYNAMIC_LINK}
  1108. var
  1109.   _WTSQuerySessionInformationW: Pointer;
  1111. function WTSQuerySessionInformationW;
  1112. begin
  1113.   GetProcedureAddress(_WTSQuerySessionInformationW, wtsapi, 'WTSQuerySessionInformationW');
  1114.   asm
  1115.     mov esp, ebp
  1116.     pop ebp
  1117.     jmp [_WTSQuerySessionInformationW]
  1118.   end;
  1119. end;
  1120. {$ELSE}
  1121. function WTSQuerySessionInformationW; external wtsapi name 'WTSQuerySessionInformationW';
  1122. {$ENDIF DYNAMIC_LINK}
  1123. {$IFDEF UNICODE}
  1125. {$IFDEF DYNAMIC_LINK}
  1126. var
  1127.   _WTSQuerySessionInformation: Pointer;
  1129. function WTSQuerySessionInformation;
  1130. begin
  1131.   GetProcedureAddress(_WTSQuerySessionInformation, wtsapi, 'WTSQuerySessionInformationW');
  1132.   asm
  1133.     mov esp, ebp
  1134.     pop ebp
  1135.     jmp [_WTSQuerySessionInformation]
  1136.   end;
  1137. end;
  1138. {$ELSE}
  1139. function WTSQuerySessionInformation; external wtsapi name 'WTSQuerySessionInformationW';
  1140. {$ENDIF DYNAMIC_LINK}
  1141. {$ELSE}
  1143. {$IFDEF DYNAMIC_LINK}
  1144. var
  1145.   _WTSQuerySessionInformation: Pointer;
  1147. function WTSQuerySessionInformation;
  1148. begin
  1149.   GetProcedureAddress(_WTSQuerySessionInformation, wtsapi, 'WTSQuerySessionInformationA');
  1150.   asm
  1151.     mov esp, ebp
  1152.     pop ebp
  1153.     jmp [_WTSQuerySessionInformation]
  1154.   end;
  1155. end;
  1156. {$ELSE}
  1157. function WTSQuerySessionInformation; external wtsapi name 'WTSQuerySessionInformationA';
  1158. {$ENDIF DYNAMIC_LINK}
  1159. {$ENDIF}
  1161. {$IFDEF DYNAMIC_LINK}
  1162. var
  1163.   _WTSQueryUserConfigA: Pointer;
  1165. function WTSQueryUserConfigA;
  1166. begin
  1167.   GetProcedureAddress(_WTSQueryUserConfigA, wtsapi, 'WTSQueryUserConfigA');
  1168.   asm
  1169.     mov esp, ebp
  1170.     pop ebp
  1171.     jmp [_WTSQueryUserConfigA]
  1172.   end;
  1173. end;
  1174. {$ELSE}
  1175. function WTSQueryUserConfigA; external wtsapi name 'WTSQueryUserConfigA';
  1176. {$ENDIF DYNAMIC_LINK}
  1178. {$IFDEF DYNAMIC_LINK}
  1179. var
  1180.   _WTSQueryUserConfigW: Pointer;
  1182. function WTSQueryUserConfigW;
  1183. begin
  1184.   GetProcedureAddress(_WTSQueryUserConfigW, wtsapi, 'WTSQueryUserConfigW');
  1185.   asm
  1186.     mov esp, ebp
  1187.     pop ebp
  1188.     jmp [_WTSQueryUserConfigW]
  1189.   end;
  1190. end;
  1191. {$ELSE}
  1192. function WTSQueryUserConfigW; external wtsapi name 'WTSQueryUserConfigW';
  1193. {$ENDIF DYNAMIC_LINK}
  1194. {$IFDEF UNICODE}
  1196. {$IFDEF DYNAMIC_LINK}
  1197. var
  1198.   _WTSQueryUserConfig: Pointer;
  1200. function WTSQueryUserConfig;
  1201. begin
  1202.   GetProcedureAddress(_WTSQueryUserConfig, wtsapi, 'WTSQueryUserConfigW');
  1203.   asm
  1204.     mov esp, ebp
  1205.     pop ebp
  1206.     jmp [_WTSQueryUserConfig]
  1207.   end;
  1208. end;
  1209. {$ELSE}
  1210. function WTSQueryUserConfig; external wtsapi name 'WTSQueryUserConfigW';
  1211. {$ENDIF DYNAMIC_LINK}
  1212. {$ELSE}
  1214. {$IFDEF DYNAMIC_LINK}
  1215. var
  1216.   _WTSQueryUserConfig: Pointer;
  1218. function WTSQueryUserConfig;
  1219. begin
  1220.   GetProcedureAddress(_WTSQueryUserConfig, wtsapi, 'WTSQueryUserConfigA');
  1221.   asm
  1222.     mov esp, ebp
  1223.     pop ebp
  1224.     jmp [_WTSQueryUserConfig]
  1225.   end;
  1226. end;
  1227. {$ELSE}
  1228. function WTSQueryUserConfig; external wtsapi name 'WTSQueryUserConfigA';
  1229. {$ENDIF DYNAMIC_LINK}
  1230. {$ENDIF}
  1232. {$IFDEF DYNAMIC_LINK}
  1233. var
  1234.   _WTSSetUserConfigA: Pointer;
  1236. function WTSSetUserConfigA;
  1237. begin
  1238.   GetProcedureAddress(_WTSSetUserConfigA, wtsapi, 'WTSSetUserConfigA');
  1239.   asm
  1240.     mov esp, ebp
  1241.     pop ebp
  1242.     jmp [_WTSSetUserConfigA]
  1243.   end;
  1244. end;
  1245. {$ELSE}
  1246. function WTSSetUserConfigA; external wtsapi name 'WTSSetUserConfigA';
  1247. {$ENDIF DYNAMIC_LINK}
  1249. {$IFDEF DYNAMIC_LINK}
  1250. var
  1251.   _WTSSetUserConfigW: Pointer;
  1253. function WTSSetUserConfigW;
  1254. begin
  1255.   GetProcedureAddress(_WTSSetUserConfigW, wtsapi, 'WTSSetUserConfigW');
  1256.   asm
  1257.     mov esp, ebp
  1258.     pop ebp
  1259.     jmp [_WTSSetUserConfigW]
  1260.   end;
  1261. end;
  1262. {$ELSE}
  1263. function WTSSetUserConfigW; external wtsapi name 'WTSSetUserConfigW';
  1264. {$ENDIF DYNAMIC_LINK}
  1265. {$IFDEF UNICODE}
  1267. {$IFDEF DYNAMIC_LINK}
  1268. var
  1269.   _WTSSetUserConfig: Pointer;
  1271. function WTSSetUserConfig;
  1272. begin
  1273.   GetProcedureAddress(_WTSSetUserConfig, wtsapi, 'WTSSetUserConfigW');
  1274.   asm
  1275.     mov esp, ebp
  1276.     pop ebp
  1277.     jmp [_WTSSetUserConfig]
  1278.   end;
  1279. end;
  1280. {$ELSE}
  1281. function WTSSetUserConfig; external wtsapi name 'WTSSetUserConfigW';
  1282. {$ENDIF DYNAMIC_LINK}
  1283. {$ELSE}
  1285. {$IFDEF DYNAMIC_LINK}
  1286. var
  1287.   _WTSSetUserConfig: Pointer;
  1289. function WTSSetUserConfig;
  1290. begin
  1291.   GetProcedureAddress(_WTSSetUserConfig, wtsapi, 'WTSSetUserConfigA');
  1292.   asm
  1293.     mov esp, ebp
  1294.     pop ebp
  1295.     jmp [_WTSSetUserConfig]
  1296.   end;
  1297. end;
  1298. {$ELSE}
  1299. function WTSSetUserConfig; external wtsapi name 'WTSSetUserConfigA';
  1300. {$ENDIF DYNAMIC_LINK}
  1301. {$ENDIF}
  1303. {$IFDEF DYNAMIC_LINK}
  1304. var
  1305.   _WTSSendMessageA: Pointer;
  1307. function WTSSendMessageA;
  1308. begin
  1309.   GetProcedureAddress(_WTSSendMessageA, wtsapi, 'WTSSendMessageA');
  1310.   asm
  1311.     mov esp, ebp
  1312.     pop ebp
  1313.     jmp [_WTSSendMessageA]
  1314.   end;
  1315. end;
  1316. {$ELSE}
  1317. function WTSSendMessageA; external wtsapi name 'WTSSendMessageA';
  1318. {$ENDIF DYNAMIC_LINK}
  1320. {$IFDEF DYNAMIC_LINK}
  1321. var
  1322.   _WTSSendMessageW: Pointer;
  1324. function WTSSendMessageW;
  1325. begin
  1326.   GetProcedureAddress(_WTSSendMessageW, wtsapi, 'WTSSendMessageW');
  1327.   asm
  1328.     mov esp, ebp
  1329.     pop ebp
  1330.     jmp [_WTSSendMessageW]
  1331.   end;
  1332. end;
  1333. {$ELSE}
  1334. function WTSSendMessageW; external wtsapi name 'WTSSendMessageW';
  1335. {$ENDIF DYNAMIC_LINK}
  1336. {$IFDEF UNICODE}
  1338. {$IFDEF DYNAMIC_LINK}
  1339. var
  1340.   _WTSSendMessage: Pointer;
  1342. function WTSSendMessage;
  1343. begin
  1344.   GetProcedureAddress(_WTSSendMessage, wtsapi, 'WTSSendMessageW');
  1345.   asm
  1346.     mov esp, ebp
  1347.     pop ebp
  1348.     jmp [_WTSSendMessage]
  1349.   end;
  1350. end;
  1351. {$ELSE}
  1352. function WTSSendMessage; external wtsapi name 'WTSSendMessageW';
  1353. {$ENDIF DYNAMIC_LINK}
  1354. {$ELSE}
  1356. {$IFDEF DYNAMIC_LINK}
  1357. var
  1358.   _WTSSendMessage: Pointer;
  1360. function WTSSendMessage;
  1361. begin
  1362.   GetProcedureAddress(_WTSSendMessage, wtsapi, 'WTSSendMessageA');
  1363.   asm
  1364.     mov esp, ebp
  1365.     pop ebp
  1366.     jmp [_WTSSendMessage]
  1367.   end;
  1368. end;
  1369. {$ELSE}
  1370. function WTSSendMessage; external wtsapi name 'WTSSendMessageA';
  1371. {$ENDIF DYNAMIC_LINK}
  1372. {$ENDIF}
  1374. {$IFDEF DYNAMIC_LINK}
  1375. var
  1376.   _WTSDisconnectSession: Pointer;
  1378. function WTSDisconnectSession;
  1379. begin
  1380.   GetProcedureAddress(_WTSDisconnectSession, wtsapi, 'WTSDisconnectSession');
  1381.   asm
  1382.     mov esp, ebp
  1383.     pop ebp
  1384.     jmp [_WTSDisconnectSession]
  1385.   end;
  1386. end;
  1387. {$ELSE}
  1388. function WTSDisconnectSession; external wtsapi name 'WTSDisconnectSession';
  1389. {$ENDIF DYNAMIC_LINK}
  1391. {$IFDEF DYNAMIC_LINK}
  1392. var
  1393.   _WTSLogoffSession: Pointer;
  1395. function WTSLogoffSession;
  1396. begin
  1397.   GetProcedureAddress(_WTSLogoffSession, wtsapi, 'WTSLogoffSession');
  1398.   asm
  1399.     mov esp, ebp
  1400.     pop ebp
  1401.     jmp [_WTSLogoffSession]
  1402.   end;
  1403. end;
  1404. {$ELSE}
  1405. function WTSLogoffSession; external wtsapi name 'WTSLogoffSession';
  1406. {$ENDIF DYNAMIC_LINK}
  1408. {$IFDEF DYNAMIC_LINK}
  1409. var
  1410.   _WTSShutdownSystem: Pointer;
  1412. function WTSShutdownSystem;
  1413. begin
  1414.   GetProcedureAddress(_WTSShutdownSystem, wtsapi, 'WTSShutdownSystem');
  1415.   asm
  1416.     mov esp, ebp
  1417.     pop ebp
  1418.     jmp [_WTSShutdownSystem]
  1419.   end;
  1420. end;
  1421. {$ELSE}
  1422. function WTSShutdownSystem; external wtsapi name 'WTSShutdownSystem';
  1423. {$ENDIF DYNAMIC_LINK}
  1425. {$IFDEF DYNAMIC_LINK}
  1426. var
  1427.   _WTSWaitSystemEvent: Pointer;
  1429. function WTSWaitSystemEvent;
  1430. begin
  1431.   GetProcedureAddress(_WTSWaitSystemEvent, wtsapi, 'WTSWaitSystemEvent');
  1432.   asm
  1433.     mov esp, ebp
  1434.     pop ebp
  1435.     jmp [_WTSWaitSystemEvent]
  1436.   end;
  1437. end;
  1438. {$ELSE}
  1439. function WTSWaitSystemEvent; external wtsapi name 'WTSWaitSystemEvent';
  1440. {$ENDIF DYNAMIC_LINK}
  1442. {$IFDEF DYNAMIC_LINK}
  1443. var
  1444.   _WTSVirtualChannelOpen: Pointer;
  1446. function WTSVirtualChannelOpen;
  1447. begin
  1448.   GetProcedureAddress(_WTSVirtualChannelOpen, wtsapi, 'WTSVirtualChannelOpen');
  1449.   asm
  1450.     mov esp, ebp
  1451.     pop ebp
  1452.     jmp [_WTSVirtualChannelOpen]
  1453.   end;
  1454. end;
  1455. {$ELSE}
  1456. function WTSVirtualChannelOpen; external wtsapi name 'WTSVirtualChannelOpen';
  1457. {$ENDIF DYNAMIC_LINK}
  1459. {$IFDEF DYNAMIC_LINK}
  1460. var
  1461.   _WTSVirtualChannelClose: Pointer;
  1463. function WTSVirtualChannelClose;
  1464. begin
  1465.   GetProcedureAddress(_WTSVirtualChannelClose, wtsapi, 'WTSVirtualChannelClose');
  1466.   asm
  1467.     mov esp, ebp
  1468.     pop ebp
  1469.     jmp [_WTSVirtualChannelClose]
  1470.   end;
  1471. end;
  1472. {$ELSE}
  1473. function WTSVirtualChannelClose; external wtsapi name 'WTSVirtualChannelClose';
  1474. {$ENDIF DYNAMIC_LINK}
  1476. {$IFDEF DYNAMIC_LINK}
  1477. var
  1478.   _WTSVirtualChannelRead: Pointer;
  1480. function WTSVirtualChannelRead;
  1481. begin
  1482.   GetProcedureAddress(_WTSVirtualChannelRead, wtsapi, 'WTSVirtualChannelRead');
  1483.   asm
  1484.     mov esp, ebp
  1485.     pop ebp
  1486.     jmp [_WTSVirtualChannelRead]
  1487.   end;
  1488. end;
  1489. {$ELSE}
  1490. function WTSVirtualChannelRead; external wtsapi name 'WTSVirtualChannelRead';
  1491. {$ENDIF DYNAMIC_LINK}
  1493. {$IFDEF DYNAMIC_LINK}
  1494. var
  1495.   _WTSVirtualChannelWrite: Pointer;
  1497. function WTSVirtualChannelWrite;
  1498. begin
  1499.   GetProcedureAddress(_WTSVirtualChannelWrite, wtsapi, 'WTSVirtualChannelWrite');
  1500.   asm
  1501.     mov esp, ebp
  1502.     pop ebp
  1503.     jmp [_WTSVirtualChannelWrite]
  1504.   end;
  1505. end;
  1506. {$ELSE}
  1507. function WTSVirtualChannelWrite; external wtsapi name 'WTSVirtualChannelWrite';
  1508. {$ENDIF DYNAMIC_LINK}
  1510. {$IFDEF DYNAMIC_LINK}
  1511. var
  1512.   _WTSVirtualChannelPurgeInput: Pointer;
  1514. function WTSVirtualChannelPurgeInput;
  1515. begin
  1516.   GetProcedureAddress(_WTSVirtualChannelPurgeInput, wtsapi, 'WTSVirtualChannelPurgeInput');
  1517.   asm
  1518.     mov esp, ebp
  1519.     pop ebp
  1520.     jmp [_WTSVirtualChannelPurgeInput]
  1521.   end;
  1522. end;
  1523. {$ELSE}
  1524. function WTSVirtualChannelPurgeInput; external wtsapi name 'WTSVirtualChannelPurgeInput';
  1525. {$ENDIF DYNAMIC_LINK}
  1527. {$IFDEF DYNAMIC_LINK}
  1528. var
  1529.   _WTSVirtualChannelPurgeOutput: Pointer;
  1531. function WTSVirtualChannelPurgeOutput;
  1532. begin
  1533.   GetProcedureAddress(_WTSVirtualChannelPurgeOutput, wtsapi, 'WTSVirtualChannelPurgeOutput');
  1534.   asm
  1535.     mov esp, ebp
  1536.     pop ebp
  1537.     jmp [_WTSVirtualChannelPurgeOutput]
  1538.   end;
  1539. end;
  1540. {$ELSE}
  1541. function WTSVirtualChannelPurgeOutput; external wtsapi name 'WTSVirtualChannelPurgeOutput';
  1542. {$ENDIF DYNAMIC_LINK}
  1544. {$IFDEF DYNAMIC_LINK}
  1545. var
  1546.   _WTSVirtualChannelQuery: Pointer;
  1548. function WTSVirtualChannelQuery;
  1549. begin
  1550.   GetProcedureAddress(_WTSVirtualChannelQuery, wtsapi, 'WTSVirtualChannelQuery');
  1551.   asm
  1552.     mov esp, ebp
  1553.     pop ebp
  1554.     jmp [_WTSVirtualChannelQuery]
  1555.   end;
  1556. end;
  1557. {$ELSE}
  1558. function WTSVirtualChannelQuery; external wtsapi name 'WTSVirtualChannelQuery';
  1559. {$ENDIF DYNAMIC_LINK}
  1561. {$IFDEF DYNAMIC_LINK}
  1562. var
  1563.   _WTSFreeMemory: Pointer;
  1565. procedure WTSFreeMemory;
  1566. begin
  1567.   GetProcedureAddress(_WTSFreeMemory, wtsapi, 'WTSFreeMemory');
  1568.   asm
  1569.     mov esp, ebp
  1570.     pop ebp
  1571.     jmp [_WTSFreeMemory]
  1572.   end;
  1573. end;
  1574. {$ELSE}
  1575. procedure WTSFreeMemory; external wtsapi name 'WTSFreeMemory';
  1576. {$ENDIF DYNAMIC_LINK}
  1578. {$IFDEF DYNAMIC_LINK}
  1579. var
  1580.   _WTSRegisterSessionNotification: Pointer;
  1582. function WTSRegisterSessionNotification;
  1583. begin
  1584.   GetProcedureAddress(_WTSRegisterSessionNotification, wtsapi, 'WTSRegisterSessionNotification');
  1585.   asm
  1586.     mov esp, ebp
  1587.     pop ebp
  1588.     jmp [_WTSRegisterSessionNotification]
  1589.   end;
  1590. end;
  1591. {$ELSE}
  1592. function WTSRegisterSessionNotification; external wtsapi name 'WTSRegisterSessionNotification';
  1593. {$ENDIF DYNAMIC_LINK}
  1595. {$IFDEF DYNAMIC_LINK}
  1596. var
  1597.   _WTSUnRegisterSessionNot: Pointer;
  1599. function WTSUnRegisterSessionNotification;
  1600. begin
  1601.   GetProcedureAddress(_WTSUnRegisterSessionNot, wtsapi, 'WTSUnRegisterSessionNotification');
  1602.   asm
  1603.     mov esp, ebp
  1604.     pop ebp
  1605.     jmp [_WTSUnRegisterSessionNot]
  1606.   end;
  1607. end;
  1608. {$ELSE}
  1609. function WTSUnRegisterSessionNotification; external wtsapi name 'WTSUnRegisterSessionNotification';
  1610. {$ENDIF DYNAMIC_LINK}
  1612. {$IFDEF DYNAMIC_LINK}
  1613. var
  1614.   _WTSQueryUserToken: Pointer;
  1616. function WTSQueryUserToken;
  1617. begin
  1618.   GetProcedureAddress(_WTSQueryUserToken, wtsapi, 'WTSQueryUserToken');
  1619.   asm
  1620.     mov esp, ebp
  1621.     pop ebp
  1622.     jmp [_WTSQueryUserToken]
  1623.   end;
  1624. end;
  1625. {$ELSE}
  1626. function WTSQueryUserToken; external wtsapi name 'WTSQueryUserToken';
  1627. {$ENDIF DYNAMIC_LINK}
  1629. end.