- gchar *vbsfilename = NULL;
- gchar *vbs = NULL;
- gboolean result;
- vbsfilename = g_build_filename (g_get_tmp_dir (),
- "pspp-help-open.vbs",
- NULL);
- vbs = g_strdup_printf("CreateObject(\"WScript.Shell\").Run \"%s\"",
- helpuri);
- result = g_file_set_contents (vbsfilename,
- vbs,
- strlen(vbs),
- err);
- g_free (vbs);
- if (!result)
- goto error;
-
- gchar *argv[] = {CONST_CAST (gchar *, "wscript"), vbsfilename, 0};
-
- result = g_spawn_async (NULL, argv,
- NULL, G_SPAWN_SEARCH_PATH,
- NULL, NULL, NULL, err);
- error:
- g_free (vbsfilename);
- return result;
+ SHELLEXECUTEINFOA info;
+ memset (&info, 0, sizeof (info));
+
+ info.cbSize = sizeof (info);
+ info.fMask = SEE_MASK_FLAG_NO_UI;
+ info.lpVerb = "open";
+ info.lpFile = helpuri;
+ info.nShow = SW_SHOWNORMAL;
+
+ BOOL ret = ShellExecuteExA (&info);
+
+ if (ret)
+ return TRUE;
+
+ /* Contrary to what the microsoft documentation indicates, ShellExecuteExA does
+ not seem to setLastError. So we have to deal with errors ourselves here. */
+ const char *msg = 0;
+ switch (GPOINTER_TO_INT (info.hInstApp))
+ {
+ case SE_ERR_FNF:
+ msg = "File not found";
+ break;
+ case SE_ERR_PNF:
+ msg = "Path not found";
+ break;
+ case SE_ERR_ACCESSDENIED:
+ msg = "Access denied";
+ break;
+ case SE_ERR_OOM:
+ msg = "Out of memory";
+ break;
+ case SE_ERR_DLLNOTFOUND:
+ msg = "Dynamic-link library not found";
+ break;
+ case SE_ERR_SHARE:
+ msg = "Cannot share an open file";
+ break;
+ case SE_ERR_ASSOCINCOMPLETE:
+ msg = "File association information not complete";
+ break;
+ case SE_ERR_DDETIMEOUT:
+ msg = "DDE operation timed out";
+ break;
+ case SE_ERR_DDEFAIL:
+ msg = "DDE operation failed";
+ break;
+ case SE_ERR_DDEBUSY:
+ msg = "DDE operation is busy";
+ break;
+ case SE_ERR_NOASSOC:
+ msg = "File association not available";
+ break;
+ default:
+ msg = "Unknown error";
+ break;
+ }
+
+ *err = g_error_new_literal (g_quark_from_static_string ("pspp-help-error"),
+ 0,
+ msg);
+
+ return FALSE;