全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1477
推到 Plurk!
推到 Facebook!

可以幫我偵測winodws資料夾的資料夾名稱嗎

 
jiannrong
一般會員


發表:58
回覆:36
積分:18
註冊:2002-05-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-26 08:51:36 IP:140.109.xxx.xxx 未訂閱
請教一下 若我有檔案想要利用copyfile方式複製到windows資料夾下 但是我不知道使用者的電腦 windows資料夾是c:\winodws 還是c:\win 或是其他名稱 想請教一下 delphi內有語法可以幫我偵測winodws資料夾的資料夾名稱嗎 謝謝
Jungle
一般會員


發表:5
回覆:18
積分:9
註冊:2002-03-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-07-26 09:24:53 IP:202.39.xxx.xxx 未訂閱
您試試這API看看-> GetWindowsDirectory    
引言: 請教一下 若我有檔案想要利用copyfile方式複製到windows資料夾下 但是我不知道使用者的電腦 windows資料夾是c:\winodws 還是c:\win 或是其他名稱 想請教一下 delphi內有語法可以幫我偵測winodws資料夾的資料夾名稱嗎 謝謝
阿子
站務副站長


發表:120
回覆:230
積分:201
註冊:2002-03-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-07-31 15:34:23 IP:61.221.xxx.xxx 未訂閱
別一種作法,給你作結參考。
{* ******************************** GetSpecialFolderDir ********************* *}
{* =================================Blue Fox================================= *}
{* 目    的: 取回系統檔或系統目錄
{* 關 鍵 字:
{* 輸 入 值:  mFolder: Integer
{* 傳 回 值:  GetSpecialFolderDir:string
{* 呼 叫 式:   GetSpecialFolderDir(CSIDL_DESKTOPDIRECTORY);
{* 說    明:  參考Kingron資料中"如何取得某些特殊檔夾路徑
{*            要引用些函數時要uses Shlobj這個單元檔
{*   { 系統檔或系統目錄代碼 }
{*
{*    CSIDL_BITBUCKET         *   回收筒
{*    CSIDL_CONTROLS          *   控制面板
{*    CSIDL_DESKTOP           *   桌面
{*    CSIDL_DESKTOPDIRECTORY      桌面目錄       //如C:\WINDOWS\Desktop
{*    CSIDL_DRIVES            *   我的電腦
{*    CSIDL_FONTS                 字形           //如C:\WINDOWS\FONTS
{*    CSIDL_NETHOOD               網上芳鄰目錄   //如C:\WINDOWS\NetHood
{*    CSIDL_NETWORK           *   網上芳鄰
{*    CSIDL_PERSONAL              我的文件       //如C:\My Documents
{*    CSIDL_PRINTERS          *   印表機
{*    CSIDL_PROGRAMS              程式集         //如C:\WINDOWS\Start Menu\Programs
{*    CSIDL_RECENT                最近文件       //如C:\WINDOWS\Recent
{*    CSIDL_SENDTO                發送到         //如C:\WINDOWS\SentTo
{*    CSIDL_STARTMENU             開始選單       //如C:\WINDOWS\Start Menu
{*    CSIDL_STARTUP               啟動           //如C:\WINDOWS\啟動
{*    CSIDL_TEMPLATES             模版           //如C:\WINDOWS\ShellNew
{*
{* 日    期      由      注解
{* ----------    ----    -------
{* 2002/01/25    Zswang  建立
{* 2002/07/20    levi    整理
{* =================================Blue Fox==============================2.0 *}    function GetSpecialFolderDir(mFolder: Integer): string;
var
  vItemIDList: PItemIDList;
  vBuffer: array[0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, mFolder, vItemIDList);
  SHGetPathFromIDList(vItemIDList, vBuffer); //轉換成檔案系統的路徑
  Result := vBuffer;
end; { GetSpecialFolderDir }
從思考取勝一切~q
------
從思考取勝一切~q
系統時間:2024-05-15 3:05:58
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!