Delphi什么时候调用GdiplusStartup

 今天，突然想到一个问题，C++里面调用GDIPlus必须进行初始化操作，但是在DELPHI 里面没有找到调用GdiplusStartup的地方，后来想想，肯定是在单元的初始化里面调用了，果然查了一下GDIPOBJ这个单元，发先下了一下代码

GDIPOBJ单元

//初始化

initialization

begin

  // Initialize StartupInput structure

  StartupInput.DebugEventCallback := nil;

  StartupInput.SuppressBackgroundThread := False;

  StartupInput.SuppressExternalCodecs   := False;

  StartupInput.GdiplusVersion := 1;

  // Initialize GDI+

  GdiplusStartup(gdiplusToken, @StartupInput, nil);

end;

//销毁

finalization

begin

  if assigned(GenericSansSerifFontFamily) then GenericSansSerifFontFamily.Free;

  if assigned(GenericSerifFontFamily) then GenericSerifFontFamily.Free;

  if assigned(GenericMonospaceFontFamily) then GenericMonospaceFontFamily.Free;

  if assigned(GenericTypographicStringFormatBuffer) then GenericTypographicStringFormatBuffer.free;

  if assigned(GenericDefaultStringFormatBuffer) then GenericDefaultStringFormatBuffer.Free;

  // Close GDI +

  GdiplusShutdown(gdiplusToken);

end;