Commit 0d2774f

Nick committed on
Adding call to RemoveFontResource
commit 0d2774ff144628de70a071cf52d28ea2d47f2ca8 parent 90b48c2
1 changed files +9−0
ModifiedGBEmu.lpr +9−0
@@ -32,6 +32,13 @@ uses
32 32
33 {$R *.res} 33 {$R *.res}
34 34
35 {$ifdef MSWINDOWS}
36 procedure WindowsExitProc;
37 begin
38 RemoveFontResource('PixeliteTTF.ttf');
39 end;
40 {$endif}
41
35 begin 42 begin
36 { Before the LCL starts, embed Pixelite so users dont have to install it. 43 { Before the LCL starts, embed Pixelite so users dont have to install it.
37 Unfortunately there isn't really a cross-platform way to do it, so here's an 44 Unfortunately there isn't really a cross-platform way to do it, so here's an
@@ -40,6 +47,8 @@ begin
40 {$ifdef MSWINDOWS} 47 {$ifdef MSWINDOWS}
41 if AddFontResource('PixeliteTTF.ttf') = 0 then 48 if AddFontResource('PixeliteTTF.ttf') = 0 then
42 Writeln(StdErr, 'Couldn''t load Pixelite!!!'); 49 Writeln(StdErr, 'Couldn''t load Pixelite!!!');
50
51 ExitProc := @WindowsExitProc;
43 {$endif} 52 {$endif}
44 53
45 Application.Scaled:=True; 54 Application.Scaled:=True;