還是unicode的問題，搞不定，求高手~
跟貼上pb9原始碼
郵箱：[email protected]
uj5u.com熱心網友回復：
呃，原始碼太長，不讓我發，，請看這個帖子下的nvo_commdlghttp://topic.csdn.net/u/20111027/09/b9f748ce-0347-4bfe-9434-14e7e33dcf20.html
謝謝大家啦~
uj5u.com熱心網友回復：
修改一下API宣告為ANSI版：
// Common Dialog External Functions
Function long GetOpenFileNameA(REF OPENFILENAME OpenFileName) library "comdlg32.dll" Alias For "GetOpenFileNameA;Ansi"
Function long GetSaveFileNameA(REF OPENFILENAME SaveFileName) library "comdlg32.dll" Alias For "GetSaveFileNameA;Ansi"
Function long PrintDlgA(REF PRINTDLG PrintDlg) library "comdlg32.dll" Alias For "PrintDlgA;Ansi"
Function long ChooseFontA(REF CHOOSEFONT ChooseFont) library "comdlg32.dll" Alias For "ChooseFontA;Ansi"
// Memory Functions
Function long GetDevMode(REF DEVMODE Destination, long Source, long Size) library "kernel32.dll" Alias For "RtlMoveMemory;Ansi"
Function long GetDevNames(REF DEVNAMES Destination, long Source, long Size) library "kernel32.dll" Alias For "RtlMoveMemory;Ansi"
Function long GetLogFont(REF LOGFONT Destination, long Source, long Size) library "kernel32.dll" Alias For "RtlMoveMemory;Ansi"
Function long PutLogFont(long Destination, REF LOGFONT Source, long Size) library "kernel32.dll" Alias For "RtlMoveMemory;Ansi"
Function long StrCopy(long Destination, REF string Source, long Size) library "kernel32.dll" Alias for "RtlMoveMemory;Ansi"
Function long LocalAlloc(long Flagss, long Bytes) library "kernel32.dll"
Function long LocalFree(long MemHandle) library "kernel32.dll"
Function long CommDlgExtendedError() library "comdlg32.dll"
Function long lstrcpy(long Destination, REF string Source) library "kernel32.dll" Alias For "lstrcpy;Ansi"
Function long LocalLock(long Handle) library "kernel32.dll"
Function long LocalUnlock(long Handle) library "kernel32.dll"
// Misc Functions
Function long GetWindowsDirectoryA(REF string Buffer, long Size) library "kernel32.dll" Alias For "GetWindowsDirectoryA;Ansi"
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/66629.html
標籤：API 調用
上一篇：保存按鈕腳本問題
下一篇：MySQL資料庫01