字体(30分)

可爱 · 2008-03-13

1.我有*.fon的字体文件,我要用delphi写一个程序将这字体加到里,怎么写
2. if OpenDialog1.Execute then
addfontresource(OpenDialog1.Filename);
和if OpenDialog1.Execute then
copyfile(OpenDialog1.Filename,'C:/WINDOWS/Fonts/'+ExtractFileName(OpenDialog1.Filename),true)
都有错误,是怎么回事

liyinwei · 2008-03-13

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
if not od.Execute then
Exit;

s := 'C:/WINDOWS/Fonts/' + ExtractFileName(od.FileName);
CopyFile(PChar(od.FileName),PChar(s),False);
AddFontResource(PChar(s));
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
end;

可爱 · 2008-03-13

AddFontResource(PChar(s));
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
两个函数是什么意思,有什么作用

liyinwei · 2008-03-13

广播字体资源已经更改的消息。

可爱 · 2008-03-13

某一文件夹下的所有文件怎么获取

liyinwei · 2008-03-13

代码:

//楼主这种又问第二个问题的行为不厚道
procedure SearchAllFile(DirName: String;
Files: TStrings);
var
  fpath: String;
  sr: TsearchRec;
begin
  fpath:=DirName+'/*.*';
  if FindFirst(fpath,faAnyFile, sr)=0 then
  repeat
    if (sr.Name <> '.')and(sr.Name <> '..') then
    begin
      if (sr.Attr and faDirectory)=faDirectory then
        SearchAllFile(DirName+'/'+sr.Name, Files)
      else
 Files.Add(DirName+'/'+sr.Name);
    end;
  until FindNext(sr) <> 0;
  FindClose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchAllFile('C:/demo', Memo1.Lines);
end;

可爱 · 2008-03-14

接受答案了.

字体(30分)

可爱

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

可爱

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

可爱

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

可爱

Unregistered / Unconfirmed

Similar threads