dll/win32/advpack/install.c

   1 /*
   2  * Advpack install functions
   3  *
   4  * Copyright 2006 James Hawkins
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <stdarg.h>
  22 #include <stdlib.h>
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "winreg.h"
  28 #include "winternl.h"
  29 #include "winnls.h"
  30 #include "setupapi.h"
  31 #include "advpub.h"
  32 #include "ole2.h"
  33 #include "wine/debug.h"
  34 #include "wine/unicode.h"
  35 #include "advpack_private.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(advpack);
  38
  39 #define SPAPI_ERROR     0xE0000000L
  40 #define SPAPI_PREFIX    0x800F0000L
  41 #define SPAPI_MASK      0xFFFFL
  42 #define HRESULT_FROM_SPAPI(x)   ((HRESULT)((x & SPAPI_MASK) | SPAPI_PREFIX))
  43
  44 #define ADV_HRESULT(x)  ((x & SPAPI_ERROR) ? HRESULT_FROM_SPAPI(x) : HRESULT_FROM_WIN32(x))
  45
  46 #define ADV_SUCCESS     0
  47 #define ADV_FAILURE     1
  48
  49 /* contains information about a specific install instance */
  50 typedef struct _ADVInfo
  51 {
  52     HINF hinf;
  53     LPWSTR inf_path;
  54     LPWSTR inf_filename;
  55     LPWSTR install_sec;
  56     LPWSTR working_dir;
  57     DWORD flags;
  58     BOOL need_reboot;
  59 } ADVInfo;
  60
  61 typedef HRESULT (*iterate_fields_func)(HINF hinf, PCWSTR field, const void *arg);
  62
  63 /* Advanced INF commands */
  64 static const WCHAR CheckAdminRights[] = {
  65     'C','h','e','c','k','A','d','m','i','n','R','i','g','h','t','s',0
  66 };
  67 static const WCHAR DelDirs[] = {'D','e','l','D','i','r','s',0};
  68 static const WCHAR PerUserInstall[] = {'P','e','r','U','s','e','r','I','n','s','t','a','l','l',0};
  69 static const WCHAR RegisterOCXs[] = {'R','e','g','i','s','t','e','r','O','C','X','s',0};
  70 static const WCHAR RunPreSetupCommands[] = {
  71     'R','u','n','P','r','e','S','e','t','u','p','C','o','m','m','a','n','d','s',0
  72 };
  73 static const WCHAR RunPostSetupCommands[] = {
  74     'R','u','n','P','o','s','t','S','e','t','u','p','C','o','m','m','a','n','d','s',0
  75 };
  76
  77 /* Advanced INF callbacks */
  78 static HRESULT del_dirs_callback(HINF hinf, PCWSTR field, const void *arg)
  79 {
  80     INFCONTEXT context;
  81     HRESULT hr = S_OK;
  82     DWORD size;
  83
  84     BOOL ok = SetupFindFirstLineW(hinf, field, NULL, &context);
  85
  86     for (; ok; ok = SetupFindNextLine(&context, &context))
  87     {
  88         WCHAR directory[MAX_INF_STRING_LENGTH];
  89
  90         if (!SetupGetLineTextW(&context, NULL, NULL, NULL, directory,
  91                                MAX_INF_STRING_LENGTH, &size))
  92             continue;
  93
  94         if (DelNodeW(directory, ADN_DEL_IF_EMPTY) != S_OK)
  95             hr = E_FAIL;
  96     }
  97
  98     return hr;
  99 }
 100
 101 static HRESULT per_user_install_callback(HINF hinf, PCWSTR field, const void *arg)
 102 {
 103     PERUSERSECTIONW per_user;
 104     INFCONTEXT context;
 105     DWORD size;
 106
 107     static const WCHAR disp_name[] = {'D','i','s','p','l','a','y','N','a','m','e',0};
 108     static const WCHAR version[] = {'V','e','r','s','i','o','n',0};
 109     static const WCHAR is_installed[] = {'I','s','I','n','s','t','a','l','l','e','d',0};
 110     static const WCHAR comp_id[] = {'C','o','m','p','o','n','e','n','t','I','D',0};
 111     static const WCHAR guid[] = {'G','U','I','D',0};
 112     static const WCHAR locale[] = {'L','o','c','a','l','e',0};
 113     static const WCHAR stub_path[] = {'S','t','u','b','P','a','t','h',0};
 114
 115     per_user.bRollback = FALSE;
 116     per_user.dwIsInstalled = 0;
 117
 118     SetupGetLineTextW(NULL, hinf, field, disp_name, per_user.szDispName,
 119                      sizeof(per_user.szDispName) / sizeof(WCHAR), &size);
 120
 121     SetupGetLineTextW(NULL, hinf, field, version, per_user.szVersion,
 122                      sizeof(per_user.szVersion) / sizeof(WCHAR), &size);
 123
 124     if (SetupFindFirstLineW(hinf, field, is_installed, &context))
 125     {
 126         SetupGetIntField(&context, 1, (PINT)&per_user.dwIsInstalled);
 127     }
 128
 129     SetupGetLineTextW(NULL, hinf, field, comp_id, per_user.szCompID,
 130                      sizeof(per_user.szCompID) / sizeof(WCHAR), &size);
 131
 132     SetupGetLineTextW(NULL, hinf, field, guid, per_user.szGUID,
 133                      sizeof(per_user.szGUID) / sizeof(WCHAR), &size);
 134
 135     SetupGetLineTextW(NULL, hinf, field, locale, per_user.szLocale,
 136                      sizeof(per_user.szLocale) / sizeof(WCHAR), &size);
 137
 138     SetupGetLineTextW(NULL, hinf, field, stub_path, per_user.szStub,
 139                      sizeof(per_user.szStub) / sizeof(WCHAR), &size);
 140
 141     return SetPerUserSecValuesW(&per_user);
 142 }
 143
 144 static HRESULT register_ocxs_callback(HINF hinf, PCWSTR field, const void *arg)
 145 {
 146     HMODULE hm;
 147     INFCONTEXT context;
 148     HRESULT hr = S_OK;
 149
 150     BOOL ok = SetupFindFirstLineW(hinf, field, NULL, &context);
 151
 152     for (; ok; ok = SetupFindNextLine(&context, &context))
 153     {
 154         WCHAR buffer[MAX_INF_STRING_LENGTH];
 155
 156         /* get OCX filename */
 157         if (!SetupGetStringFieldW(&context, 1, buffer,
 158                                   sizeof(buffer) / sizeof(WCHAR), NULL))
 159             continue;
 160
 161         hm = LoadLibraryExW(buffer, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
 162         if (hm)
 163         {
 164             if (do_ocx_reg(hm, TRUE, NULL, NULL) != S_OK)
 165                 hr = E_FAIL;
 166
 167             FreeLibrary(hm);
 168         }
 169         else
 170             hr = E_FAIL;
 171
 172         if (FAILED(hr))
 173         {
 174             /* FIXME: display a message box */
 175             break;
 176         }
 177     }
 178
 179     return hr;
 180 }
 181
 182 static HRESULT run_setup_commands_callback(HINF hinf, PCWSTR field, const void *arg)
 183 {
 184     const ADVInfo *info = (const ADVInfo *)arg;
 185     INFCONTEXT context;
 186     HRESULT hr = S_OK;
 187     DWORD size;
 188
 189     BOOL ok = SetupFindFirstLineW(hinf, field, NULL, &context);
 190
 191     for (; ok; ok = SetupFindNextLine(&context, &context))
 192     {
 193         WCHAR buffer[MAX_INF_STRING_LENGTH];
 194
 195         if (!SetupGetLineTextW(&context, NULL, NULL, NULL, buffer,
 196                                MAX_INF_STRING_LENGTH, &size))
 197             continue;
 198
 199         if (launch_exe(buffer, info->working_dir, NULL) != S_OK)
 200             hr = E_FAIL;
 201     }
 202
 203     return hr;
 204 }
 205
 206 /* sequentially returns pointers to parameters in a parameter list
 207  * returns NULL if the parameter is empty, e.g. one,,three  */
 208 LPWSTR get_parameter(LPWSTR *params, WCHAR separator)
 209 {
 210     LPWSTR token = *params;
 211
 212     if (!*params)
 213         return NULL;
 214
 215     *params = strchrW(*params, separator);
 216     if (*params)
 217         *(*params)++ = '\0';
 218
 219     if (!*token)
 220         return NULL;
 221
 222     return token;
 223 }
 224
 225 static BOOL is_full_path(LPCWSTR path)
 226 {
 227     const int MIN_PATH_LEN = 3;
 228
 229     if (!path || lstrlenW(path) < MIN_PATH_LEN)
 230         return FALSE;
 231
 232     if ((path[1] == ':' && path[2] == '\\') || (path[0] == '\\' && path[1] == '\\'))
 233         return TRUE;
 234
 235     return FALSE;
 236 }
 237
 238 /* retrieves the contents of a field, dynamically growing the buffer if necessary */
 239 static WCHAR *get_field_string(INFCONTEXT *context, DWORD index, WCHAR *buffer,
 240                                const WCHAR *static_buffer, DWORD *size)
 241 {
 242     DWORD required;
 243
 244     if (SetupGetStringFieldW(context, index, buffer, *size, &required)) return buffer;
 245
 246     if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
 247     {
 248         /* now grow the buffer */
 249         if (buffer != static_buffer) HeapFree(GetProcessHeap(), 0, buffer);
 250         if (!(buffer = HeapAlloc(GetProcessHeap(), 0, required*sizeof(WCHAR)))) return NULL;
 251         *size = required;
 252         if (SetupGetStringFieldW(context, index, buffer, *size, &required)) return buffer;
 253     }
 254
 255     if (buffer != static_buffer) HeapFree(GetProcessHeap(), 0, buffer);
 256     return NULL;
 257 }
 258
 259 /* iterates over all fields of a certain key of a certain section */
 260 static HRESULT iterate_section_fields(HINF hinf, PCWSTR section, PCWSTR key,
 261                                       iterate_fields_func callback, void *arg)
 262 {
 263     WCHAR static_buffer[200];
 264     WCHAR *buffer = static_buffer;
 265     DWORD size = sizeof(static_buffer) / sizeof(WCHAR);
 266     INFCONTEXT context;
 267     HRESULT hr = E_FAIL;
 268
 269     BOOL ok = SetupFindFirstLineW(hinf, section, key, &context);
 270     while (ok)
 271     {
 272         UINT i, count = SetupGetFieldCount(&context);
 273
 274         for (i = 1; i <= count; i++)
 275         {
 276             if (!(buffer = get_field_string(&context, i, buffer, static_buffer, &size)))
 277                 goto done;
 278
 279             if ((hr = callback(hinf, buffer, arg)) != S_OK)
 280                 goto done;
 281         }
 282
 283         ok = SetupFindNextMatchLineW(&context, key, &context);
 284     }
 285
 286     hr = S_OK;
 287
 288  done:
 289     if (buffer != static_buffer) HeapFree(GetProcessHeap(), 0, buffer);
 290     return hr;
 291 }
 292
 293 static HRESULT check_admin_rights(const ADVInfo *info)
 294 {
 295     INT check;
 296     INFCONTEXT context;
 297     HRESULT hr = S_OK;
 298
 299     if (!SetupFindFirstLineW(info->hinf, info->install_sec,
 300                              CheckAdminRights, &context))
 301         return S_OK;
 302
 303     if (!SetupGetIntField(&context, 1, &check))
 304         return S_OK;
 305
 306     if (check == 1)
 307         hr = IsNTAdmin(0, NULL) ? S_OK : E_FAIL;
 308
 309     return hr;
 310 }
 311
 312 /* performs a setupapi-level install of the INF file */
 313 static HRESULT spapi_install(const ADVInfo *info)
 314 {
 315     BOOL ret;
 316     HRESULT res;
 317     PVOID context;
 318
 319     context = SetupInitDefaultQueueCallbackEx(NULL, INVALID_HANDLE_VALUE, 0, 0, NULL);
 320     if (!context)
 321         return ADV_HRESULT(GetLastError());
 322
 323     ret = SetupInstallFromInfSectionW(NULL, info->hinf, info->install_sec,
 324                                       SPINST_FILES, NULL, info->working_dir,
 325                                       SP_COPY_NEWER, SetupDefaultQueueCallbackW,
 326                                       context, NULL, NULL);
 327     if (!ret)
 328     {
 329         res = ADV_HRESULT(GetLastError());
 330         SetupTermDefaultQueueCallback(context);
 331
 332         return res;
 333     }
 334
 335     SetupTermDefaultQueueCallback(context);
 336
 337     ret = SetupInstallFromInfSectionW(NULL, info->hinf, info->install_sec,
 338                                       SPINST_INIFILES | SPINST_REGISTRY | SPINST_REGSVR,
 339                                       HKEY_LOCAL_MACHINE, NULL, 0,
 340                                       NULL, NULL, NULL, NULL);
 341     if (!ret)
 342         return ADV_HRESULT(GetLastError());
 343
 344     return S_OK;
 345 }
 346
 347 /* processes the Advanced INF commands */
 348 static HRESULT adv_install(ADVInfo *info)
 349 {
 350     HRESULT hr;
 351
 352     hr = check_admin_rights(info);
 353     if (hr != S_OK)
 354         return hr;
 355
 356     hr = iterate_section_fields(info->hinf, info->install_sec, RunPreSetupCommands,
 357                                 run_setup_commands_callback, info);
 358     if (hr != S_OK)
 359         return hr;
 360
 361     OleInitialize(NULL);
 362     hr = iterate_section_fields(info->hinf, info->install_sec,
 363                                 RegisterOCXs, register_ocxs_callback, NULL);
 364     OleUninitialize();
 365     if (hr != S_OK)
 366         return hr;
 367
 368     hr = iterate_section_fields(info->hinf, info->install_sec,
 369                                 PerUserInstall, per_user_install_callback, info);
 370     if (hr != S_OK)
 371         return hr;
 372
 373     hr = iterate_section_fields(info->hinf, info->install_sec, RunPostSetupCommands,
 374                                 run_setup_commands_callback, info);
 375     if (hr != S_OK)
 376         return hr;
 377
 378     hr = iterate_section_fields(info->hinf, info->install_sec,
 379                                 DelDirs, del_dirs_callback, info);
 380     if (hr != S_OK)
 381         return hr;
 382
 383     return hr;
 384 }
 385
 386 /* determines the proper working directory for the INF file */
 387 static HRESULT get_working_dir(ADVInfo *info, LPCWSTR inf_filename, LPCWSTR working_dir)
 388 {
 389     WCHAR path[MAX_PATH];
 390     LPCWSTR ptr;
 391     DWORD len;
 392
 393     static const WCHAR backslash[] = {'\\',0};
 394     static const WCHAR inf_dir[] = {'\\','I','N','F',0};
 395
 396     if ((ptr = strrchrW(inf_filename, '\\')))
 397     {
 398         len = ptr - inf_filename + 1;
 399         ptr = inf_filename;
 400     }
 401     else if (working_dir && *working_dir)
 402     {
 403         len = lstrlenW(working_dir) + 1;
 404         ptr = working_dir;
 405     }
 406     else
 407     {
 408         GetCurrentDirectoryW(MAX_PATH, path);
 409         lstrcatW(path, backslash);
 410         lstrcatW(path, inf_filename);
 411
 412         /* check if the INF file is in the current directory */
 413         if (GetFileAttributesW(path) != INVALID_FILE_ATTRIBUTES)
 414         {
 415             GetCurrentDirectoryW(MAX_PATH, path);
 416         }
 417         else
 418         {
 419             /* default to the windows\inf directory if all else fails */
 420             GetWindowsDirectoryW(path, MAX_PATH);
 421             lstrcatW(path, inf_dir);
 422         }
 423
 424         len = lstrlenW(path) + 1;
 425         ptr = path;
 426     }
 427
 428     info->working_dir = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 429     if (!info->working_dir)
 430         return E_OUTOFMEMORY;
 431
 432     lstrcpynW(info->working_dir, ptr, len);
 433
 434     return S_OK;
 435 }
 436
 437 /* loads the INF file and performs checks on it */
 438 static HRESULT install_init(LPCWSTR inf_filename, LPCWSTR install_sec,
 439                             LPCWSTR working_dir, DWORD flags, ADVInfo *info)
 440 {
 441     DWORD len;
 442     HRESULT hr;
 443     LPCWSTR ptr, path;
 444
 445     static const WCHAR backslash[] = {'\\',0};
 446     static const WCHAR default_install[] = {
 447         'D','e','f','a','u','l','t','I','n','s','t','a','l','l',0
 448     };
 449
 450     if (!(ptr = strrchrW(inf_filename, '\\')))
 451         ptr = inf_filename;
 452
 453     len = lstrlenW(ptr);
 454
 455     info->inf_filename = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
 456     if (!info->inf_filename)
 457         return E_OUTOFMEMORY;
 458
 459     lstrcpyW(info->inf_filename, ptr);
 460
 461     /* FIXME: determine the proper platform to install (NTx86, etc) */
 462     if (!install_sec || !*install_sec)
 463     {
 464         len = sizeof(default_install) - 1;
 465         ptr = default_install;
 466     }
 467     else
 468     {
 469         len = lstrlenW(install_sec);
 470         ptr = install_sec;
 471     }
 472
 473     info->install_sec = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
 474     if (!info->install_sec)
 475         return E_OUTOFMEMORY;
 476
 477     lstrcpyW(info->install_sec, ptr);
 478
 479     hr = get_working_dir(info, inf_filename, working_dir);
 480     if (FAILED(hr))
 481         return hr;
 482
 483     len = lstrlenW(info->working_dir) + lstrlenW(info->inf_filename) + 2;
 484     info->inf_path = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 485     if (!info->inf_path)
 486         return E_OUTOFMEMORY;
 487
 488     lstrcpyW(info->inf_path, info->working_dir);
 489     lstrcatW(info->inf_path, backslash);
 490     lstrcatW(info->inf_path, info->inf_filename);
 491
 492     /* RunSetupCommand opens unmodifed filename parameter */
 493     if (flags & RSC_FLAG_INF)
 494         path = inf_filename;
 495     else
 496         path = info->inf_path;
 497
 498     info->hinf = SetupOpenInfFileW(path, NULL, INF_STYLE_WIN4, NULL);
 499     if (info->hinf == INVALID_HANDLE_VALUE)
 500         return ADV_HRESULT(GetLastError());
 501
 502     set_ldids(info->hinf, info->install_sec, info->working_dir);
 503
 504     /* FIXME: check that the INF is advanced */
 505
 506     info->flags = flags;
 507     info->need_reboot = FALSE;
 508
 509     return S_OK;
 510 }
 511
 512 /* release the install instance information */
 513 static void install_release(const ADVInfo *info)
 514 {
 515     SetupCloseInfFile(info->hinf);
 516
 517     HeapFree(GetProcessHeap(), 0, info->inf_path);
 518     HeapFree(GetProcessHeap(), 0, info->inf_filename);
 519     HeapFree(GetProcessHeap(), 0, info->install_sec);
 520     HeapFree(GetProcessHeap(), 0, info->working_dir);
 521 }
 522
 523 /* this structure very closely resembles parameters of RunSetupCommand() */
 524 typedef struct
 525 {
 526     HWND hwnd;
 527     LPCSTR title;
 528     LPCSTR inf_name;
 529     LPCSTR dir;
 530     LPCSTR section_name;
 531 } SETUPCOMMAND_PARAMS;
 532
 533 typedef struct
 534 {
 535     HWND hwnd;
 536     LPCWSTR title;
 537     LPCWSTR inf_name;
 538     LPCWSTR dir;
 539     LPCWSTR section_name;
 540 } SETUPCOMMAND_PARAMSW;
 541
 542 /* internal: see DoInfInstall */
 543 static HRESULT DoInfInstallW(const SETUPCOMMAND_PARAMSW *setup)
 544 {
 545     ADVInfo info;
 546     HRESULT hr;
 547
 548     TRACE("(%p)\n", setup);
 549
 550     ZeroMemory(&info, sizeof(ADVInfo));
 551
 552     hr = install_init(setup->inf_name, setup->section_name, setup->dir, 0, &info);
 553     if (hr != S_OK)
 554         goto done;
 555
 556     hr = spapi_install(&info);
 557     if (hr != S_OK)
 558         goto done;
 559
 560     hr = adv_install(&info);
 561
 562 done:
 563     install_release(&info);
 564
 565     return S_OK;
 566 }
 567
 568 /***********************************************************************
 569  *      DoInfInstall  (ADVPACK.@)
 570  *
 571  * Install an INF section.
 572  *
 573  * PARAMS
 574  *  setup [I] Structure containing install information.
 575  *
 576  * RETURNS
 577  *   S_OK                                Everything OK
 578  *   HRESULT_FROM_WIN32(GetLastError())  Some other error
 579  */
 580 HRESULT WINAPI DoInfInstall(const SETUPCOMMAND_PARAMS *setup)
 581 {
 582     UNICODE_STRING title, inf, section, dir;
 583     SETUPCOMMAND_PARAMSW params;
 584     HRESULT hr;
 585
 586     if (!setup)
 587         return E_INVALIDARG;
 588
 589     RtlCreateUnicodeStringFromAsciiz(&title, setup->title);
 590     RtlCreateUnicodeStringFromAsciiz(&inf, setup->inf_name);
 591     RtlCreateUnicodeStringFromAsciiz(&section, setup->section_name);
 592     RtlCreateUnicodeStringFromAsciiz(&dir, setup->dir);
 593
 594     params.title = title.Buffer;
 595     params.inf_name = inf.Buffer;
 596     params.section_name = section.Buffer;
 597     params.dir = dir.Buffer;
 598     params.hwnd = setup->hwnd;
 599
 600     hr = DoInfInstallW(&params);
 601
 602     RtlFreeUnicodeString(&title);
 603     RtlFreeUnicodeString(&inf);
 604     RtlFreeUnicodeString(&section);
 605     RtlFreeUnicodeString(&dir);
 606
 607     return hr;
 608 }
 609
 610 /***********************************************************************
 611  *             ExecuteCabA    (ADVPACK.@)
 612  *
 613  * See ExecuteCabW.
 614  */
 615 HRESULT WINAPI ExecuteCabA(HWND hwnd, CABINFOA* pCab, LPVOID pReserved)
 616 {
 617     UNICODE_STRING cab, inf, section;
 618     CABINFOW cabinfo;
 619     HRESULT hr;
 620
 621     TRACE("(%p, %p, %p)\n", hwnd, pCab, pReserved);
 622
 623     if (!pCab)
 624         return E_INVALIDARG;
 625
 626     if (pCab->pszCab)
 627     {
 628         RtlCreateUnicodeStringFromAsciiz(&cab, pCab->pszCab);
 629         cabinfo.pszCab = cab.Buffer;
 630     }
 631     else
 632         cabinfo.pszCab = NULL;
 633
 634     RtlCreateUnicodeStringFromAsciiz(&inf, pCab->pszInf);
 635     RtlCreateUnicodeStringFromAsciiz(&section, pCab->pszSection);
 636
 637     MultiByteToWideChar(CP_ACP, 0, pCab->szSrcPath, -1, cabinfo.szSrcPath,
 638                         sizeof(cabinfo.szSrcPath) / sizeof(WCHAR));
 639
 640     cabinfo.pszInf = inf.Buffer;
 641     cabinfo.pszSection = section.Buffer;
 642     cabinfo.dwFlags = pCab->dwFlags;
 643
 644     hr = ExecuteCabW(hwnd, &cabinfo, pReserved);
 645
 646     if (pCab->pszCab)
 647         RtlFreeUnicodeString(&cab);
 648
 649     RtlFreeUnicodeString(&inf);
 650     RtlFreeUnicodeString(&section);
 651
 652     return hr;
 653 }
 654
 655 /***********************************************************************
 656  *             ExecuteCabW    (ADVPACK.@)
 657  *
 658  * Installs the INF file extracted from a specified cabinet file.
 659  *
 660  * PARAMS
 661  *   hwnd      [I] Handle to the window used for the display.
 662  *   pCab      [I] Information about the cabinet file.
 663  *   pReserved [I] Reserved.  Must be NULL.
 664  *
 665  * RETURNS
 666  *   Success: S_OK.
 667  *   Failure: E_FAIL.
 668  */
 669 HRESULT WINAPI ExecuteCabW(HWND hwnd, CABINFOW* pCab, LPVOID pReserved)
 670 {
 671     ADVInfo info;
 672     HRESULT hr;
 673
 674     TRACE("(%p, %p, %p)\n", hwnd, pCab, pReserved);
 675
 676     ZeroMemory(&info, sizeof(ADVInfo));
 677
 678     if (pCab->pszCab && *pCab->pszCab)
 679         FIXME("Cab archive not extracted!\n");
 680
 681     hr = install_init(pCab->pszInf, pCab->pszSection, pCab->szSrcPath, pCab->dwFlags, &info);
 682     if (hr != S_OK)
 683         goto done;
 684
 685     hr = spapi_install(&info);
 686     if (hr != S_OK)
 687         goto done;
 688
 689     hr = adv_install(&info);
 690
 691 done:
 692     install_release(&info);
 693
 694     return hr;
 695 }
 696
 697 /***********************************************************************
 698  *      LaunchINFSectionA   (ADVPACK.@)
 699  *
 700  * See LaunchINFSectionW.
 701  */
 702 INT WINAPI LaunchINFSectionA(HWND hWnd, HINSTANCE hInst, LPSTR cmdline, INT show)
 703 {
 704     UNICODE_STRING cmd;
 705     HRESULT hr;
 706
 707     TRACE("(%p, %p, %s, %i)\n", hWnd, hInst, debugstr_a(cmdline), show);
 708
 709     if (!cmdline)
 710         return ADV_FAILURE;
 711
 712     RtlCreateUnicodeStringFromAsciiz(&cmd, cmdline);
 713
 714     hr = LaunchINFSectionW(hWnd, hInst, cmd.Buffer, show);
 715
 716     RtlFreeUnicodeString(&cmd);
 717
 718     return hr;
 719 }
 720
 721 /***********************************************************************
 722  *      LaunchINFSectionW   (ADVPACK.@)
 723  *
 724  * Installs an INF section without BACKUP/ROLLBACK capabilities.
 725  *
 726  * PARAMS
 727  *   hWnd    [I] Handle to parent window, NULL for desktop.
 728  *   hInst   [I] Instance of the process.
 729  *   cmdline [I] Contains parameters in the order INF,section,flags,reboot.
 730  *   show    [I] How the window should be shown.
 731  *
 732  * RETURNS
 733  *  Success: ADV_SUCCESS.
 734  *  Failure: ADV_FAILURE.
 735  *
 736  * NOTES
 737  *  INF - Filename of the INF to launch.
 738  *  section - INF section to install.
 739  *  flags - see advpub.h.
 740  *  reboot - smart reboot behavior
 741  *    'A' Always reboot.
 742  *    'I' Reboot if needed (default).
 743  *    'N' No reboot.
 744  */
 745 INT WINAPI LaunchINFSectionW(HWND hWnd, HINSTANCE hInst, LPWSTR cmdline, INT show)
 746 {
 747     ADVInfo info;
 748     LPWSTR cmdline_copy, cmdline_ptr;
 749     LPWSTR inf_filename, install_sec;
 750     LPWSTR str_flags;
 751     DWORD flags = 0;
 752     HRESULT hr = S_OK;
 753
 754     TRACE("(%p, %p, %s, %d)\n", hWnd, hInst, debugstr_w(cmdline), show);
 755
 756     if (!cmdline)
 757         return ADV_FAILURE;
 758
 759     cmdline_copy = HeapAlloc(GetProcessHeap(), 0, (lstrlenW(cmdline) + 1) * sizeof(WCHAR));
 760     cmdline_ptr = cmdline_copy;
 761     lstrcpyW(cmdline_copy, cmdline);
 762
 763     inf_filename = get_parameter(&cmdline_ptr, ',');
 764     install_sec = get_parameter(&cmdline_ptr, ',');
 765
 766     str_flags = get_parameter(&cmdline_ptr, ',');
 767     if (str_flags)
 768         flags = atolW(str_flags);
 769
 770     ZeroMemory(&info, sizeof(ADVInfo));
 771
 772     hr = install_init(inf_filename, install_sec, NULL, flags, &info);
 773     if (hr != S_OK)
 774         goto done;
 775
 776     hr = spapi_install(&info);
 777     if (hr != S_OK)
 778         goto done;
 779
 780     hr = adv_install(&info);
 781
 782 done:
 783     install_release(&info);
 784     HeapFree(GetProcessHeap(), 0, cmdline_copy);
 785
 786     return SUCCEEDED(hr) ? ADV_SUCCESS : ADV_FAILURE;
 787 }
 788
 789 /***********************************************************************
 790  *      LaunchINFSectionExA (ADVPACK.@)
 791  *
 792  * See LaunchINFSectionExW.
 793  */
 794 HRESULT WINAPI LaunchINFSectionExA(HWND hWnd, HINSTANCE hInst, LPSTR cmdline, INT show)
 795 {
 796     UNICODE_STRING cmd;
 797     HRESULT hr;
 798
 799     TRACE("(%p, %p, %s, %i)\n", hWnd, hInst, debugstr_a(cmdline), show);
 800
 801     if (!cmdline)
 802         return ADV_FAILURE;
 803
 804     RtlCreateUnicodeStringFromAsciiz(&cmd, cmdline);
 805
 806     hr = LaunchINFSectionExW(hWnd, hInst, cmd.Buffer, show);
 807
 808     RtlFreeUnicodeString(&cmd);
 809
 810     return hr;
 811 }
 812
 813 /***********************************************************************
 814  *      LaunchINFSectionExW (ADVPACK.@)
 815  *
 816  * Installs an INF section with BACKUP/ROLLBACK capabilities.
 817  *
 818  * PARAMS
 819  *   hWnd    [I] Handle to parent window, NULL for desktop.
 820  *   hInst   [I] Instance of the process.
 821  *   cmdline [I] Contains parameters in the order INF,section,CAB,flags,reboot.
 822  *   show    [I] How the window should be shown.
 823  *
 824  * RETURNS
 825  *  Success: ADV_SUCCESS.
 826  *  Failure: ADV_FAILURE.
 827  *
 828  * NOTES
 829  *  INF - Filename of the INF to launch.
 830  *  section - INF section to install.
 831  *  flags - see advpub.h.
 832  *  reboot - smart reboot behavior
 833  *    'A' Always reboot.
 834  *    'I' Reboot if needed (default).
 835  *    'N' No reboot.
 836  *
 837  * BUGS
 838  *  Doesn't handle the reboot flag.
 839  */
 840 HRESULT WINAPI LaunchINFSectionExW(HWND hWnd, HINSTANCE hInst, LPWSTR cmdline, INT show)
 841 {
 842     LPWSTR cmdline_copy, cmdline_ptr;
 843     LPWSTR flags, ptr;
 844     CABINFOW cabinfo;
 845     HRESULT hr;
 846
 847     TRACE("(%p, %p, %s, %d)\n", hWnd, hInst, debugstr_w(cmdline), show);
 848
 849     if (!cmdline)
 850         return ADV_FAILURE;
 851
 852     cmdline_copy = HeapAlloc(GetProcessHeap(), 0, (lstrlenW(cmdline) + 1) * sizeof(WCHAR));
 853     cmdline_ptr = cmdline_copy;
 854     lstrcpyW(cmdline_copy, cmdline);
 855
 856     cabinfo.pszInf = get_parameter(&cmdline_ptr, ',');
 857     cabinfo.pszSection = get_parameter(&cmdline_ptr, ',');
 858     cabinfo.pszCab = get_parameter(&cmdline_ptr, ',');
 859     *cabinfo.szSrcPath = '\0';
 860
 861     flags = get_parameter(&cmdline_ptr, ',');
 862     if (flags)
 863         cabinfo.dwFlags = atolW(flags);
 864
 865     if (!is_full_path(cabinfo.pszCab) && !is_full_path(cabinfo.pszInf))
 866     {
 867         HeapFree(GetProcessHeap(), 0, cmdline_copy);
 868         return E_INVALIDARG;
 869     }
 870
 871     /* get the source path from the cab filename */
 872     if (cabinfo.pszCab && *cabinfo.pszCab)
 873     {
 874         if (!is_full_path(cabinfo.pszCab))
 875             lstrcpyW(cabinfo.szSrcPath, cabinfo.pszInf);
 876         else
 877             lstrcpyW(cabinfo.szSrcPath, cabinfo.pszCab);
 878
 879         ptr = strrchrW(cabinfo.szSrcPath, '\\');
 880         *(++ptr) = '\0';
 881     }
 882
 883     hr = ExecuteCabW(hWnd, &cabinfo, NULL);
 884     HeapFree(GetProcessHeap(), 0, cmdline_copy);
 885     return SUCCEEDED(hr) ? ADV_SUCCESS : ADV_FAILURE;
 886 }
 887
 888 HRESULT launch_exe(LPCWSTR cmd, LPCWSTR dir, HANDLE *phEXE)
 889 {
 890     STARTUPINFOW si;
 891     PROCESS_INFORMATION pi;
 892
 893     if (phEXE) *phEXE = NULL;
 894
 895     ZeroMemory(&pi, sizeof(pi));
 896     ZeroMemory(&si, sizeof(si));
 897     si.cb = sizeof(si);
 898
 899     if (!CreateProcessW(NULL, (LPWSTR)cmd, NULL, NULL, FALSE,
 900                         CREATE_DEFAULT_ERROR_MODE | CREATE_NEW_PROCESS_GROUP,
 901                         NULL, dir, &si, &pi))
 902     {
 903         return HRESULT_FROM_WIN32(GetLastError());
 904     }
 905
 906     CloseHandle(pi.hThread);
 907
 908     if (phEXE)
 909     {
 910         *phEXE = pi.hProcess;
 911         return S_ASYNCHRONOUS;
 912     }
 913
 914     /* wait for the child process to finish */
 915     WaitForSingleObject(pi.hProcess, INFINITE);
 916     CloseHandle(pi.hProcess);
 917
 918     return S_OK;
 919 }
 920
 921 /***********************************************************************
 922  *      RunSetupCommandA  (ADVPACK.@)
 923  *
 924  * See RunSetupCommandW.
 925  */
 926 HRESULT WINAPI RunSetupCommandA(HWND hWnd, LPCSTR szCmdName,
 927                                 LPCSTR szInfSection, LPCSTR szDir,
 928                                 LPCSTR lpszTitle, HANDLE *phEXE,
 929                                 DWORD dwFlags, LPVOID pvReserved)
 930 {
 931     UNICODE_STRING cmdname, infsec;
 932     UNICODE_STRING dir, title;
 933     HRESULT hr;
 934
 935     TRACE("(%p, %s, %s, %s, %s, %p, %d, %p)\n",
 936           hWnd, debugstr_a(szCmdName), debugstr_a(szInfSection),
 937           debugstr_a(szDir), debugstr_a(lpszTitle),
 938           phEXE, dwFlags, pvReserved);
 939
 940     if (!szCmdName || !szDir)
 941         return E_INVALIDARG;
 942
 943     RtlCreateUnicodeStringFromAsciiz(&cmdname, szCmdName);
 944     RtlCreateUnicodeStringFromAsciiz(&infsec, szInfSection);
 945     RtlCreateUnicodeStringFromAsciiz(&dir, szDir);
 946     RtlCreateUnicodeStringFromAsciiz(&title, lpszTitle);
 947
 948     hr = RunSetupCommandW(hWnd, cmdname.Buffer, infsec.Buffer, dir.Buffer,
 949                           title.Buffer, phEXE, dwFlags, pvReserved);
 950
 951     RtlFreeUnicodeString(&cmdname);
 952     RtlFreeUnicodeString(&infsec);
 953     RtlFreeUnicodeString(&dir);
 954     RtlFreeUnicodeString(&title);
 955
 956     return hr;
 957 }
 958
 959 /***********************************************************************
 960  *      RunSetupCommandW  (ADVPACK.@)
 961  *
 962  * Executes an install section in an INF file or a program.
 963  *
 964  * PARAMS
 965  *   hWnd          [I] Handle to parent window, NULL for quiet mode
 966  *   szCmdName     [I] Inf or EXE filename to execute
 967  *   szInfSection  [I] Inf section to install, NULL for DefaultInstall
 968  *   szDir         [I] Path to extracted files
 969  *   szTitle       [I] Title of all dialogs
 970  *   phEXE         [O] Handle of EXE to wait for
 971  *   dwFlags       [I] Flags; see include/advpub.h
 972  *   pvReserved    [I] Reserved
 973  *
 974  * RETURNS
 975  *   S_OK                                 Everything OK
 976  *   S_ASYNCHRONOUS                       OK, required to wait on phEXE
 977  *   ERROR_SUCCESS_REBOOT_REQUIRED        Reboot required
 978  *   E_INVALIDARG                         Invalid argument given
 979  *   HRESULT_FROM_WIN32(ERROR_OLD_WIN_VERSION)
 980  *                                        Not supported on this Windows version
 981  *   E_UNEXPECTED                         Unexpected error
 982  *   HRESULT_FROM_WIN32(GetLastError())   Some other error
 983  */
 984 HRESULT WINAPI RunSetupCommandW(HWND hWnd, LPCWSTR szCmdName,
 985                                 LPCWSTR szInfSection, LPCWSTR szDir,
 986                                 LPCWSTR lpszTitle, HANDLE *phEXE,
 987                                 DWORD dwFlags, LPVOID pvReserved)
 988 {
 989     ADVInfo info;
 990     HRESULT hr;
 991
 992     TRACE("(%p, %s, %s, %s, %s, %p, %d, %p)\n",
 993           hWnd, debugstr_w(szCmdName), debugstr_w(szInfSection),
 994           debugstr_w(szDir), debugstr_w(lpszTitle),
 995           phEXE, dwFlags, pvReserved);
 996
 997     if (dwFlags & RSC_FLAG_UPDHLPDLLS)
 998         FIXME("Unhandled flag: RSC_FLAG_UPDHLPDLLS\n");
 999
1000     if (!szCmdName || !szDir)
1001         return E_INVALIDARG;
1002
1003     if (!(dwFlags & RSC_FLAG_INF))
1004         return launch_exe(szCmdName, szDir, phEXE);
1005
1006     ZeroMemory(&info, sizeof(ADVInfo));
1007
1008     hr = install_init(szCmdName, szInfSection, szDir, dwFlags, &info);
1009     if (hr != S_OK)
1010         goto done;
1011
1012     hr = spapi_install(&info);
1013     if (hr != S_OK)
1014         goto done;
1015
1016     hr = adv_install(&info);
1017
1018 done:
1019     install_release(&info);
1020
1021     return hr;
1022 }