jwawinreg.pas

比较全面的win32api开发包

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKey: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKey: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetKeySecurity: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValue: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValue: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueExA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueExW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueEx: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSetValueEx: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegUnLoadKeyA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegUnLoadKeyW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegUnLoadKey: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegUnLoadKey: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdown: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdown: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _AbortSystemShutdownA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _AbortSystemShutdownW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _AbortSystemShutdown: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _AbortSystemShutdown: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownExA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownExW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownEx: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _InitiateSystemShutdownEx: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKeyExA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _RegSaveKeyExW: Pointer;

function RegSaveKeyExW;
begin
  GetProcedureAddress(_RegSaveKeyExW, a