10-07-2017, Saat: 16:47
var BitmapFileHeader: TBitmapFileHeader; BitmapInfoHeader: TBitmapInfoHeader; FileStream : TFileStream; Begin ... // The file stream to the file. You should change the file path :-) FileStream := TFileStream.Create('C:WindowsBubbles.bmp', fmOpenRead); try FileStream.Read(BitmapFileHeader, SizeOf(BitmapFileHeader)); FileStream.Read(BitmapInfoHeader, SizeOf(BitmapInfoHeader)); finally FileStream.Free; end; ... end;
Kaynak Site