小弟使用OpenDialog可以開始*.ttf檔案
但若是想要直接去取得C:\windows\fonts\裡的字型檔案，該如何得到該ttf檔的檔名呢？

另外，小弟取得ttf檔後，該如何傳TTF檔裡的檔案名稱讓Tmemo裡的字改變字型?
小弟搜尋過站內的文章，但到

[code delphi]
AddFontResource(PChar(D:\A.TTF));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
[/code]

這兩句後就卡住了
小弟愚鈍，實在不知道該怎麼傳給Tmemo...= =b

------
永遠都是新手

HI, 先請教一下，您知道有 TFontDialog 可以用嗎? 還是這個不是您要用的???
因為看下面的目的似乎也只是要換字型而已，還是有其他用途?

===================引 用 Reiji 文 章===================
小弟使用OpenDialog可以開始*.ttf檔案
但若是想要直接去取得C:\windows\fonts\裡的字型檔案，該如何得到該ttf檔的檔名呢？

另外，小弟取得ttf檔後，該如何傳TTF檔裡的檔案名稱讓Tmemo裡的字改變字型?
小弟搜尋過站內的文章，但到

[code delphi]
AddFontResource(PChar(D:\A.TTF));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
[/code]

這兩句後就卡住了
小弟愚鈍，實在不知道該怎麼傳給Tmemo...= =b

------
價值的展現，來自於你用哪一個角度來看待它!!

是，小弟主要是想做的像FONTVIEW的小工具
並且是可以自由load各目錄下的字型檔來查看字型
還打算要做個字型輸出比較的功能
所以TFontDialog對小弟來說感覺好像無法達到?

------
永遠都是新手

HI, 可以這樣試試    (參考網站：delphi.about.com )

拉一個 Combobox 在 Form 上，並他的屬性 Style 設為 csOwnerDrawFixed ，並命名為 FontCombo

然後在 FormCreate 的地方加上

var cnt : integer;
begin
for cnt := 0 to Screen.Fonts.Count-1 do
FontCombo.Items.Add(Screen.Fonts.Strings[cnt]) ;
end;


在這個 ComboBox 的 OnDrawItem 寫下
[code delphi]
procedure TForm1.FontComboDrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
State: TOwnerDrawState);
begin
with (Control as TComboBox).Canvas do
begin
Font.Name := Screen.Fonts.Strings[Index];
FillRect(Rect) ;
TextOut(Rect.Left, Rect.Top, PChar(Screen.Fonts.Strings[Index]))
end;
end;
[/code]

參考圖如下




===================引 用 Reiji 文 章===================
是，小弟主要是想做的像FONTVIEW的小工具
並且是可以自由load各目錄下的字型檔來查看字型
還打算要做個字型輸出比較的功能
所以TFontDialog對小弟來說感覺好像無法達到?

------
價值的展現，來自於你用哪一個角度來看待它!!

參考這篇
\\winnt\fonts\標楷體 是不行的，必須Copy Delphi 新手問題 / 作業研討 » 如何SHOW檔案列表
http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=94610
GETMYFILE('c:\winnt\fonts');

[code delphi]
function GetFontName(FileNameTTF : string): string;
{ return the "friendly name" for a TrueType font from a .TTF file }
var
hFile : file;
Buffer : string;
TempName : string;
iPos, jPos : Integer;
begin
{Build name for new resource file in}
{a temporary file, and call the API.}
TempName := ExtractFilePath(Application.ExeName) '~TEMP.FOT';

{ build temporary .FOT file for the .TTF }
if CreateScalableFontResource(1, PChar(TempName), PChar(FileNameTTF),
nil) then
begin
{ open .FOT file and read it into a string buffer }
AssignFile(hFile, TempName);
Reset(hFile, 1);
SetLength(Buffer, FileSize(hFile));
BlockRead(hFile, Buffer[1], FileSize(hFile));

{ The name sits behind the text 'FONTRES:' }
iPos := Pos('FONTRES:', Buffer) 8;

{ search for next null character }
jPos := iPos;
while Buffer[jPos] <> #0 do
Inc(jPos);

{ Return the font name }
Result := Copy(Buffer, iPos, jPos - iPos);

{ clean up }
CloseFile(hFile);
DeleteFile(TempName);
end
else
Result:='Error';
// ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then begin
edit1.text := OpenDialog1.FileName;
edit2.text := GetFontName(edit1.text);
Memo1.Font.Name := edit2.text; // 設定字型名稱
end;
end;
[/code]

------
努力會更接近成功

編輯記錄

To careychen:

這個方式似乎只能顯示c:\windows\fonts\下的字型
有沒有辦法能自由取得其他路徑下的字型檔呢?

To pceyes:
小弟試過這段程式後發現有兩個問題

首先，存取c:\windows\fonts時，點選檔案後不會有反應
也不會關閉開啟檔案的視窗，只有取消的份
即使加入GETMYFILE(ExtractFileDir(opendialog1.Files))也依然是沒反應
當然，存取其他目錄的ttf檔是正常的


另外，小弟在Memo1.Font.Name := edit2.text;前加入
[code delphi]
AddFontResource(PChar(opendialog1.Files));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
[/code]
但在Memo1裡的字仍舊沒有變成載入的字型，不曉得是不是小弟還遺漏了什麼?

------
永遠都是新手

是否要先在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
註冊??

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

編輯記錄

To careychen :
抱歉，我知道怎麼自由載入自己要的字型了
FormCreate不要加就可以了...哈哈

TO aftcast:
註冊是否就變成安裝了呢?
因為僅是用來view，所以在AddFontResource後
關閉程式還會先RemoveFontResource的@@"

------
永遠都是新手

除了OpenDialog外，在win31page內的FileListbox也無法顯示winnt\fonts的內容，所以應是被windows Api限制住了，一個方法是自己寫一個OpenDialog(很簡單)；至於你所提的方式，我在站上看到它是暫時性的安裝，關機後就不存在了，故容易混淆視聽，沒有再測了。
===================引 用 Reiji 文 章===================
To pceyes:
小弟試過這段程式後發現有兩個問題

首先，存取c:\windows\fonts時，點選檔案後不會有反應
也不會關閉開啟檔案的視窗，只有取消的份
即使加入GETMYFILE(ExtractFileDir(opendialog1.Files))也依然是沒反應
當然，存取其他目錄的ttf檔是正常的

------
努力會更接近成功

哈，祝您成功~~!

===================引 用 Reiji 文 章===================
To careychen :
抱歉，我知道怎麼自由載入自己要的字型了
FormCreate不要加就可以了...哈哈

TO aftcast:
註冊是否就變成安裝了呢?
因為僅是用來view，所以在AddFontResource後
關閉程式還會先RemoveFontResource的@@"

------
價值的展現，來自於你用哪一個角度來看待它!!

最近在寫個Tutorial, 可以顯示任意目錄下所有字型, 有全部代碼, 有興趣請參考:
http://codesquare.blogspot.com/2008/12/fontlist-110.html