RECUPERATION DES CURSEURS WINDOWS

const
    // OCR_HELP non reconnu par Delphi contrairement à IDC_HELP
    OCR_HELP = 32651;

    // OCR_PEN et IDC_PEN non reconnus par Delphi
    IDC_PEN = MakeIntResource(32631);
    OCR_PEN = 32631;

...

// Fonction de récupération du curseur système en cours
function GetSysCursor(Index: integer): HICON;
var
    pCur: PChar;
begin
    Case Index of
        1 : pCur := IDC_HELP;
        2 : pCur := IDC_APPSTARTING;
        3 : pCur := IDC_WAIT;
        4 : pCur := IDC_CROSS;
        5 : pCur := IDC_IBEAM;
        6 : pCur := IDC_PEN;
        7 : pCur := IDC_NO;
        8 : pCur := IDC_SIZENS;
        9 : pCur := IDC_SIZEWE;
        10 : pCur := IDC_SIZENWSE;
        11 : pCur := IDC_SIZENESW;
        12 : pCur := IDC_SIZEALL;
        13 : pCur := IDC_UPARROW;
        14 : pCur := IDC_HAND;
    else
        pCur := IDC_ARROW;
    end;
    Result := LoadCursor(0, pCur);
end;