jwaloadperf.pas

比较全面的win32api开发包

    mov esp, ebp
    pop ebp
    jmp [_LoadPerfCounterTextStrings]
  end;
end;
{$ELSE}
function LoadPerfCounterTextStrings; external loadperflib name 'LoadPerfCounterTextStringsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _LoadPerfCounterTextStrings: Pointer;

function LoadPerfCounterTextStrings;
begin
  GetProcedureAddress(_LoadPerfCounterTextStrings, loadperflib, 'LoadPerfCounterTextStringsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LoadPerfCounterTextStrings]
  end;
end;
{$ELSE}
function LoadPerfCounterTextStrings; external loadperflib name 'LoadPerfCounterTextStringsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _UnloadPerfCounterTextStringsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _UnloadPerfCounterTextStringsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _UnloadPerfCounterTextStrings: Pointer;

function UnloadPerfCounterTextStrings;
begin
  GetProcedureAddress(_UnloadPerfCounterTextStrings, loadperflib, 'UnloadPerfCounterTextStringsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_UnloadPerfCounterTextStrings]
  end;
end;
{$ELSE}
function UnloadPerfCounterTextStrings; external loadperflib name 'UnloadPerfCounterTextStringsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _UnloadPerfCounterTextStrings: Pointer;

function UnloadPerfCounterTextStrings;
begin
  GetProcedureAddress(_UnloadPerfCounterTextStrings, loadperflib, 'UnloadPerfCounterTextStringsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_UnloadPerfCounterTextStrings]
  end;
end;
{$ELSE}
function UnloadPerfCounterTextStrings; external loadperflib name 'UnloadPerfCounterTextStringsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _UpdatePerfNameFilesA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _UpdatePerfNameFilesW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _UpdatePerfNameFiles: Pointer;

function UpdatePerfNameFiles;
begin
  GetProcedureAddress(_UpdatePerfNameFiles, loadperflib, 'UpdatePerfNameFilesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_UpdatePerfNameFiles]
  end;
end;
{$ELSE}
function UpdatePerfNameFiles; external loadperflib name 'UpdatePerfNameFilesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _UpdatePerfNameFiles: Pointer;

function UpdatePerfNameFiles;
begin
  GetProcedureAddress(_UpdatePerfNameFiles, loadperflib, 'UpdatePerfNameFilesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_UpdatePerfNameFiles]
  end;
end;
{$ELSE}
function UpdatePerfNameFiles; external loadperflib name 'UpdatePerfNameFilesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _SetServiceAsTrustedA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetServiceAsTrustedW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetServiceAsTrusted: Pointer;

function SetServiceAsTrusted;
begin
  GetProcedureAddress(_SetServiceAsTrusted, loadperflib, 'SetServiceAsTrustedW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetServiceAsTrusted]
  end;
end;
{$ELSE}
function SetServiceAsTrusted; external loadperflib name 'SetServiceAsTrustedW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _SetServiceAsTrusted: Pointer;

function SetServiceAsTrusted;
begin
  GetProcedureAddress(_SetServiceAsTrusted, loadperflib, 'SetServiceAsTrustedA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetServiceAsTrusted]
  end;
end;
{$ELSE}
function SetServiceAsTrusted; external loadperflib name 'SetServiceAsTrustedA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _BackupPerfRegistryToFileW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RestorePerfRegistryFromFileW: Pointer;

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

end.