可以幫我偵測winodws資料夾的資料夾名稱嗎 |
|
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
|
Jungle
一般會員 發表:5 回覆:18 積分:9 註冊:2002-03-18 發送簡訊給我 |
|
阿子
站務副站長 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
別一種作法,給你作結參考。
{* ******************************** 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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |