怎样获得任意格式的TBITMAP中的TBitmapInfoHeader结构的地址(100分)

怎样获得任意格式的TBITMAP中的TBitmapInfoHeader结构的地址

难道这个问题真的没希望了

各位高人，快来啊

难道各位都不知道，不要辱没大富翁的名声啊

...

获取 TBitmap 中BitmapInfoHeader 结构信息，试试：
function GetBmiHeader(Bitmap: TBitMap; var bmiHeader: TBitmapInfoHeader): Boolean;
var
hBmp: HBITMAP;
Image: Pointer;
Info: PBitmapInfo;
InfoSize, ImageSize: DWORD;
begin
Result := False;
if Bitmap = nil then
exit;
hBmp := Bitmap.Handle;
GetDIBSizes(hBmp, InfoSize, ImageSize);
Info := AllocMem(InfoSize);
try
Image := nil;
if GetDIB(hBmp, 0, Info^, Image^) then
begin
bmiHeader := Info^.bmiHeader;
Result := True;
end;
finally
FreeMem(Info, InfoSize);
end;
end;
要引用 Graphics 单元，返回结构信息在 bmiHeader 中。

谢谢，我翻成BCB试试