git.oblomov.eu Git - wine/blob - dlls/shdocvw/shdocvw_main.c

   1 /*
   2  * SHDOCVW - Internet Explorer Web Control
   3  *
   4  * Copyright 2001 John R. Sheets (for CodeWeavers)
   5  * Copyright 2004 Mike McCormack (for CodeWeavers)
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "config.h"
  23
  24 #include <stdarg.h>
  25 #include <stdio.h>
  26
  27 #include "wine/unicode.h"
  28 #include "wine/debug.h"
  29
  30 #include "shdocvw.h"
  31
  32 #include "winreg.h"
  33 #include "shlwapi.h"
  34
  35 #include "initguid.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  38
  39 LONG SHDOCVW_refCount = 0;
  40
  41 static const WCHAR szMozDlPath[] = {
  42     'S','o','f','t','w','a','r','e','\\','W','i','n','e','\\',
  43     's','h','d','o','c','v','w',0
  44 };
  45
  46 DEFINE_GUID( CLSID_MozillaBrowser, 0x1339B54C,0x3453,0x11D2,0x93,0xB9,0x00,0x00,0x00,0x00,0x00,0x00);
  47
  48 typedef HRESULT (WINAPI *fnGetClassObject)(REFCLSID rclsid, REFIID iid, LPVOID *ppv);
  49 typedef HRESULT (WINAPI *fnCanUnloadNow)(void);
  50
  51 HINSTANCE shdocvw_hinstance = 0;
  52 static HMODULE SHDOCVW_hshell32 = 0;
  53 static HMODULE hMozCtl = (HMODULE)~0UL;
  54
  55
  56 /* convert a guid to a wide character string */
  57 static void SHDOCVW_guid2wstr( const GUID *guid, LPWSTR wstr )
  58 {
  59     char str[40];
  60
  61     sprintf(str, "{%08lX-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
  62            guid->Data1, guid->Data2, guid->Data3,
  63            guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],
  64            guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7] );
  65     MultiByteToWideChar( CP_ACP, 0, str, -1, wstr, 40 );
  66 }
  67
  68 static BOOL SHDOCVW_GetMozctlPath( LPWSTR szPath, DWORD sz )
  69 {
  70     DWORD r, type;
  71     BOOL ret = FALSE;
  72     HKEY hkey;
  73     static const WCHAR szPre[] = {
  74         'S','o','f','t','w','a','r','e','\\',
  75         'C','l','a','s','s','e','s','\\',
  76         'C','L','S','I','D','\\',0 };
  77     static const WCHAR szPost[] = {
  78         '\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0 };
  79     WCHAR szRegPath[(sizeof(szPre)+sizeof(szPost))/sizeof(WCHAR)+40];
  80
  81     strcpyW( szRegPath, szPre );
  82     SHDOCVW_guid2wstr( &CLSID_MozillaBrowser, &szRegPath[strlenW(szRegPath)] );
  83     strcatW( szRegPath, szPost );
  84
  85     TRACE("key = %s\n", debugstr_w( szRegPath ) );
  86
  87     r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szRegPath, &hkey );
  88     if( r != ERROR_SUCCESS )
  89         return FALSE;
  90
  91     r = RegQueryValueExW( hkey, NULL, NULL, &type, (LPBYTE)szPath, &sz );
  92     ret = ( r == ERROR_SUCCESS ) && ( type == REG_SZ );
  93     RegCloseKey( hkey );
  94
  95     return ret;
  96 }
  97
  98 /*************************************************************************
  99  * SHDOCVW DllMain
 100  */
 101 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
 102 {
 103     TRACE("%p 0x%lx %p\n", hinst, fdwReason, fImpLoad);
 104     switch (fdwReason)
 105     {
 106         case DLL_PROCESS_ATTACH:
 107         shdocvw_hinstance = hinst;
 108         register_iewindow_class();
 109         break;
 110     case DLL_PROCESS_DETACH:
 111         if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
 112         if (hMozCtl && hMozCtl != (HMODULE)~0UL) FreeLibrary(hMozCtl);
 113         unregister_iewindow_class();
 114         break;
 115     }
 116     return TRUE;
 117 }
 118
 119 /*************************************************************************
 120  *              DllCanUnloadNow (SHDOCVW.@)
 121  */
 122 HRESULT WINAPI DllCanUnloadNow(void)
 123 {
 124     HRESULT moz_can_unload = S_OK;
 125     fnCanUnloadNow pCanUnloadNow;
 126
 127     if (hMozCtl)
 128     {
 129         pCanUnloadNow = (fnCanUnloadNow)
 130             GetProcAddress(hMozCtl, "DllCanUnloadNow");
 131         if (pCanUnloadNow)
 132             moz_can_unload = pCanUnloadNow();
 133     }
 134
 135     if (moz_can_unload == S_OK && SHDOCVW_refCount == 0)
 136         return S_OK;
 137
 138     return S_FALSE;
 139 }
 140
 141 /*************************************************************************
 142  *              SHDOCVW_TryDownloadMozillaControl
 143  */
 144 typedef struct _IBindStatusCallbackImpl {
 145     const IBindStatusCallbackVtbl *vtbl;
 146     LONG ref;
 147     HWND hDialog;
 148     BOOL *pbCancelled;
 149 } IBindStatusCallbackImpl;
 150
 151 static HRESULT WINAPI
 152 dlQueryInterface( IBindStatusCallback* This, REFIID riid, void** ppvObject )
 153 {
 154     if (ppvObject == NULL) return E_POINTER;
 155
 156     if( IsEqualIID(riid, &IID_IUnknown) ||
 157         IsEqualIID(riid, &IID_IBindStatusCallback))
 158     {
 159         IBindStatusCallback_AddRef( This );
 160         *ppvObject = This;
 161         return S_OK;
 162     }
 163     return E_NOINTERFACE;
 164 }
 165
 166 static ULONG WINAPI dlAddRef( IBindStatusCallback* iface )
 167 {
 168     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 169
 170     SHDOCVW_LockModule();
 171
 172     return InterlockedIncrement( &This->ref );
 173 }
 174
 175 static ULONG WINAPI dlRelease( IBindStatusCallback* iface )
 176 {
 177     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 178     DWORD ref = InterlockedDecrement( &This->ref );
 179
 180     if( !ref )
 181     {
 182         DestroyWindow( This->hDialog );
 183         HeapFree( GetProcessHeap(), 0, This );
 184     }
 185
 186     SHDOCVW_UnlockModule();
 187
 188     return ref;
 189 }
 190
 191 static HRESULT WINAPI
 192 dlOnStartBinding( IBindStatusCallback* iface, DWORD dwReserved, IBinding* pib)
 193 {
 194     ERR("\n");
 195     return S_OK;
 196 }
 197
 198 static HRESULT WINAPI
 199 dlGetPriority( IBindStatusCallback* iface, LONG* pnPriority)
 200 {
 201     ERR("\n");
 202     return S_OK;
 203 }
 204
 205 static HRESULT WINAPI
 206 dlOnLowResource( IBindStatusCallback* iface, DWORD reserved)
 207 {
 208     ERR("\n");
 209     return S_OK;
 210 }
 211
 212 static HRESULT WINAPI
 213 dlOnProgress( IBindStatusCallback* iface, ULONG ulProgress,
 214               ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
 215 {
 216     IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
 217     HWND hItem;
 218     LONG r;
 219
 220     hItem = GetDlgItem( This->hDialog, 1000 );
 221     if( hItem && ulProgressMax )
 222         SendMessageW(hItem,PBM_SETPOS,(ulProgress*100)/ulProgressMax,0);
 223
 224     hItem = GetDlgItem(This->hDialog, 104);
 225     if( hItem )
 226         SendMessageW(hItem,WM_SETTEXT, 0, (LPARAM) szStatusText);
 227
 228     SetLastError(0);
 229     r = GetWindowLongPtrW( This->hDialog, GWLP_USERDATA );
 230     if( r || GetLastError() )
 231     {
 232         *This->pbCancelled = TRUE;
 233         ERR("Cancelled\n");
 234         return E_ABORT;
 235     }
 236
 237     return S_OK;
 238 }
 239
 240 static HRESULT WINAPI
 241 dlOnStopBinding( IBindStatusCallback* iface, HRESULT hresult, LPCWSTR szError)
 242 {
 243     ERR("\n");
 244     return S_OK;
 245 }
 246
 247 static HRESULT WINAPI
 248 dlGetBindInfo( IBindStatusCallback* iface, DWORD* grfBINDF, BINDINFO* pbindinfo)
 249 {
 250     ERR("\n");
 251     return S_OK;
 252 }
 253
 254 static HRESULT WINAPI
 255 dlOnDataAvailable( IBindStatusCallback* iface, DWORD grfBSCF,
 256                    DWORD dwSize, FORMATETC* pformatetc, STGMEDIUM* pstgmed)
 257 {
 258     ERR("\n");
 259     return S_OK;
 260 }
 261
 262 static HRESULT WINAPI
 263 dlOnObjectAvailable( IBindStatusCallback* iface, REFIID riid, IUnknown* punk)
 264 {
 265     ERR("\n");
 266     return S_OK;
 267 }
 268
 269 static const IBindStatusCallbackVtbl dlVtbl =
 270 {
 271     dlQueryInterface,
 272     dlAddRef,
 273     dlRelease,
 274     dlOnStartBinding,
 275     dlGetPriority,
 276     dlOnLowResource,
 277     dlOnProgress,
 278     dlOnStopBinding,
 279     dlGetBindInfo,
 280     dlOnDataAvailable,
 281     dlOnObjectAvailable
 282 };
 283
 284 static IBindStatusCallback* create_dl(HWND dlg, BOOL *pbCancelled)
 285 {
 286     IBindStatusCallbackImpl *This;
 287
 288     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
 289     This->vtbl = &dlVtbl;
 290     This->ref = 1;
 291     This->hDialog = dlg;
 292     This->pbCancelled = pbCancelled;
 293
 294     return (IBindStatusCallback*) This;
 295 }
 296
 297 static DWORD WINAPI ThreadFunc( LPVOID info )
 298 {
 299     IBindStatusCallback *dl;
 300     static const WCHAR szUrlVal[] = {'M','o','z','i','l','l','a','U','r','l',0};
 301     static const WCHAR szFileProtocol[] = {'f','i','l','e',':','/','/','/',0};
 302     WCHAR path[MAX_PATH], szUrl[MAX_PATH];
 303     LPWSTR p;
 304     STARTUPINFOW si;
 305     PROCESS_INFORMATION pi;
 306     HWND hDlg = info;
 307     DWORD r, sz, type;
 308     HKEY hkey;
 309     BOOL bCancelled = FALSE;
 310     BOOL bTempfile = FALSE;
 311
 312     /* find the name of the thing to download */
 313     szUrl[0] = 0;
 314     /* @@ Wine registry key: HKCU\Software\Wine\shdocvw */
 315     r = RegOpenKeyW( HKEY_CURRENT_USER, szMozDlPath, &hkey );
 316     if( r == ERROR_SUCCESS )
 317     {
 318         sz = MAX_PATH;
 319         r = RegQueryValueExW( hkey, szUrlVal, NULL, &type, (LPBYTE)szUrl, &sz );
 320         RegCloseKey( hkey );
 321     }
 322     if( r != ERROR_SUCCESS )
 323         goto end;
 324
 325     if( !strncmpW(szUrl, szFileProtocol, strlenW(szFileProtocol)) )
 326         lstrcpynW( path, szUrl+strlenW(szFileProtocol), MAX_PATH );
 327     else
 328     {
 329         /* built the path for the download */
 330         p = strrchrW( szUrl, '/' );
 331         if (!p)
 332             goto end;
 333         if (!GetTempPathW( MAX_PATH, path ))
 334             goto end;
 335         strcatW( path, p+1 );
 336
 337         /* download it */
 338         bTempfile = TRUE;
 339         dl = create_dl(info, &bCancelled);
 340         r = URLDownloadToFileW( NULL, szUrl, path, 0, dl );
 341         if( dl )
 342             IBindStatusCallback_Release( dl );
 343         if( (r != S_OK) || bCancelled )
 344             goto end;
 345     }
 346
 347     /* run it */
 348     memset( &si, 0, sizeof si );
 349     si.cb = sizeof si;
 350     r = CreateProcessW( path, NULL, NULL, NULL, 0, 0, NULL, NULL, &si, &pi );
 351     if( !r )
 352         goto end;
 353     WaitForSingleObject( pi.hProcess, INFINITE );
 354     CloseHandle( pi.hProcess );
 355     CloseHandle( pi.hThread );
 356
 357 end:
 358     if( bTempfile )
 359         DeleteFileW( path );
 360     EndDialog( hDlg, 0 );
 361     return 0;
 362 }
 363
 364 static INT_PTR CALLBACK
 365 dlProc ( HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
 366 {
 367     HANDLE hThread;
 368     DWORD ThreadId;
 369     HWND hItem;
 370
 371     switch (uMsg)
 372     {
 373     case WM_INITDIALOG:
 374         SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 0 );
 375         hItem = GetDlgItem(hwndDlg, 1000);
 376         if( hItem )
 377         {
 378             SendMessageW(hItem,PBM_SETRANGE,0,MAKELPARAM(0,100));
 379             SendMessageW(hItem,PBM_SETPOS,0,0);
 380         }
 381         hThread = CreateThread(NULL,0,ThreadFunc,hwndDlg,0,&ThreadId);
 382         if (!hThread)
 383             return FALSE;
 384         return TRUE;
 385     case WM_COMMAND:
 386         if( wParam == IDCANCEL )
 387             SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 1 );
 388         return FALSE;
 389     default:
 390         return FALSE;
 391     }
 392 }
 393
 394 static BOOL SHDOCVW_TryDownloadMozillaControl(void)
 395 {
 396     DWORD r;
 397     WCHAR buf[0x100];
 398     static const WCHAR szWine[] = { 'W','i','n','e',0 };
 399     HANDLE hsem;
 400
 401     SetLastError( ERROR_SUCCESS );
 402     hsem = CreateSemaphoreA( NULL, 0, 1, "mozctl_install_semaphore");
 403     if( GetLastError() != ERROR_ALREADY_EXISTS )
 404     {
 405         LoadStringW( shdocvw_hinstance, 1001, buf, sizeof buf/sizeof(WCHAR) );
 406         r = MessageBoxW(NULL, buf, szWine, MB_YESNO | MB_ICONQUESTION);
 407         if( r != IDYES )
 408             return FALSE;
 409
 410         DialogBoxW(shdocvw_hinstance, MAKEINTRESOURCEW(100), 0, dlProc);
 411     }
 412     else
 413         WaitForSingleObject( hsem, INFINITE );
 414     ReleaseSemaphore( hsem, 1, NULL );
 415     CloseHandle( hsem );
 416
 417     return TRUE;
 418 }
 419
 420 static BOOL SHDOCVW_TryLoadMozillaControl(void)
 421 {
 422     WCHAR szPath[MAX_PATH];
 423     BOOL bTried = FALSE;
 424
 425     if( hMozCtl != (HMODULE)~0UL )
 426         return hMozCtl ? TRUE : FALSE;
 427
 428     while( 1 )
 429     {
 430         if( SHDOCVW_GetMozctlPath( szPath, sizeof szPath ) )
 431         {
 432             hMozCtl = LoadLibraryExW(szPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
 433             if( hMozCtl )
 434                 return TRUE;
 435         }
 436         if( bTried )
 437         {
 438             MESSAGE("You need to install the Mozilla ActiveX control to\n");
 439             MESSAGE("use Wine's builtin CLSID_WebBrowser from SHDOCVW.DLL\n");
 440             return FALSE;
 441         }
 442         SHDOCVW_TryDownloadMozillaControl();
 443         bTried = TRUE;
 444     }
 445 }
 446
 447 /*************************************************************************
 448  *              DllGetClassObject (SHDOCVW.@)
 449  */
 450 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 451 {
 452     TRACE("\n");
 453
 454     if( IsEqualGUID( &CLSID_WebBrowser, rclsid ) &&
 455         SHDOCVW_TryLoadMozillaControl() )
 456     {
 457         HRESULT r;
 458         fnGetClassObject pGetClassObject;
 459
 460         TRACE("WebBrowser class %s\n", debugstr_guid(rclsid) );
 461
 462         pGetClassObject = (fnGetClassObject)
 463             GetProcAddress( hMozCtl, "DllGetClassObject" );
 464
 465         if( !pGetClassObject )
 466             return CLASS_E_CLASSNOTAVAILABLE;
 467         r = pGetClassObject( &CLSID_MozillaBrowser, riid, ppv );
 468
 469         TRACE("r = %08lx  *ppv = %p\n", r, *ppv );
 470
 471         return r;
 472     }
 473
 474     if (IsEqualCLSID(&CLSID_WebBrowser, rclsid) &&
 475         IsEqualIID(&IID_IClassFactory, riid))
 476     {
 477         /* Pass back our shdocvw class factory */
 478         IClassFactory *cf = get_class_factory();
 479         IClassFactory_AddRef(cf);
 480         *ppv = cf;
 481
 482         return S_OK;
 483     }
 484
 485     /* As a last resort, figure if the CLSID belongs to a 'Shell Instance Object' */
 486     return SHDOCVW_GetShellInstanceObjectClassObject(rclsid, riid, ppv);
 487 }
 488
 489 /***********************************************************************
 490  *              DllGetVersion (SHDOCVW.@)
 491  */
 492 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
 493 {
 494     if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
 495
 496     /* this is what IE6 on Windows 98 reports */
 497     info->dwMajorVersion = 6;
 498     info->dwMinorVersion = 0;
 499     info->dwBuildNumber = 2600;
 500     info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
 501
 502     return NOERROR;
 503 }
 504
 505 /*************************************************************************
 506  *              DllInstall (SHDOCVW.@)
 507  */
 508 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
 509 {
 510    FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
 511
 512    return S_OK;
 513 }
 514
 515 /*************************************************************************
 516  * SHDOCVW_LoadShell32
 517  *
 518  * makes sure the handle to shell32 is valid
 519  */
 520  BOOL SHDOCVW_LoadShell32(void)
 521 {
 522      if (SHDOCVW_hshell32)
 523        return TRUE;
 524      return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
 525 }
 526
 527 /***********************************************************************
 528  *              @ (SHDOCVW.110)
 529  *
 530  * Called by Win98 explorer.exe main binary, definitely has 0
 531  * parameters.
 532  */
 533 DWORD WINAPI WinList_Init(void)
 534 {
 535     FIXME("(), stub!\n");
 536     return 0x0deadfeed;
 537 }
 538
 539 /***********************************************************************
 540  *              @ (SHDOCVW.118)
 541  *
 542  * Called by Win98 explorer.exe main binary, definitely has only one
 543  * parameter.
 544  */
 545 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
 546
 547 BOOL WINAPI ShellDDEInit(BOOL start)
 548 {
 549     TRACE("(%d)\n", start);
 550
 551     if (!pShellDDEInit)
 552     {
 553       if (!SHDOCVW_LoadShell32())
 554         return FALSE;
 555       pShellDDEInit = GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
 556     }
 557
 558     if (pShellDDEInit)
 559       return pShellDDEInit(start);
 560     else
 561       return FALSE;
 562 }
 563
 564 /***********************************************************************
 565  *              @ (SHDOCVW.125)
 566  *
 567  * Called by Win98 explorer.exe main binary, definitely has 0
 568  * parameters.
 569  */
 570 DWORD WINAPI RunInstallUninstallStubs(void)
 571 {
 572     FIXME("(), stub!\n");
 573     return 0x0deadbee;
 574 }
 575
 576 /***********************************************************************
 577  *              SetQueryNetSessionCount (SHDOCVW.@)
 578  */
 579 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
 580 {
 581     FIXME("(%lu), stub!\n", arg);
 582     return 0;
 583 }
 584
 585 /**********************************************************************
 586  * OpenURL  (SHDOCVW.@)
 587  */
 588 void WINAPI OpenURL(HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)
 589 {
 590     FIXME("%p %p %s %d\n", hWnd, hInst, debugstr_a(lpcstrUrl), nShowCmd);
 591 }
 592
 593 /**********************************************************************
 594  * Some forwards (by ordinal) to SHLWAPI
 595  */
 596
 597 static void* fetch_shlwapi_ordinal(unsigned ord)
 598 {
 599     static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
 600     static HANDLE h;
 601
 602     if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
 603     return (void*)GetProcAddress(h, (const char*)ord);
 604 }
 605
 606 /******************************************************************
 607  *              WhichPlatformFORWARD            (SHDOCVW.@)
 608  */
 609 DWORD WINAPI WhichPlatformFORWARD(void)
 610 {
 611     static DWORD (*WINAPI p)(void);
 612
 613     if (p || (p = fetch_shlwapi_ordinal(276))) return p();
 614     return 1; /* not integrated, see shlwapi.WhichPlatform */
 615 }
 616
 617 /******************************************************************
 618  *              StopWatchModeFORWARD            (SHDOCVW.@)
 619  */
 620 void WINAPI StopWatchModeFORWARD(void)
 621 {
 622     static void (*WINAPI p)(void);
 623
 624     if (p || (p = fetch_shlwapi_ordinal(241))) p();
 625 }
 626
 627 /******************************************************************
 628  *              StopWatchFlushFORWARD            (SHDOCVW.@)
 629  */
 630 void WINAPI StopWatchFlushFORWARD(void)
 631 {
 632     static void (*WINAPI p)(void);
 633
 634     if (p || (p = fetch_shlwapi_ordinal(242))) p();
 635 }
 636
 637 /******************************************************************
 638  *              StopWatchWFORWARD            (SHDOCVW.@)
 639  */
 640 DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
 641                                DWORD dwMode, DWORD dwTimeStamp)
 642 {
 643     static DWORD (*WINAPI p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
 644
 645     if (p || (p = fetch_shlwapi_ordinal(243)))
 646         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
 647     return ERROR_CALL_NOT_IMPLEMENTED;
 648 }
 649
 650 /******************************************************************
 651  *              StopWatchAFORWARD            (SHDOCVW.@)
 652  */
 653 DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
 654                                DWORD dwMode, DWORD dwTimeStamp)
 655 {
 656     static DWORD (*WINAPI p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
 657
 658     if (p || (p = fetch_shlwapi_ordinal(244)))
 659         return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
 660     return ERROR_CALL_NOT_IMPLEMENTED;
 661 }
 662
 663 /******************************************************************
 664  *              IEWinMain            (SHDOCVW.101)
 665  *
 666  * Only returns on error.
 667  */
 668 DWORD WINAPI IEWinMain(LPSTR szCommandLine, int nShowWindow)
 669 {
 670     LPWSTR url;
 671     DWORD len;
 672
 673     FIXME("%s %d\n", debugstr_a(szCommandLine), nShowWindow);
 674
 675     CoInitialize(NULL);
 676
 677     /* FIXME: parse the command line properly, handle -Embedding */
 678
 679     len = MultiByteToWideChar(CP_ACP, 0, szCommandLine, -1, NULL, 0);
 680     url = HeapAlloc(GetProcessHeap(),0,len*sizeof(WCHAR));
 681     MultiByteToWideChar(CP_ACP, 0, szCommandLine, -1, url, len);
 682
 683     create_ie_window(url);
 684
 685     HeapFree(GetProcessHeap(), 0, url);
 686
 687     CoUninitialize();
 688
 689     ExitProcess(0);
 690     return 0;
 691 }