Animierten Cursor verwenden

[Flocke]

Kleine Anmerkung: die komplette Funktion "CreateAniCursorFromResource" kann man sich sparen, da Icons und Cursor vom System gleich behandelt werden.

Es funktioniert also auch so:

Delphi-Quellcode:

function LoadAniCursor(hInst : Cardinal; lpID : PChar; lpType : PChar = nil) : HCURSOR;
var
  hRes : HRSRC;
  dwSize : DWORD;
  hGlob : HGLOBAL;
  pBytes : PBYTE;
begin
  result := 0;

  if not Assigned(lpType) then
    lpType := PChar('ANICURSOR');

  hRes := FindResource(hInst, lpID, lpType);
  if hRes <> 0 then
  begin
    dwSize := SizeofResource(hInst, hRes);
    hGlob := LoadResource(hInst, hRes);
    if hGlob <> 0 then
    begin
      pBytes := PBYTE(LockResource(hGlob));
      if Assigned(pBytes) then
        result := CreateIconFromResource(pBytes, dwSize, false, $30000);
    end;
  end;
end;