Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by NickelM,
19. Jun 2012
Ne, hab jetzt die try...finallys vergessen gehabt :-D Passiert mal :-D
Die könnte man noch nachtragen, falls wirklich jemand diesen Code benötigt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by NickelM,
19. Jun 2012
Naja mit Bummis Funktion habe ich es so hinbekommen:
var Icon : TIcon;
Bitmap,TmpBitmap : TBitmap;
IconInfo : TCursorOrIcon;
IconRec : TIconRec;
FileStream : TFileStream;
BmfInfo : TBitmapInfoHeader;
MemStream : TMemoryStream;
X,Y : Integer;