* tar xzf utvpn-src-unix-v101-7101-public-2010.06.27.tar.gz
[lab.git] / utvpn / utvpn-unix-v101-7101-public / src / Cedar / Win32Html.cpp
diff --git a/utvpn/utvpn-unix-v101-7101-public/src/Cedar/Win32Html.cpp b/utvpn/utvpn-unix-v101-7101-public/src/Cedar/Win32Html.cpp
new file mode 100644 (file)
index 0000000..24d19bd
--- /dev/null
@@ -0,0 +1,731 @@
+// SoftEther UT-VPN SourceCode\r
+// \r
+// Copyright (C) 2004-2010 SoftEther Corporation.\r
+// Copyright (C) 2004-2010 University of Tsukuba, Japan.\r
+// Copyright (C) 2003-2010 Daiyuu Nobori.\r
+// All Rights Reserved.\r
+// \r
+// http://utvpn.tsukuba.ac.jp/\r
+// \r
+// This program is free software; you can redistribute it and/or\r
+// modify it under the terms of the GNU General Public License\r
+// version 2 as published by the Free Software Foundation.\r
+// \r
+// This program is distributed in the hope that it will be useful,\r
+// but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+// GNU General Public License for more details.\r
+// \r
+// You should have received a copy of the GNU General Public License version 2\r
+// along with this program; if not, write to the Free Software\r
+// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\r
+// \r
+// このファイルは GPL バージョン 2 ライセンスで公開されています。\r
+// 誰でもこのファイルの内容を複製、改変したり、改変したバージョンを再配布\r
+// することができます。ただし、原著作物を改変した場合は、原著作物の著作権表示\r
+// を除去することはできません。改変した著作物を配布する場合は、改変実施者の\r
+// 著作権表示を原著作物の著作権表示に付随して記載するようにしてください。\r
+// \r
+// この SoftEther UT-VPN オープンソース・プロジェクトは、日本国の\r
+// ソフトイーサ株式会社 (SoftEther Corporation, http://www.softether.co.jp/ )\r
+// および筑波大学 (University of Tsukuba, http://www.tsukuba.ac.jp/ ) によって\r
+// ホストされています。\r
+// 本プログラムの配布者は、本プログラムを、業としての利用以外のため、\r
+// および、試験または研究のために利用が行われることを想定して配布\r
+// しています。\r
+// SoftEther UT-VPN プロジェクトの Web サイトは http://utvpn.tsukuba.ac.jp/ に\r
+// あります。\r
+// 本ソフトウェアの不具合の修正、機能改良、セキュリティホールの修復などのコード\r
+// の改変を行った場合で、その成果物を SoftEther UT-VPN プロジェクトに提出して\r
+// いただける場合は、 http://utvpn.tsukuba.ac.jp/ までソースコードを送付して\r
+// ください。SoftEther UT-VPN プロジェクトの本体リリースまたはブランチリリース\r
+// に組み込みさせていただきます。\r
+// \r
+// GPL に基づいて原著作物が提供される本ソフトウェアの改良版を配布、販売する\r
+// 場合は、そのソースコードを GPL に基づいて誰にでも開示する義務が生じます。\r
+// \r
+// 本ソフトウェアに関連する著作権、特許権、商標権はソフトイーサ株式会社\r
+// (SoftEther Corporation) およびその他の著作権保持者が保有しています。\r
+// ソフトイーサ株式会社等はこれらの権利を放棄していません。本ソフトウェアの\r
+// 二次著作物を配布、販売する場合は、これらの権利を侵害しないようにご注意\r
+// ください。\r
+// \r
+// お願い: どのような通信ソフトウェアにも通常は必ず未発見の\r
+// セキュリティホールが潜んでいます。本ソースコードをご覧いただいた結果、\r
+// UT-VPN にセキュリティホールを発見された場合は、当該セキュリティホールの\r
+// 情報を不特定多数に開示される前に、必ず、ソフトイーサ株式会社\r
+// および脆弱性情報の届出を受け付ける公的機関まで通報いただき、\r
+// 公益保護にご協力いただきますようお願い申し上げます。\r
+// \r
+// ソフトイーサ株式会社は、当該セキュリティホールについて迅速に対処を\r
+// 行い、UT-VPN および UT-VPN に関連するソフトウェアのユーザー・顧客\r
+// を保護するための努力を行います。\r
+// \r
+// ソフトイーサへの届出先: http://www.softether.co.jp/jp/contact/\r
+// 日本国内の脆弱性情報届出受付公的機関:\r
+//         独立行政法人 情報処理推進機構\r
+//         http://www.ipa.go.jp/security/vuln/report/\r
+// \r
+// 上記各事項について不明な点は、ソフトイーサ株式会社までご連絡ください。\r
+// 連絡先: http://www.softether.co.jp/jp/contact/\r
+\r
+// -----------------------------------------------\r
+// [ChangeLog]\r
+// 2010.05.20\r
+//  新規リリース by SoftEther\r
+// -----------------------------------------------\r
+\r
+// Win32Html.c\r
+// Win32 用 HTML 表示モジュール\r
+\r
+// Q. ソースコード名が「HTML」となっているが、どう見ても HTML に関係のない処理\r
+//    が入っているように見える。\r
+// A. はい。\r
+\r
+#ifdef WIN32\r
+\r
+#define        WIN32HTML_CPP\r
+\r
+//#define      _WIN32_WINNT            0x0502\r
+//#define      WINVER                          0x0502\r
+#include <winsock2.h>\r
+#include <windows.h>\r
+#include <wincrypt.h>\r
+#include <wininet.h>\r
+#include <comdef.h>\r
+#include <Mshtmhst.h>\r
+#include <shlobj.h>\r
+#include <commctrl.h>\r
+#include <Dbghelp.h>\r
+#include <stdio.h>\r
+#include <stdlib.h>\r
+#include <string.h>\r
+#include <wchar.h>\r
+#include <stdarg.h>\r
+#include <time.h>\r
+#include <errno.h>\r
+extern "C"\r
+{\r
+#include <Mayaqua/Mayaqua.h>\r
+#include <Cedar/Cedar.h>\r
+}\r
+#include "../PenCore/resource.h"\r
+\r
+typedef struct FOLDER_DLG_INNER_DATA\r
+{\r
+       wchar_t *default_dir;\r
+} FOLDER_DLG_INNER_DATA;\r
+\r
+int CALLBACK FolderDlgInnerCallbackA(HWND hWnd, UINT msg, LPARAM lParam, LPARAM lData)\r
+{\r
+       FOLDER_DLG_INNER_DATA *data = (FOLDER_DLG_INNER_DATA *)lData;\r
+       LPITEMIDLIST pidl;\r
+\r
+       switch (msg)\r
+       {\r
+       case BFFM_INITIALIZED:\r
+               if (data->default_dir != NULL)\r
+               {\r
+                       char *default_dir_a = CopyUniToStr(data->default_dir);\r
+\r
+                       SendMessage(hWnd, BFFM_SETSELECTIONA, true, (LPARAM)default_dir_a);\r
+\r
+                       Free(default_dir_a);\r
+               }\r
+               break;\r
+\r
+       case BFFM_SELCHANGED:\r
+               pidl = (LPITEMIDLIST)lParam;\r
+\r
+               if (pidl)\r
+               {\r
+                       char tmp[MAX_PATH];\r
+\r
+                       Zero(tmp, sizeof(tmp));\r
+                       if (SHGetPathFromIDListA(pidl, tmp))\r
+                       {\r
+                               SendMessage(hWnd, BFFM_ENABLEOK, 0, 1);\r
+                       }\r
+                       else\r
+                       {\r
+                               SendMessage(hWnd, BFFM_ENABLEOK, 0, 0);\r
+                       }\r
+               }\r
+               break;\r
+       }\r
+\r
+       return 0;\r
+}\r
+\r
+char *FolderDlgInnerA(HWND hWnd, wchar_t *title, char *default_dir)\r
+{\r
+       BROWSEINFOA info;\r
+       char display_name[MAX_PATH];\r
+       FOLDER_DLG_INNER_DATA data;\r
+       LPMALLOC pMalloc;\r
+       char *ret = NULL;\r
+       char *title_a;\r
+       if (UniIsEmptyStr(title))\r
+       {\r
+               title = NULL;\r
+       }\r
+       if (IsEmptyStr(default_dir))\r
+       {\r
+               default_dir = NULL;\r
+       }\r
+\r
+       Zero(&data, sizeof(data));\r
+       data.default_dir = CopyStrToUni(default_dir);\r
+\r
+       Zero(display_name, sizeof(display_name));\r
+       Zero(&info, sizeof(info));\r
+       info.hwndOwner = hWnd;\r
+       info.pidlRoot = NULL;\r
+       info.pszDisplayName = display_name;\r
+       title_a = CopyUniToStr(title);\r
+       info.lpszTitle = title_a;\r
+       info.ulFlags = BIF_NEWDIALOGSTYLE | BIF_RETURNONLYFSDIRS | BIF_VALIDATE | BIF_SHAREABLE;\r
+       info.lpfn = FolderDlgInnerCallbackA;\r
+       info.lParam = (LPARAM)&data;\r
+\r
+       if (SUCCEEDED(SHGetMalloc(&pMalloc)))\r
+       {\r
+               LPITEMIDLIST pidl;\r
+\r
+               pidl = SHBrowseForFolderA(&info);\r
+\r
+               if (pidl)\r
+               {\r
+                       char tmp[MAX_PATH];\r
+\r
+                       if (SHGetPathFromIDListA(pidl, tmp))\r
+                       {\r
+                               ret = CopyStr(tmp);\r
+                       }\r
+\r
+                       pMalloc->Free(pidl);\r
+               }\r
+\r
+               pMalloc->Release();\r
+       }\r
+\r
+       Free(data.default_dir);\r
+       Free(title_a);\r
+\r
+       return ret;\r
+}\r
+\r
+int CALLBACK FolderDlgInnerCallbackW(HWND hWnd, UINT msg, LPARAM lParam, LPARAM lData)\r
+{\r
+       FOLDER_DLG_INNER_DATA *data = (FOLDER_DLG_INNER_DATA *)lData;\r
+       LPITEMIDLIST pidl;\r
+\r
+       switch (msg)\r
+       {\r
+       case BFFM_INITIALIZED:\r
+               if (data->default_dir != NULL)\r
+               {\r
+                       SendMessage(hWnd, BFFM_SETSELECTIONW, true, (LPARAM)data->default_dir);\r
+               }\r
+               break;\r
+\r
+       case BFFM_SELCHANGED:\r
+               pidl = (LPITEMIDLIST)lParam;\r
+\r
+               if (pidl)\r
+               {\r
+                       wchar_t tmp[MAX_PATH];\r
+\r
+                       Zero(tmp, sizeof(tmp));\r
+                       if (SHGetPathFromIDListW(pidl, tmp))\r
+                       {\r
+                               SendMessage(hWnd, BFFM_ENABLEOK, 0, 1);\r
+                       }\r
+                       else\r
+                       {\r
+                               SendMessage(hWnd, BFFM_ENABLEOK, 0, 0);\r
+                       }\r
+               }\r
+               break;\r
+       }\r
+\r
+       return 0;\r
+}\r
+\r
+wchar_t *FolderDlgInnerW(HWND hWnd, wchar_t *title, wchar_t *default_dir)\r
+{\r
+       BROWSEINFOW info;\r
+       wchar_t display_name[MAX_PATH];\r
+       FOLDER_DLG_INNER_DATA data;\r
+       LPMALLOC pMalloc;\r
+       wchar_t *ret = NULL;\r
+       if (UniIsEmptyStr(title))\r
+       {\r
+               title = NULL;\r
+       }\r
+       if (UniIsEmptyStr(default_dir))\r
+       {\r
+               default_dir = NULL;\r
+       }\r
+\r
+       Zero(&data, sizeof(data));\r
+       data.default_dir = default_dir;\r
+\r
+       Zero(display_name, sizeof(display_name));\r
+       Zero(&info, sizeof(info));\r
+       info.hwndOwner = hWnd;\r
+       info.pidlRoot = NULL;\r
+       info.pszDisplayName = display_name;\r
+       info.lpszTitle = title;\r
+       info.ulFlags = BIF_NEWDIALOGSTYLE | BIF_RETURNONLYFSDIRS | BIF_VALIDATE | BIF_SHAREABLE;\r
+       info.lpfn = FolderDlgInnerCallbackW;\r
+       info.lParam = (LPARAM)&data;\r
+\r
+       if (SUCCEEDED(SHGetMalloc(&pMalloc)))\r
+       {\r
+               LPITEMIDLIST pidl;\r
+\r
+               pidl = SHBrowseForFolderW(&info);\r
+\r
+               if (pidl)\r
+               {\r
+                       wchar_t tmp[MAX_PATH];\r
+\r
+                       if (SHGetPathFromIDListW(pidl, tmp))\r
+                       {\r
+                               ret = CopyUniStr(tmp);\r
+                       }\r
+\r
+                       pMalloc->Free(pidl);\r
+               }\r
+\r
+               pMalloc->Release();\r
+       }\r
+\r
+       return ret;\r
+}\r
+\r
+\r
+class CModule\r
+{\r
+public:\r
+    CModule()\r
+    {\r
+        m_hInstLib = NULL;\r
+    }\r
+    CModule( HINSTANCE hInstLib )\r
+    {\r
+        m_hInstLib = NULL;\r
+        this->Attach( hInstLib );\r
+    }\r
+    CModule( LPCTSTR pszModuleName )\r
+    {\r
+        m_hInstLib = NULL;\r
+        this->LoadLibrary( pszModuleName );\r
+    }\r
+    virtual ~CModule()\r
+    {\r
+        this->FreeLibrary();\r
+    }\r
+\r
+public:\r
+    BOOL Attach( HINSTANCE hInstLib )\r
+    {\r
+        this->FreeLibrary();\r
+        m_hInstLib = hInstLib;\r
+       \r
+        return TRUE;\r
+    }\r
+    BOOL Detach()\r
+    {\r
+        m_hInstLib = NULL;\r
+       \r
+        return TRUE;\r
+    }\r
+\r
+public:\r
+    HMODULE GetHandle()\r
+    {\r
+        return m_hInstLib;\r
+    }\r
+    // DLLのロード\r
+    HINSTANCE LoadLibrary( LPCTSTR pszModuleName )\r
+    {\r
+        this->FreeLibrary();\r
+        m_hInstLib = ::LoadLibrary( pszModuleName );\r
+       \r
+        return m_hInstLib;\r
+    }\r
+    // DLLの開放\r
+    BOOL FreeLibrary()\r
+    {\r
+        if (m_hInstLib == NULL)\r
+        {\r
+            return FALSE;\r
+        }\r
+       \r
+        BOOL bResult = ::FreeLibrary( m_hInstLib );\r
+        m_hInstLib = NULL;\r
+       \r
+        return bResult;\r
+    }\r
+    // 関数のアドレスの取得\r
+    FARPROC GetProcAddress( LPCTSTR pszProcName )\r
+    {\r
+        if (m_hInstLib == NULL)\r
+        {\r
+            return NULL;\r
+        }\r
+       \r
+        return ::GetProcAddress(m_hInstLib, pszProcName);\r
+    }\r
+    // 指定されたタイプおよび名前を持つリソースの情報ブロックのハンドルを取得\r
+    HRSRC FindResource(LPCTSTR lpName, LPCTSTR lpType)\r
+    {\r
+        if (m_hInstLib == NULL)\r
+        {\r
+            return NULL;\r
+        }\r
+       \r
+        return ::FindResource(m_hInstLib, lpName, lpType);\r
+    }\r
+    // 指定されたリソースのロード\r
+    HGLOBAL LoadResource(HRSRC hResInfo)\r
+    {\r
+        if (m_hInstLib == NULL)\r
+        {\r
+            return NULL;\r
+        }\r
+       \r
+        return ::LoadResource(m_hInstLib, hResInfo);\r
+    }\r
+\r
+protected:\r
+    HINSTANCE m_hInstLib;\r
+};\r
+\r
+\r
+\r
+static HRESULT _ShowHTMLDialog(\r
+    HWND hwndParent,\r
+    IMoniker* pMk,\r
+    VARIANT* pvarArgIn = NULL,\r
+    WCHAR* pchOptions = NULL,\r
+    VARIANT* pvarArgOut = NULL)\r
+{\r
+    HRESULT hr = S_OK;\r
+   \r
+    try\r
+    {\r
+        CModule Module("MSHTML.DLL");\r
+        if (Module.GetHandle() == NULL)\r
+        {\r
+            return E_FAIL;\r
+        }\r
+       \r
+        SHOWHTMLDIALOGFN* fnShowHTMLDialog =\r
+            (SHOWHTMLDIALOGFN*)Module.GetProcAddress("ShowHTMLDialog");\r
+        if (fnShowHTMLDialog == NULL)\r
+        {\r
+            return E_FAIL;\r
+        }\r
+       \r
+        hr = (*fnShowHTMLDialog)(hwndParent, pMk, pvarArgIn, pchOptions, pvarArgOut);\r
+        if (FAILED(hr))\r
+        {\r
+            return hr;\r
+        }\r
+    }\r
+    catch (...)\r
+    {\r
+        return E_FAIL;\r
+    }\r
+   \r
+    return hr;\r
+}\r
+\r
+HRESULT ShowHTMLDialogFromURL(HWND hwndParent,wchar_t *szURL,VARIANT* pvarArgIn,WCHAR* pchOptions,VARIANT* pvarArgOut)\r
+{\r
+    HRESULT hr = S_OK;\r
+   \r
+    try\r
+    {\r
+        IMonikerPtr spMoniker;\r
+        hr = ::CreateURLMoniker(NULL, szURL, &spMoniker);\r
+        if (FAILED(hr))\r
+        {\r
+            return hr;\r
+        }\r
+       \r
+        hr = ::_ShowHTMLDialog(hwndParent, spMoniker, pvarArgIn, pchOptions, pvarArgOut);\r
+        if (FAILED(hr))\r
+        {\r
+            return hr;\r
+        }\r
+    }\r
+    catch (...)\r
+    {\r
+        return E_FAIL;\r
+    }\r
+   \r
+    return hr;\r
+}\r
+\r
+// ショートカットの作成\r
+bool CreateLinkInnerA(char *filename, char *target, char *workdir, char *args,\r
+                                    char *comment, char *icon, UINT icon_index)\r
+{\r
+       HRESULT r;\r
+       wchar_t tmp[MAX_SIZE];\r
+       IShellLinkA* pShellLink;\r
+       IPersistFile* pPersistFile;\r
+\r
+       r = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLinkA, (void **)&pShellLink);\r
+       if (FAILED(r))\r
+       {\r
+               return false;\r
+       }\r
+\r
+       r = pShellLink->QueryInterface(IID_IPersistFile,(void **)&pPersistFile);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               return false;\r
+       }\r
+\r
+       r = pShellLink->SetPath(target);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               pPersistFile->Release();\r
+               return false;\r
+       }\r
+\r
+       if (workdir != NULL)\r
+       {\r
+               r = pShellLink->SetWorkingDirectory(workdir);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (args != NULL)\r
+       {\r
+               r = pShellLink->SetArguments(args);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (comment != NULL)\r
+       {\r
+               r = pShellLink->SetDescription(comment);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (icon != NULL)\r
+       {\r
+               r = pShellLink->SetIconLocation(icon, icon_index);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       StrToUni(tmp, sizeof(tmp), filename);\r
+       r = pPersistFile->Save(tmp, true);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               pPersistFile->Release();\r
+               return false;\r
+       }\r
+\r
+       pShellLink->Release();\r
+       pPersistFile->Release();\r
+       return true;\r
+}\r
+bool CreateLinkInner(wchar_t *filename, wchar_t *target, wchar_t *workdir, wchar_t *args,\r
+                                    wchar_t *comment, wchar_t *icon, UINT icon_index)\r
+{\r
+       HRESULT r;\r
+       bool ret;\r
+       IShellLinkW* pShellLink;\r
+       IPersistFile* pPersistFile;\r
+\r
+       if (OS_IS_WINDOWS_9X(GetOsInfo()->OsType))\r
+       {\r
+               char *a1, *a2, *a3, *a4, *a5, *a6;\r
+               a1 = CopyUniToStr(filename);\r
+               a2 = CopyUniToStr(target);\r
+               a3 = CopyUniToStr(workdir);\r
+               a4 = CopyUniToStr(args);\r
+               a5 = CopyUniToStr(icon);\r
+               a6 = CopyUniToStr(comment);\r
+\r
+               ret = CreateLinkInnerA(a1, a2, a3, a4, a6, a5, icon_index);\r
+\r
+               Free(a1);\r
+               Free(a2);\r
+               Free(a3);\r
+               Free(a4);\r
+               Free(a5);\r
+               Free(a6);\r
+\r
+               return ret;\r
+       }\r
+\r
+       r = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLinkW, (void **)&pShellLink);\r
+       if (FAILED(r))\r
+       {\r
+               return false;\r
+       }\r
+\r
+       r = pShellLink->QueryInterface(IID_IPersistFile,(void **)&pPersistFile);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               return false;\r
+       }\r
+\r
+       r = pShellLink->SetPath(target);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               pPersistFile->Release();\r
+               return false;\r
+       }\r
+\r
+       if (workdir != NULL)\r
+       {\r
+               r = pShellLink->SetWorkingDirectory(workdir);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (comment != NULL)\r
+       {\r
+               r = pShellLink->SetDescription(comment);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (args != NULL)\r
+       {\r
+               r = pShellLink->SetArguments(args);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       if (icon != NULL)\r
+       {\r
+               r = pShellLink->SetIconLocation(icon, icon_index);\r
+               if (FAILED(r))\r
+               {\r
+                       pShellLink->Release();\r
+                       pPersistFile->Release();\r
+                       return false;\r
+               }\r
+       }\r
+\r
+       r = pPersistFile->Save(filename, true);\r
+       if (FAILED(r))\r
+       {\r
+               pShellLink->Release();\r
+               pPersistFile->Release();\r
+               return false;\r
+       }\r
+\r
+       pShellLink->Release();\r
+       pPersistFile->Release();\r
+       return true;\r
+}\r
+\r
+extern "C"\r
+{\r
+\r
+// フォルダ選択ダイアログの表示\r
+wchar_t *FolderDlgW(HWND hWnd, wchar_t *title, wchar_t *default_dir)\r
+{\r
+       wchar_t *ret;\r
+\r
+       if (MsIsNt() == false)\r
+       {\r
+               char *default_dir_a = CopyUniToStr(default_dir);\r
+               char *ret_a = FolderDlgA(hWnd, title, default_dir_a);\r
+\r
+               ret = CopyStrToUni(ret_a);\r
+               Free(ret_a);\r
+               Free(default_dir_a);\r
+\r
+               return ret;\r
+       }\r
+\r
+       ret = FolderDlgInnerW(hWnd, title, default_dir);\r
+\r
+       return ret;\r
+}\r
+char *FolderDlgA(HWND hWnd, wchar_t *title, char *default_dir)\r
+{\r
+       char *ret;\r
+\r
+       ret = FolderDlgInnerA(hWnd, title, default_dir);\r
+\r
+       return ret;\r
+}\r
+\r
+// ショートカットの作成\r
+bool CreateLink(wchar_t *filename, wchar_t *target, wchar_t *workdir, wchar_t *args,\r
+                               wchar_t *comment, wchar_t *icon, UINT icon_index)\r
+{\r
+       if (filename == NULL || target == NULL)\r
+       {\r
+               return false;\r
+       }\r
+\r
+       return CreateLinkInner(filename, target, workdir, args, comment, icon, icon_index);\r
+}\r
+\r
+// HTML の表示\r
+void ShowHtml(HWND hWnd, char *url, wchar_t *option)\r
+{\r
+       wchar_t tmp[MAX_SIZE];\r
+       // 引数チェック\r
+       if (url == NULL || option == NULL)\r
+       {\r
+               return;\r
+       }\r
+\r
+       StrToUni(tmp, sizeof(tmp), url);\r
+\r
+       ShowHTMLDialogFromURL(hWnd, tmp, NULL, option, NULL);\r
+}\r
+\r
+}\r
+\r
+#endif\r