jwauxtheme.pas

比较全面的win32api开发包

end;
{$ELSE}
function GetThemeBool; external themelib name 'GetThemeBool';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeInt: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeEnumValue: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemePosition: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeFont: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeRect: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeMargins: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeIntList: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemePropertyOrigin: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _SetWindowTheme: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeFilename: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysColor: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysColorBrush: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysBool: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysSize: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysFont: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysString: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetThemeSysInt: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _IsThemeActive: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _IsAppThemed: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetWindowTheme: Pointer;

function GetWindowTheme;
begin
  GetProcedureAddress(_GetWindowTheme, themelib, 'GetWindowTheme');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetWindowTheme]
  end;
end;
{$ELSE}
function Get