VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

COPY file c:\00\FREE3OF9.TTF to c:\windows\fonts無法建立檔案

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
Watermelon



註冊時間: 2005-01-22
文章: 197


第 1 樓

發表發表於: 星期三 五月 10, 2017 6:59 pm    文章主題: COPY file c:\00\FREE3OF9.TTF to c:\windows\fonts無法建立檔案 引言回覆

COPY file c:\00\FREE3OF9.TTF to c:\windows\fonts
RUN COPY c:\00\FREE3OF9.TTF c:\windows\fonts
這2個都不行請問各前輩要如何才能把字型檔複製進去?
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 2 樓

發表發表於: 星期三 五月 10, 2017 9:04 pm    文章主題: 引言回覆

COPY file c:\00\FREE3OF9.TTF to c:\windows\fonts\FREE3OF9.TTF
這樣行不?
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 3 樓

發表發表於: 星期三 五月 10, 2017 10:36 pm    文章主題: 引言回覆

http://vfp.sunyear.com.tw/viewtopic.php?t=6213&highlight=winexecute
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
Watermelon



註冊時間: 2005-01-22
文章: 197


第 4 樓

發表發表於: 星期四 五月 11, 2017 12:22 am    文章主題: 引言回覆

COPY file c:\00\FREE3OF9.TTF to c:\windows\fonts\FREE3OF9.TTF
還是無法建立檔案

COPY file c:\00\FREE3OF9.TTF to c:\111\FREE3OF9.TTF

用上面這個資料夾是OK的其他資料夾也OK,就c:\windows\fonts這資料夾搞不定!
回頂端
檢視會員個人資料 發送私人訊息
215001



註冊時間: 2003-06-11
文章: 389


第 5 樓

發表發表於: 星期四 五月 11, 2017 8:50 am    文章主題: 引言回覆

以系統管理員身份執行你的程式看看
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 6 樓

發表發表於: 星期四 五月 11, 2017 1:14 pm    文章主題: 引言回覆

本來想提醒這個權限問題的........



http://vfp.sunyear.com.tw/viewtopic.php?t=6815&highlight=fonts

10樓

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
Watermelon



註冊時間: 2005-01-22
文章: 197


第 7 樓

發表發表於: 星期四 五月 11, 2017 2:06 pm    文章主題: 引言回覆

感謝各位前輩!我是有先搜尋也試了不行才再問看看!謝謝大家!
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 8 樓

發表發表於: 星期四 五月 11, 2017 11:03 pm    文章主題: 引言回覆

雖然使用者是administrator ,
但在執行cmd.exe 時還是要選"以系統管理員的身份執行",
才能將檔案複製到windows資料夾
你可以在你的電腦搜尋到 FoxRun.pif ,將它複製到你的執行檔那個資料夾.
並按滑鼠右鍵, 在"內容"."相容性", "以系統管理員的身份執行此程式"打勾.
這樣你run 就沒問題了.

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
Watermelon



註冊時間: 2005-01-22
文章: 197


第 9 樓

發表發表於: 星期二 五月 16, 2017 11:40 am    文章主題: 引言回覆

搞不定!
暫時放棄了,非常感謝各前輩!
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 10 樓

發表發表於: 星期二 五月 16, 2017 1:11 pm    文章主題: 引言回覆

其實有個巧門.

先做一個批次檔可以call 其他批次檔.
再把這個批次檔編譯成exe檔,
最後建立這個exe檔的捷徑並給它系統管理者的權限.

日後透過這個捷徑執行的批次檔就會取得系統管理者權限,
做任何壞事.

Twisted Evil Twisted Evil Twisted Evil Twisted Evil


----
在win8 之後,
使用者設定成"系統管理者",
但其實權限並非以往(win7)以前的"系統管理者"權限,
比poweruser 高,但比 administrator 低.
而win8以後限制使用administrator,
所以很多情況會出現權限不足.

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 11 樓

發表發表於: 星期二 五月 16, 2017 4:45 pm    文章主題: 引言回覆

看來,不出手不行了。

setFont("c:\00\FREE3OF9.TTF")


代碼:

Function SetFont
Lparameters vFontName
Clear Dlls

Private iRetVal, iLastError
Private sFontDir, sSourceDir, sFontFileName, sFOTFile
Private sWinDir, iBufLen
iRetVal = 0

***** Code to customize with actual file names and locations.
*-- .TTF file path.
sSourceDir = Addbs(Justpath(vFontName))

*-- .TTF file name.
sFontFileName = Justfname(vFontName)

*-- Font description (as it will appear in Control Panel).
sFontName = Juststem(vFontName) + " (TrueType)"
******************** End of code to customize *****

Declare Integer CreateScalableFontResource In win32api ;
   LONG fdwHidden, ;
   STRING lpszFontRes, ;
   STRING lpszFontFile, ;
   STRING lpszCurrentPath

Declare Integer AddFontResource In win32api ;
   STRING lpszFilename

Declare Integer RemoveFontResource In win32api ;
   STRING lpszFilename

Declare Long GetLastError In win32api

Declare Integer GetWindowsDirectory In win32api String @lpszSysDir,;
   INTEGER iBufLen

#Define WM_FONTCHANGE   29 && 0x001D
#Define HWND_BROADCAST  65535 && 0xffff

Declare Long SendMessage In win32api ;
   LONG HWnd, Integer Msg, Long wParam, Integer Lparam

*!*   #Define HKEY_LOCAL_MACHINE 2147483650   && (HKEY) 0x80000002
#Define SECURITY_ACCESS_MASK 983103     && SAM value KEY_ALL_ACCESS

Declare RegCreateKeyEx In ADVAPI32.Dll ;
   INTEGER, String, Integer, String, Integer, Integer, ;
   INTEGER, Integer @, Integer @

Declare RegSetValueEx In ADVAPI32.Dll;
   INTEGER, String, Integer, Integer, String, Integer

Declare RegCloseKey In ADVAPI32.Dll Integer

*-- Fonts folder path.
*-- Use the GetWindowsDirectory API function to determine
*-- where the Fonts directory is located.
sWinDir = Space(50)  && Allocate the buffer to hold the directory name.
iBufLen = 50         && Pass the size of the buffer.
iRetVal = GetWindowsDirectory(@sWinDir, iBufLen)

*-- iRetVal holds the length of the returned string.
*-- Since the string is null-terminated, we need to
*-- snip the null off.
sWinDir = Substr(sWinDir, 1, iRetVal)
sFontDir = sWinDir + "\FONTS\"

*-- Get .FOT file name.
sFOTFile  = sFontDir + Left(sFontFileName, ;
   LEN(sFontFileName) - 4) + ".FOT"

*-- Copy to Fonts folder.

Copy File (sSourceDir + sFontFileName) To    (sFontDir + sFontFileName)

*-- Create the font.
iRetVal = ;
   CreateScalableFontResource(0, sFOTFile, sFontFileName, sFontDir)
If iRetVal = 0 Then
   iLastError = GetLastError ()
   If iLastError = 80
      Messagebox("Font file " + sFontDir + sFontFileName + ;
         "已經存在!")
   Else
      *!*            Messagebox("Error1 " + Str (iLastError))
      opendoc(vFontName)
   Endif
   Return
Endif

*-- Add the font to the system font table.
iRetVal = AddFontResource (sFOTFile)
If iRetVal = 0 Then
   iLastError = GetLastError ()
   If iLastError = 87 Then
      Messagebox("Incorrect Parameter")
   Else
      *!*            Messagebox("Error2 " + Str (iLastError),16,vFontName)
      opendoc(vFontName)
   Endif
   Return
Endif

*-- Make the font persistent across reboots.
Store 0 To iResult, iDisplay
iRetVal = RegCreateKeyEx(HKEY_LOCAL_MACHINE, ;
   "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", 0, "REG_SZ", ;
   0, SECURITY_ACCESS_MASK, 0, @iResult, ;
   @iDisplay) && Returns .T. if successful

*-- Uncomment the following lines to display information
*!*   *-- about the results of the function call.
*!*      WAIT WINDOW STR(iResult)   && Returns the key handle
*!*      WAIT WINDOW STR(iDisplay)  && Returns one of 2 values:
*!*                                 && REG_CREATE_NEW_KEY = 1
*!*                                 && REG_OPENED_EXISTING_KEY = 2

iRetVal = RegSetValueEx(iResult, sFontName, 0, 1, sFontFileName, 13)

*-- Close the key.  Don't keep it open longer than necessary.
iRetVal = RegCloseKey(iResult)

*-- Notify all the other application a new font has been added.
iRetVal = SendMessage (HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
If iRetVal = 0 Then
   iLastError = GetLastError ()
   *!*         Messagebox("Error3 " + Str (iLastError))
   opendoc(vFontName)
   Return
Endif

Erase (sFOTFile)
*-- Code ends here
Messagebox(sFontDir + sFontFileName,64,"字型安裝完成")
Return


版權聲明,上述程式碼不是我寫的,但來源忘記了,功勞歸於原作者。
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
goodnight



註冊時間: 2008-10-13
文章: 472
來自: 台南市

第 12 樓

發表發表於: 星期三 五月 24, 2017 12:00 pm    文章主題: 引言回覆

哇~~光看程式碼,就知道我自己有多麼的渺小了
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作