jwawtsapi32.pas

比较全面的win32api开发包

  end;
end;
{$ELSE}
function WTSQueryUserConfig; external wtsapi name 'WTSQueryUserConfigA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _WTSSetUserConfigA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSetUserConfigW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSetUserConfig: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSetUserConfig: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSendMessageA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSendMessageW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSendMessage: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSSendMessage: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSDisconnectSession: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSLogoffSession: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSShutdownSystem: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSWaitSystemEvent: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelOpen: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelClose: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelRead: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelWrite: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelPurgeInput: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelPurgeOutput: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSVirtualChannelQuery: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSFreeMemory: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSRegisterSessionNotification: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSUnRegisterSessionNot: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WTSQueryUserToken: Pointer;

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

end.