jwawinver.pas

比较全面的win32api开发包

  GetProcedureAddress(_VerFindFileW, Version, 'VerFindFileW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerFindFileW]
  end;
end;
{$ELSE}
function VerFindFileW; external Version name 'VerFindFileW';
{$ENDIF DYNAMIC_LINK}

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _VerFindFile: Pointer;

function VerFindFile;
begin
  GetProcedureAddress(_VerFindFile, Version, 'VerFindFileW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerFindFile]
  end;
end;
{$ELSE}
function VerFindFile; external Version name 'VerFindFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _VerFindFile: Pointer;

function VerFindFile;
begin
  GetProcedureAddress(_VerFindFile, Version, 'VerFindFileA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerFindFile]
  end;
end;
{$ELSE}
function VerFindFile; external Version name 'VerFindFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _VerInstallFileA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _VerInstallFileW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _VerInstallFile: Pointer;

function VerInstallFile;
begin
  GetProcedureAddress(_VerInstallFile, Version, 'VerInstallFileW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerInstallFile]
  end;
end;
{$ELSE}
function VerInstallFile; external Version name 'VerInstallFileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _VerInstallFile: Pointer;

function VerInstallFile;
begin
  GetProcedureAddress(_VerInstallFile, Version, 'VerInstallFileA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerInstallFile]
  end;
end;
{$ELSE}
function VerInstallFile; external Version name 'VerInstallFileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoSizeA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoSizeW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoSize: Pointer;

function GetFileVersionInfoSize;
begin
  GetProcedureAddress(_GetFileVersionInfoSize, Version, 'GetFileVersionInfoSizeW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetFileVersionInfoSize]
  end;
end;
{$ELSE}
function GetFileVersionInfoSize; external Version name 'GetFileVersionInfoSizeW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoSize: Pointer;

function GetFileVersionInfoSize;
begin
  GetProcedureAddress(_GetFileVersionInfoSize, Version, 'GetFileVersionInfoSizeA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetFileVersionInfoSize]
  end;
end;
{$ELSE}
function GetFileVersionInfoSize; external Version name 'GetFileVersionInfoSizeA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfoW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfo: Pointer;

function GetFileVersionInfo;
begin
  GetProcedureAddress(_GetFileVersionInfo, Version, 'GetFileVersionInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetFileVersionInfo]
  end;
end;
{$ELSE}
function GetFileVersionInfo; external Version name 'GetFileVersionInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetFileVersionInfo: Pointer;

function GetFileVersionInfo;
begin
  GetProcedureAddress(_GetFileVersionInfo, Version, 'GetFileVersionInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetFileVersionInfo]
  end;
end;
{$ELSE}
function GetFileVersionInfo; external Version name 'GetFileVersionInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _VerLanguageNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _VerLanguageNameW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _VerLanguageName: Pointer;

function VerLanguageName;
begin
  GetProcedureAddress(_VerLanguageName, Version, 'VerLanguageNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerLanguageName]
  end;
end;
{$ELSE}
function VerLanguageName; external Version name 'VerLanguageNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _VerLanguageName: Pointer;

function VerLanguageName;
begin
  GetProcedureAddress(_VerLanguageName, Version, 'VerLanguageNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerLanguageName]
  end;
end;
{$ELSE}
function VerLanguageName; external Version name 'VerLanguageNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}


{$IFDEF DYNAMIC_LINK}
var
  _VerQueryValueA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _VerQueryValueW: Pointer;

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

{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _VerQueryValue: Pointer;

function VerQueryValue;
begin
  GetProcedureAddress(_VerQueryValue, Version, 'VerQueryValueW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerQueryValue]
  end;
end;
{$ELSE}
function VerQueryValue; external Version name 'VerQueryValueW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _VerQueryValue: Pointer;

function VerQueryValue;
begin
  GetProcedureAddress(_VerQueryValue, Version, 'VerQueryValueA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_VerQueryValue]
  end;
end;
{$ELSE}
function VerQueryValue; external Version name 'VerQueryValueA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

end.