[[seoane]]

Podríamos intentar algo como esto:

Código Delphi [-]
library bitmaps;

uses Windows, SysUtils, Classes, Graphics, Controls;

function GetBitmap(Parametro: PChar): HBitmap; stdcall;
var
  Bitmap: TBitmap;
  OldBitmap: HBitmap;
  MemDC: HDC;
begin
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Canvas.Font.Size:= 32;
    Bitmap.Width:= Bitmap.Canvas.TextWidth(String(Parametro));
    Bitmap.Height:= Bitmap.Canvas.TextHeight(String(Parametro));
    Bitmap.Canvas.TextOut(0,0,String(Parametro));
    Result:= CreateCompatibleBitmap(Bitmap.Canvas.Handle, Bitmap.Width,
      Bitmap.Height);
    MemDC:= CreateCompatibleDC(Bitmap.Canvas.Handle);
    OldBitmap:= SelectObject(MemDC, Result);
    try
      BitBlt(MemDC,0,0,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,
        0,0,SRCCOPY);
    finally
      SelectObject(MemDC, OldBitmap);
      DeleteDC(MemDC);
    end;
  finally
    Bitmap.Free;
  end;
end; 

exports GetBitmap;

begin
end.

La librería anterior exporta la función GetBitmap, que devuelve un HBitmap con el texto que le pasamos como parámetro. Este handle, lo podemos usar en cualquier lenguaje, ya que hace referencia a un objeto de la API de windows. Lo que tenemos que recordar es de destruirlo una vez terminemos de usarlo, aunque en el caso de delphi ya se encarga el de destruirlo, como podemos ver en el siguiente ejemplo.

Código Delphi [-]
function GetBitmap(Parametro: PChar): HBitmap; stdcall; external 'bitmaps.dll';


var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  try
    Bitmap.Handle:= GetBitmap('Hola');
    Bitmap.SaveToFile('c:\1.bmp');
  finally
    // Al destruir el bitmap tambien destruimos el HBitmap
    Bitmap.Free;
  end;
end;

Para otros lenguajes tendrás que buscar tu como manejar la api, y si al contrario que en el caso anterior no destruyen el HBitmap por su cuenta tendrás usar la función DeleteObject para destruirlo tu mismo cuando ya no lo necesites.