[lmikle]

Да можно и так. Просто я предпочитаю более структурированный и самодокументированный код. Проще разбираться, когда к такому коду возвращаешься через долгое время...

[NumLock]

так а пусть сама Windows разбиралась в формате графического файла. там хоть gif в jpeg переименовать:

Код:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp:=CreateBitmapFromFile('image.jpg');
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;

Код:

unit NumLock;

interface

uses ActiveX, ComObj, Windows, Classes, Graphics;

function CreateBitmapFromFile(FileName: String): TBitmap;

implementation

function CreateBitmapFromFile(FileName: String): TBitmap;
var
  FPicture: IPicture;
  hFile: THandle;
  dwSize: DWORD;
  hBuffer: Cardinal;
  pBuffer: Pointer;
  dummy: Cardinal;
  pStream: IStream;

  function GetMMWidth(): Integer;
  begin
    Result:=0;
    FPicture.get_Width(Result);
  end;

  function GetMMHeight(): Integer;
  begin
    Result:=0;
    FPicture.get_Height(Result);
  end;

  function GetWidth(): Integer;
  var
    dc: HDC;
  begin
    dc:=GetDC(0);
    Result:=MulDiv(GetMMWidth, GetDeviceCaps(dc, LOGPIXELSX), 2540);
    ReleaseDC(0, dc);
  end;

  function GetHeight(): Integer;
  var
    dc: HDC;
  begin
    dc:=GetDC(0);
    Result:=MulDiv(GetMMHeight, GetDeviceCaps(dc, LOGPIXELSY), 2540);
    ReleaseDC(0, dc);
  end;

  function GetPalette(): HPALETTE;
  var
    Handle: OLE_HANDLE;
  begin
    FPicture.get_hPal(Handle);
    Result:=HPALETTE(Handle);
  end;

begin
  Result:=TBitmap.Create;
  hFile:=CreateFile(PChar(FileName),
    GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0
  );
  if hFile<>INVALID_HANDLE_VALUE then
  begin
    dwSize:=GetFileSize(hFile, nil);
    hBuffer:=GlobalAlloc(GMEM_MOVEABLE, dwSize);
    pBuffer:=GlobalLock(hBuffer);
    ReadFile(hFile, pBuffer^, dwSize, dummy, nil);
    GlobalUnlock(hBuffer);
    CreateStreamOnHGlobal(hBuffer, True, pStream);
    OleCheck(OleLoadPicture(pStream, 0, True, IPicture, FPicture));
    GlobalFree(hBuffer);
    Result.Width:=GetWidth;
    Result.Height:=GetHeight;
    Result.Palette:=GetPalette;
    FPicture.Render(Result.Canvas.Handle,
      0, 0, GetWidth, GetHeight,
      0, GetMMHeight-1, GetMMWidth, -GetMMHeight,
      Rect(0, 0, GetWidth, GetHeight));
    CloseHandle(hFile);
  end;
end;

initialization
  OleInitialize(nil);

end.

а если GDI+ использовать, то и png поймет легко.

[PhoeniX]

Как предлагали говорить на хабре, "!™"

[angvelem]

Сообщение от NumLock

так а пусть сама Windows разбиралась в формате графического файла. там хоть gif в jpeg переименовать:...

...а если GDI+ использовать, то и png поймет легко.

OleLoadPicture понимает не так уж много форматов, но для ТС это в самый раз, если разберётся, а мне требовалось грузить различные форматы и не только графические. Расширение HUC - архив, а в нём может быть что угодно.