WinXP Icons 32 Bit

[Mystic]

Nicht Icons, Bitmaps

Delphi-Quellcode:

var
  h: HMODULE;
  b: TBitmap;

b := TBitmap.Create;
try
  h := LoadLibrary('shell32.dll');
  if h <> 0 then
    try
      b.LoadFromResourceID(h, 215);  // Bitmap 215
      // Mach was mit b
    finally
      FreeLibrary(h);
    end;
finally
  b.Free;
end;