jwapsapi.pas

比较全面的win32api开发包

function GetModuleFileNameEx; external PsapiLib name 'GetModuleFileNameExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetModuleInformation: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _EmptyWorkingSet: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _QueryWorkingSet: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitializeProcessForWsWatch: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetWsChanges: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMappedFileNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMappedFileNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMappedFileName: Pointer;

function GetMappedFileName;
begin
  GetProcedureAddress(_GetMappedFileName, PsapiLib, 'GetMappedFileNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetMappedFileName]
  end;
end;
{$ELSE}
function GetMappedFileName; external PsapiLib name 'GetMappedFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetMappedFileName: Pointer;

function GetMappedFileName;
begin
  GetProcedureAddress(_GetMappedFileName, PsapiLib, 'GetMappedFileNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetMappedFileName]
  end;
end;
{$ELSE}
function GetMappedFileName; external PsapiLib name 'GetMappedFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _EnumDeviceDrivers: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverBaseNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverBaseNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverBaseName: Pointer;

function GetDeviceDriverBaseName;
begin
  GetProcedureAddress(_GetDeviceDriverBaseName, PsapiLib, 'GetDeviceDriverBaseNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDeviceDriverBaseName]
  end;
end;
{$ELSE}
function GetDeviceDriverBaseName; external PsapiLib name 'GetDeviceDriverBaseNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverBaseName: Pointer;

function GetDeviceDriverBaseName;
begin
  GetProcedureAddress(_GetDeviceDriverBaseName, PsapiLib, 'GetDeviceDriverBaseNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDeviceDriverBaseName]
  end;
end;
{$ELSE}
function GetDeviceDriverBaseName; external PsapiLib name 'GetDeviceDriverBaseNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverFileNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverFileNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverFileName: Pointer;

function GetDeviceDriverFileName;
begin
  GetProcedureAddress(_GetDeviceDriverFileName, PsapiLib, 'GetDeviceDriverFileNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDeviceDriverFileName]
  end;
end;
{$ELSE}
function GetDeviceDriverFileName; external PsapiLib name 'GetDeviceDriverFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetDeviceDriverFileName: Pointer;

function GetDeviceDriverFileName;
begin
  GetProcedureAddress(_GetDeviceDriverFileName, PsapiLib, 'GetDeviceDriverFileNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDeviceDriverFileName]
  end;
end;
{$ELSE}
function GetDeviceDriverFileName; external PsapiLib name 'GetDeviceDriverFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetProcessMemoryInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetPerformanceInfo: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _EnumPageFilesW: Pointer;

function EnumPageFilesW;
begin
  GetProcedureAddress(_EnumPageFilesW, PsapiLib, 'EnumPageFilesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_EnumPageFilesW]
  end;
end;
{$ELSE}
function EnumPageFilesW; external PsapiLib name 'EnumPageFilesA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _EnumPageFilesA: Pointer;

function EnumPageFilesA;
begin
  GetProcedureAddress(_EnumPageFilesA, PsapiLib, 'EnumPageFilesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_EnumPageFilesA]
  end;
end;
{$ELSE}
function EnumPageFilesA; external PsapiLib name 'EnumPageFilesW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _EnumPageFiles: Pointer;

function EnumPageFiles;
begin
  GetProcedureAddress(_EnumPageFiles, PsapiLib, 'EnumPageFilesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_EnumPageFiles]
  end;
end;
{$ELSE}
function EnumPageFiles; external PsapiLib name 'EnumPageFilesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _EnumPageFiles: Pointer;

function EnumPageFiles;
begin
  GetProcedureAddress(_EnumPageFiles, PsapiLib, 'EnumPageFilesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_EnumPageFiles]
  end;
end;
{$ELSE}
function EnumPageFiles; external PsapiLib name 'EnumPageFilesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetProcessImageFileNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetProcessImageFileNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetProcessImageFileName: Pointer;

function GetProcessImageFileName;
begin
  GetProcedureAddress(_GetProcessImageFileName, PsapiLib, 'GetProcessImageFileNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetProcessImageFileName]
  end;
end;
{$ELSE}
function GetProcessImageFileName; external PsapiLib name 'GetProcessImageFileNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetProcessImageFileName: Pointer;

function GetProcessImageFileName;
begin
  GetProcedureAddress(_GetProcessImageFileName, PsapiLib, 'GetProcessImageFileNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetProcessImageFileName]
  end;
end;
{$ELSE}
function GetProcessImageFileName; external PsapiLib name 'GetProcessImageFileNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

end.