Déclarer des fonctions externes selon qu'elles existent

Question

Je voudrais déclarer une fonction externe de la bibliothèque kernel32.dll dont le nom est GetTickCount64. Pour autant que je sache, il est défini uniquement dans Vista et dans les versions ultérieures de Windows. Cela signifie que lorsque je définis la fonction comme suit:

function GetTickCount64: int64; external kernel32 name 'GetTickCount64'; 

Je vais certainement pas en mesure d'exécuter mon application sur les versions précédentes de Windows en raison d'erreur généré au démarrage de l'application.

Y a-t-il une solution de contournement à ce problème? Disons que je voudrais ne pas inclure cette fonction quand elle n'existe pas et ensuite utiliser une fonction de substitution dans mon code. Comment faire ça? Y a-t-il des directives de compilation qui pourraient aider? Je pense que la définition devrait être entourée d'une telle directive et je devrais aussi utiliser certaines directives partout où j'utilise la fonction GetTickCount64, n'est-ce pas?

Votre aide sera appréciée. Merci d'avance.

Mariusz.

Answer 1

déclarer un pointeur de fonction de ce type, puis de charger la fonction lors de l'exécution avec LoadLibrary ou GetModuleHandle et GetProcAddress. Vous pouvez trouver plusieurs exemples de la technique dans le code source Delphi; Regardez TlHelp32.pas, qui charge le ToolHelp library, qui n'est pas disponible sur les anciennes versions de Windows NT.

interface 

function GetTickCount64: Int64; 

implementation 

uses Windows, SysUtils; 

type 
    // Don't forget stdcall for API functions. 
    TGetTickCount64 = function: Int64; stdcall; 

var 
    _GetTickCount64: TGetTickCount64; 

// Load the Vista function if available, and call it. 
// Raise EOSError if the function isn't available. 
function GetTickCount64: Int64; 
var 
    kernel32: HModule; 
begin 
    if not Assigned(_GetTickCount64) then begin 
    // Kernel32 is always loaded already, so use GetModuleHandle 
    // instead of LoadLibrary 
    kernel32 := GetModuleHandle('kernel32'); 
    if kernel32 = 0 then 
     RaiseLastOSError; 
    @_GetTickCount := GetProcAddress(kernel32, 'GetTickCount64'); 
    if not Assigned(_GetTickCount64) then 
     RaiseLastOSError; 
    end; 
    Result := _GetTickCount64; 
end;