jwawinreg.pas

比较全面的win32api开发包

  _RegOpenKeyExA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegOpenKeyExW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegOpenKeyEx: Pointer;

function RegOpenKeyEx;
begin
  GetProcedureAddress(_RegOpenKeyEx, advapi32, 'RegOpenKeyExW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegOpenKeyEx]
  end;
end;
{$ELSE}
function RegOpenKeyEx; external advapi32 name 'RegOpenKeyExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegOpenKeyEx: Pointer;

function RegOpenKeyEx;
begin
  GetProcedureAddress(_RegOpenKeyEx, advapi32, 'RegOpenKeyExA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegOpenKeyEx]
  end;
end;
{$ELSE}
function RegOpenKeyEx; external advapi32 name 'RegOpenKeyExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryInfoKeyA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryInfoKeyW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryInfoKey: Pointer;

function RegQueryInfoKey;
begin
  GetProcedureAddress(_RegQueryInfoKey, advapi32, 'RegQueryInfoKeyW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryInfoKey]
  end;
end;
{$ELSE}
function RegQueryInfoKey; external advapi32 name 'RegQueryInfoKeyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryInfoKey: Pointer;

function RegQueryInfoKey;
begin
  GetProcedureAddress(_RegQueryInfoKey, advapi32, 'RegQueryInfoKeyA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryInfoKey]
  end;
end;
{$ELSE}
function RegQueryInfoKey; external advapi32 name 'RegQueryInfoKeyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValue: Pointer;

function RegQueryValue;
begin
  GetProcedureAddress(_RegQueryValue, advapi32, 'RegQueryValueW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryValue]
  end;
end;
{$ELSE}
function RegQueryValue; external advapi32 name 'RegQueryValueW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValue: Pointer;

function RegQueryValue;
begin
  GetProcedureAddress(_RegQueryValue, advapi32, 'RegQueryValueA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryValue]
  end;
end;
{$ELSE}
function RegQueryValue; external advapi32 name 'RegQueryValueA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryMultipleValuesA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryMultipleValuesW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryMultipleValues: Pointer;

function RegQueryMultipleValues;
begin
  GetProcedureAddress(_RegQueryMultipleValues, advapi32, 'RegQueryMultipleValuesW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryMultipleValues]
  end;
end;
{$ELSE}
function RegQueryMultipleValues; external advapi32 name 'RegQueryMultipleValuesW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryMultipleValues: Pointer;

function RegQueryMultipleValues;
begin
  GetProcedureAddress(_RegQueryMultipleValues, advapi32, 'RegQueryMultipleValuesA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryMultipleValues]
  end;
end;
{$ELSE}
function RegQueryMultipleValues; external advapi32 name 'RegQueryMultipleValuesA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueExA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueExW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueEx: Pointer;

function RegQueryValueEx;
begin
  GetProcedureAddress(_RegQueryValueEx, advapi32, 'RegQueryValueExW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryValueEx]
  end;
end;
{$ELSE}
function RegQueryValueEx; external advapi32 name 'RegQueryValueExW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegQueryValueEx: Pointer;

function RegQueryValueEx;
begin
  GetProcedureAddress(_RegQueryValueEx, advapi32, 'RegQueryValueExA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegQueryValueEx]
  end;
end;
{$ELSE}
function RegQueryValueEx; external advapi32 name 'RegQueryValueExA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegReplaceKeyA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegReplaceKeyW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegReplaceKey: Pointer;

function RegReplaceKey;
begin
  GetProcedureAddress(_RegReplaceKey, advapi32, 'RegReplaceKeyW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegReplaceKey]
  end;
end;
{$ELSE}
function RegReplaceKey; external advapi32 name 'RegReplaceKeyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegReplaceKey: Pointer;

function RegReplaceKey;
begin
  GetProcedureAddress(_RegReplaceKey, advapi32, 'RegReplaceKeyA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegReplaceKey]
  end;
end;
{$ELSE}
function RegReplaceKey; external advapi32 name 'RegReplaceKeyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegRestoreKeyA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegRestoreKeyW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegRestoreKey: Pointer;

function RegRestoreKey;
begin
  GetProcedureAddress(_RegRestoreKey, advapi32, 'RegRestoreKeyW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegRestoreKey]
  end;
end;
{$ELSE}
function RegRestoreKey; external advapi32 name 'RegRestoreKeyW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _RegRestoreKey: Pointer;

function RegRestoreKey;
begin
  GetProcedureAddress(_RegRestoreKey, advapi32, 'RegRestoreKeyA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_RegRestoreKey]
  end;
end;
{$ELSE}
function RegRestoreKey; external advapi32 name 'RegRestoreKeyA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKeyA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKeyW: Pointer;

function RegSaveKeyW;