jwawtsapi32.pas

比较全面的win32api开发包

    jmp [_WTSEnumerateServers]
  end;
end;
{$ELSE}
function WTSEnumerateServers; external wtsapi name 'WTSEnumerateServersW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateServers: Pointer;

function WTSEnumerateServers;
begin
  GetProcedureAddress(_WTSEnumerateServers, wtsapi, 'WTSEnumerateServersA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateServers]
  end;
end;
{$ELSE}
function WTSEnumerateServers; external wtsapi name 'WTSEnumerateServersA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSOpenServerA: Pointer;

function WTSOpenServerA;
begin
  GetProcedureAddress(_WTSOpenServerA, wtsapi, 'WTSOpenServerA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSOpenServerA]
  end;
end;
{$ELSE}
function WTSOpenServerA; external wtsapi name 'WTSOpenServerA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSOpenServerW: Pointer;

function WTSOpenServerW;
begin
  GetProcedureAddress(_WTSOpenServerW, wtsapi, 'WTSOpenServerW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSOpenServerW]
  end;
end;
{$ELSE}
function WTSOpenServerW; external wtsapi name 'WTSOpenServerW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSOpenServer: Pointer;

function WTSOpenServer;
begin
  GetProcedureAddress(_WTSOpenServer, wtsapi, 'WTSOpenServerW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSOpenServer]
  end;
end;
{$ELSE}
function WTSOpenServer; external wtsapi name 'WTSOpenServerW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSOpenServer: Pointer;

function WTSOpenServer;
begin
  GetProcedureAddress(_WTSOpenServer, wtsapi, 'WTSOpenServerA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSOpenServer]
  end;
end;
{$ELSE}
function WTSOpenServer; external wtsapi name 'WTSOpenServerA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSCloseServer: Pointer;

procedure WTSCloseServer;
begin
  GetProcedureAddress(_WTSCloseServer, wtsapi, 'WTSCloseServer');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSCloseServer]
  end;
end;
{$ELSE}
procedure WTSCloseServer; external wtsapi name 'WTSCloseServer';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateSessionsA: Pointer;

function WTSEnumerateSessionsA;
begin
  GetProcedureAddress(_WTSEnumerateSessionsA, wtsapi, 'WTSEnumerateSessionsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateSessionsA]
  end;
end;
{$ELSE}
function WTSEnumerateSessionsA; external wtsapi name 'WTSEnumerateSessionsA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateSessionsW: Pointer;

function WTSEnumerateSessionsW;
begin
  GetProcedureAddress(_WTSEnumerateSessionsW, wtsapi, 'WTSEnumerateSessionsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateSessionsW]
  end;
end;
{$ELSE}
function WTSEnumerateSessionsW; external wtsapi name 'WTSEnumerateSessionsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateSessions: Pointer;

function WTSEnumerateSessions;
begin
  GetProcedureAddress(_WTSEnumerateSessions, wtsapi, 'WTSEnumerateSessionsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateSessions]
  end;
end;
{$ELSE}
function WTSEnumerateSessions; external wtsapi name 'WTSEnumerateSessionsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateSessions: Pointer;

function WTSEnumerateSessions;
begin
  GetProcedureAddress(_WTSEnumerateSessions, wtsapi, 'WTSEnumerateSessionsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateSessions]
  end;
end;
{$ELSE}
function WTSEnumerateSessions; external wtsapi name 'WTSEnumerateSessionsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateProcessesA: Pointer;

function WTSEnumerateProcessesA;
begin
  GetProcedureAddress(_WTSEnumerateProcessesA, wtsapi, 'WTSEnumerateProcessesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateProcessesA]
  end;
end;
{$ELSE}
function WTSEnumerateProcessesA; external wtsapi name 'WTSEnumerateProcessesA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateProcessesW: Pointer;

function WTSEnumerateProcessesW;
begin
  GetProcedureAddress(_WTSEnumerateProcessesW, wtsapi, 'WTSEnumerateProcessesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateProcessesW]
  end;
end;
{$ELSE}
function WTSEnumerateProcessesW; external wtsapi name 'WTSEnumerateProcessesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateProcesses: Pointer;

function WTSEnumerateProcesses;
begin
  GetProcedureAddress(_WTSEnumerateProcesses, wtsapi, 'WTSEnumerateProcessesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateProcesses]
  end;
end;
{$ELSE}
function WTSEnumerateProcesses; external wtsapi name 'WTSEnumerateProcessesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSEnumerateProcesses: Pointer;

function WTSEnumerateProcesses;
begin
  GetProcedureAddress(_WTSEnumerateProcesses, wtsapi, 'WTSEnumerateProcessesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSEnumerateProcesses]
  end;
end;
{$ELSE}
function WTSEnumerateProcesses; external wtsapi name 'WTSEnumerateProcessesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSTerminateProcess: Pointer;

function WTSTerminateProcess;
begin
  GetProcedureAddress(_WTSTerminateProcess, wtsapi, 'WTSTerminateProcess');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSTerminateProcess]
  end;
end;
{$ELSE}
function WTSTerminateProcess; external wtsapi name 'WTSTerminateProcess';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQuerySessionInformationA: Pointer;

function WTSQuerySessionInformationA;
begin
  GetProcedureAddress(_WTSQuerySessionInformationA, wtsapi, 'WTSQuerySessionInformationA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQuerySessionInformationA]
  end;
end;
{$ELSE}
function WTSQuerySessionInformationA; external wtsapi name 'WTSQuerySessionInformationA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQuerySessionInformationW: Pointer;

function WTSQuerySessionInformationW;
begin
  GetProcedureAddress(_WTSQuerySessionInformationW, wtsapi, 'WTSQuerySessionInformationW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQuerySessionInformationW]
  end;
end;
{$ELSE}
function WTSQuerySessionInformationW; external wtsapi name 'WTSQuerySessionInformationW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQuerySessionInformation: Pointer;

function WTSQuerySessionInformation;
begin
  GetProcedureAddress(_WTSQuerySessionInformation, wtsapi, 'WTSQuerySessionInformationW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQuerySessionInformation]
  end;
end;
{$ELSE}
function WTSQuerySessionInformation; external wtsapi name 'WTSQuerySessionInformationW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQuerySessionInformation: Pointer;

function WTSQuerySessionInformation;
begin
  GetProcedureAddress(_WTSQuerySessionInformation, wtsapi, 'WTSQuerySessionInformationA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQuerySessionInformation]
  end;
end;
{$ELSE}
function WTSQuerySessionInformation; external wtsapi name 'WTSQuerySessionInformationA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQueryUserConfigA: Pointer;

function WTSQueryUserConfigA;
begin
  GetProcedureAddress(_WTSQueryUserConfigA, wtsapi, 'WTSQueryUserConfigA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQueryUserConfigA]
  end;
end;
{$ELSE}
function WTSQueryUserConfigA; external wtsapi name 'WTSQueryUserConfigA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQueryUserConfigW: Pointer;

function WTSQueryUserConfigW;
begin
  GetProcedureAddress(_WTSQueryUserConfigW, wtsapi, 'WTSQueryUserConfigW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQueryUserConfigW]
  end;
end;
{$ELSE}
function WTSQueryUserConfigW; external wtsapi name 'WTSQueryUserConfigW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQueryUserConfig: Pointer;

function WTSQueryUserConfig;
begin
  GetProcedureAddress(_WTSQueryUserConfig, wtsapi, 'WTSQueryUserConfigW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQueryUserConfig]
  end;
end;
{$ELSE}
function WTSQueryUserConfig; external wtsapi name 'WTSQueryUserConfigW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _WTSQueryUserConfig: Pointer;

function WTSQueryUserConfig;
begin
  GetProcedureAddress(_WTSQueryUserConfig, wtsapi, 'WTSQueryUserConfigA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_WTSQueryUserConfig]