Font aus Resource direkt via Stream benutzen?

[Z4ppy]

Ich such nach ner Möglichkeit, nen Font aus ner Resource direkt (ohne Dropping) zu benutzen. Wie ist das möglich?
Ich habs bisher immer so gemacht:

Delphi-Quellcode:

randomize;
rand:=inttostr(Random(8999)+1000);
while FileExists('FONT'+rand+'.ttf') do rand:=inttostr(Random(89999)+1000);
Res:=TResourceStream.Create(hInstance, 'font', PChar('FONT'));
Res.SaveToFile('FONT'+rand+'.ttf');
FreeAndNil(Res);
AddFontResource(PChar('FONT'+rand+'.ttf'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Label1.Font.Name:='FONT';

Aber das muss doch auch ohne Droppen gehen, oder?

MfG Z4ppy

PS: Das mit dem rand hab ich zur Sicherheit gemacht, weil es ja sein könnte, dass die Datei FONT.ttf existiert und dann n Fehler ausgelöst wird...