jwawinwlx.pas

比较全面的win32api开发包

{$IFDEF DYNAMIC_LINK}
var
  _WlxInitialize: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxDisplaySASNotice: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxLoggedOutSAS: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxActivateUserShell: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxLoggedOnSAS: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxDisplayLockedNotice: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxWkstaLockedSAS: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxIsLockOk: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxIsLogoffOk: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxLogoff: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxShutdown: Pointer;

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

{$ENDIF}

{$IFDEF MSGINA1_1}


{$IFDEF DYNAMIC_LINK}
var
  _WlxScreenSaverNotify: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxStartApplication: Pointer;

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

{$ENDIF}

{$IFDEF MSGINA1_3}


{$IFDEF DYNAMIC_LINK}
var
  _WlxNetworkProviderLoad: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxDisplayStatusMessage: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxGetStatusMessage: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxRemoveStatusMessage: Pointer;

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

{$ENDIF}

{$IFDEF MSGINA1_3}


{$IFDEF DYNAMIC_LINK}
var
  _WlxGetConsoleSwitchCredentials: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxReconnectNotify: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _WlxDisconnectNotify: Pointer;

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

{$ENDIF}

{$ENDIF IMPORT_MS_GINA}

end.