モナーの *やさしい* Delphi質問スレ

漏れの場合は問題なかった。

うろ覚えなので適当に再現したけど、こういう使い方をしたような。

procedure TForm1.Button1Click(Sender: TObject);
var
　　NFont:TFont;
　　LogFont:TLogFont;

begin
　　NFont := TFont.Create;

　　try
　　　　SystemParametersInfo(SPI_GETICONTITLELOGFONT,SizeOf(LogFont),@LogFont,0);
　　　　NFont.Handle := CreateFontIndirect(LogFont);
　　　　Label1.Font.Assign(NFont);
　　finally
　　　　NFont.Free;
　　end;

end;

ちなみにDel4Pro。