title image


Smiley ganz einfach...


program fontproject;



uses

Forms,windows,sysutils,messages,

Unit1 in 'Unit1.pas' {Form1};



{$R *.RES}



begin

AddFontResource(Pchar(ExtractFilePath(ParamStr(0))+'myfont.TTF'));

SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

RemoveFontResource(pchar(ExtractFilePath(ParamStr(0))+'myfont.TTF'));

SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

end.











jetzt kannst du diesen font beliebig zuweisen.

//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: