jwauserenv.pas

比较全面的win32api开发包

  end;
end;
{$ELSE}
function LoadUserProfile; external userenvlib name 'LoadUserProfileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _LoadUserProfile: Pointer;

function LoadUserProfile;
begin
  GetProcedureAddress(_LoadUserProfile, userenvlib, 'LoadUserProfileA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LoadUserProfile]
  end;
end;
{$ELSE}
function LoadUserProfile; external userenvlib name 'LoadUserProfileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _UnloadUserProfile: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetProfilesDirectoryA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetProfilesDirectoryW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetProfilesDirectory: Pointer;

function GetProfilesDirectory;
begin
  GetProcedureAddress(_GetProfilesDirectory, userenvlib, 'GetProfilesDirectoryW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetProfilesDirectory]
  end;
end;
{$ELSE}
function GetProfilesDirectory; external userenvlib name 'GetProfilesDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetProfilesDirectory: Pointer;

function GetProfilesDirectory;
begin
  GetProcedureAddress(_GetProfilesDirectory, userenvlib, 'GetProfilesDirectoryA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetProfilesDirectory]
  end;
end;
{$ELSE}
function GetProfilesDirectory; external userenvlib name 'GetProfilesDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetProfileType: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DeleteProfileA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DeleteProfileW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _DeleteProfile: Pointer;

function DeleteProfile;
begin
  GetProcedureAddress(_DeleteProfile, userenvlib, 'DeleteProfileW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeleteProfile]
  end;
end;
{$ELSE}
function DeleteProfile; external userenvlib name 'DeleteProfileW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _DeleteProfile: Pointer;

function DeleteProfile;
begin
  GetProcedureAddress(_DeleteProfile, userenvlib, 'DeleteProfileA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_DeleteProfile]
  end;
end;
{$ELSE}
function DeleteProfile; external userenvlib name 'DeleteProfileA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetDefaultUserProfileDirectoryA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDefaultUserProfileDirectoryW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetDefaultUserProfileDirectory: Pointer;

function GetDefaultUserProfileDirectory;
begin
  GetProcedureAddress(_GetDefaultUserProfileDirectory, userenvlib, 'GetDefaultUserProfileDirectoryW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDefaultUserProfileDirectory]
  end;
end;
{$ELSE}
function GetDefaultUserProfileDirectory; external userenvlib name 'GetDefaultUserProfileDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetDefaultUserProfileDirectory: Pointer;

function GetDefaultUserProfileDirectory;
begin
  GetProcedureAddress(_GetDefaultUserProfileDirectory, userenvlib, 'GetDefaultUserProfileDirectoryA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetDefaultUserProfileDirectory]
  end;
end;
{$ELSE}
function GetDefaultUserProfileDirectory; external userenvlib name 'GetDefaultUserProfileDirectoryA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetAllUsersProfileDirectoryA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetAllUsersProfileDirectoryW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetAllUsersProfileDirectory: Pointer;

function GetAllUsersProfileDirectory;
begin
  GetProcedureAddress(_GetAllUsersProfileDirectory, userenvlib, 'GetAllUsersProfileDirectoryW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetAllUsersProfileDirectory]
  end;
end;
{$ELSE}
function GetAllUsersProfileDirectory; external userenvlib name 'GetAllUsersProfileDirectoryW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetAllUsersProfileDirectory: Pointer;