* 사용환경 : 델파이5 / Windows nt

제가 응용프로그램에서 이용한 글자체를 인스톨시에 등록하고 싶은데요. 인스톨등록시에 폰트를 등록하게 만들수 있을까요? 그런데 제가 가진 인스톨쉴드는 express판이거든요? 그래서 프로그램 실행시에 폰트를 등록할까 하는데 자꾸 에러가 납니다.

아래는 폰트 등록 프로그램인데 정확한 뜻은 잘 모르겠지만 실행을 하면 에러는 나지만 폰트는 등록됩니다.

var

hReg: TRegistry;

hBool : bool;

begin

CopyFile('C:admapfont1p.TTF',

'C:WINntFONTS1p.TTF', hBool);

hReg := TRegistry.Create;

hReg.RootKey := HKEY_LOCAL_MACHINE;

hReg.LazyWrite := false;

hReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionFonts',

false);

hReg.WriteString('1p','1p.TTF'); <-----에러

hReg.CloseKey;

hReg.free;

//Add the font resource

AddFontResource('c:winntfonts1p.TTF');

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);



* 에러 메시지 :

failed to set data for '1p'입니다. 아시는 분은 무지한 저에게 해답을 가르쳐 주시기를...

좋은 하루 되세요