dlls/advpack/advpack.c

   1 /*
   2  * Advpack main
   3  *
   4  * Copyright 2004 Huw D M Davies
   5  * Copyright 2005 Sami Aario
   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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include <stdarg.h>
  23 #include <stdlib.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winuser.h"
  28 #include "winreg.h"
  29 #include "winternl.h"
  30 #include "winnls.h"
  31 #include "setupapi.h"
  32 #include "advpub.h"
  33 #include "wine/debug.h"
  34 #include "advpack_private.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(advpack);
  37
  38 typedef HRESULT (WINAPI *DLLREGISTER) (void);
  39
  40 #define MAX_FIELD_LENGTH    512
  41 #define PREFIX_LEN          5
  42
  43 /* registry path of the Installed Components key for per-user stubs */
  44 static const WCHAR setup_key[] = L"SOFTWARE\\Microsoft\\Active Setup\\Installed Components";
  45
  46 /* Strip single quotes from a token - note size includes NULL */
  47 static void strip_quotes(WCHAR *buffer, DWORD *size)
  48 {
  49     if (buffer[0] == '\'' && (*size > 1) && buffer[*size-2]=='\'')
  50     {
  51         *size -= 2;
  52         buffer[*size] = 0x00;
  53         memmove(buffer, buffer + 1, *size * sizeof(WCHAR));
  54     }
  55 }
  56
  57 /* parses the destination directory parameters from pszSection
  58  * the parameters are of the form: root,key,value,unknown,fallback
  59  * we first read the reg value root\\key\\value and if that fails,
  60  * use fallback as the destination directory
  61  */
  62 static void get_dest_dir(HINF hInf, PCWSTR pszSection, PWSTR pszBuffer, DWORD dwSize)
  63 {
  64     INFCONTEXT context;
  65     WCHAR key[MAX_PATH + 2], value[MAX_PATH + 2];
  66     WCHAR prefix[PREFIX_LEN + 2];
  67     HKEY root, subkey = 0;
  68     DWORD size;
  69
  70     /* load the destination parameters */
  71     SetupFindFirstLineW(hInf, pszSection, NULL, &context);
  72     SetupGetStringFieldW(&context, 1, prefix, PREFIX_LEN + 2, &size);
  73     strip_quotes(prefix, &size);
  74     SetupGetStringFieldW(&context, 2, key, MAX_PATH + 2, &size);
  75     strip_quotes(key, &size);
  76     SetupGetStringFieldW(&context, 3, value, MAX_PATH + 2, &size);
  77     strip_quotes(value, &size);
  78
  79     if (!lstrcmpW(prefix, L"HKLM"))
  80         root = HKEY_LOCAL_MACHINE;
  81     else if (!lstrcmpW(prefix, L"HKCU"))
  82         root = HKEY_CURRENT_USER;
  83     else
  84         root = NULL;
  85
  86     size = dwSize * sizeof(WCHAR);
  87
  88     /* fallback to the default destination dir if reg fails */
  89     if (RegOpenKeyW(root, key, &subkey) ||
  90         RegQueryValueExW(subkey, value, NULL, NULL, (LPBYTE)pszBuffer, &size))
  91     {
  92         SetupGetStringFieldW(&context, 5, pszBuffer, dwSize, &size);
  93         strip_quotes(pszBuffer, &size);
  94     }
  95
  96     if (subkey) RegCloseKey(subkey);
  97 }
  98
  99 /* loads the LDIDs specified in the install section of an INF */
 100 void set_ldids(HINF hInf, LPCWSTR pszInstallSection, LPCWSTR pszWorkingDir)
 101 {
 102     WCHAR field[MAX_FIELD_LENGTH];
 103     WCHAR line[MAX_FIELD_LENGTH];
 104     WCHAR dest[MAX_PATH];
 105     INFCONTEXT context;
 106     DWORD size;
 107     int ldid;
 108
 109     if (!SetupGetLineTextW(NULL, hInf, pszInstallSection, L"CustomDestination",
 110                            field, MAX_FIELD_LENGTH, &size))
 111         return;
 112
 113     if (!SetupFindFirstLineW(hInf, field, NULL, &context))
 114         return;
 115
 116     do
 117     {
 118         LPWSTR value, ptr, key, key_copy = NULL;
 119         DWORD flags = 0;
 120
 121         SetupGetLineTextW(&context, NULL, NULL, NULL,
 122                           line, MAX_FIELD_LENGTH, &size);
 123
 124         /* SetupGetLineTextW returns the value if there is only one key, but
 125          * returns the whole line if there is more than one key
 126          */
 127         if (!(value = wcschr(line, '=')))
 128         {
 129             SetupGetStringFieldW(&context, 0, NULL, 0, &size);
 130             key = HeapAlloc(GetProcessHeap(), 0, size * sizeof(WCHAR));
 131             key_copy = key;
 132             SetupGetStringFieldW(&context, 0, key, size, &size);
 133             value = line;
 134         }
 135         else
 136         {
 137             key = line;
 138             *(value++) = '\0';
 139         }
 140
 141         /* remove leading whitespace from the value */
 142         while (*value == ' ')
 143             value++;
 144
 145         /* Extract the flags */
 146         ptr = wcschr(value, ',');
 147         if (ptr) {
 148             *ptr = '\0';
 149             flags = wcstol(ptr+1, NULL, 10);
 150         }
 151
 152         /* set dest to pszWorkingDir if key is SourceDir */
 153         if (pszWorkingDir && !lstrcmpiW(value, L"SourceDir"))
 154             lstrcpynW(dest, pszWorkingDir, MAX_PATH);
 155         else
 156             get_dest_dir(hInf, value, dest, MAX_PATH);
 157
 158         /* If prompting required, provide dialog to request path */
 159         if (flags & 0x04)
 160             FIXME("Need to support changing paths - default will be used\n");
 161
 162         /* set all ldids to dest */
 163         while ((ptr = get_parameter(&key, ',', FALSE)))
 164         {
 165             ldid = wcstol(ptr, NULL, 10);
 166             SetupSetDirectoryIdW(hInf, ldid, dest);
 167         }
 168         HeapFree(GetProcessHeap(), 0, key_copy);
 169     } while (SetupFindNextLine(&context, &context));
 170 }
 171
 172 /***********************************************************************
 173  *           CloseINFEngine (ADVPACK.@)
 174  *
 175  * Closes a handle to an INF file opened with OpenINFEngine.
 176  *
 177  * PARAMS
 178  *   hInf [I] Handle to the INF file to close.
 179  *
 180  * RETURNS
 181  *   Success: S_OK.
 182  *   Failure: E_FAIL.
 183  */
 184 HRESULT WINAPI CloseINFEngine(HINF hInf)
 185 {
 186     TRACE("(%p)\n", hInf);
 187
 188     if (!hInf)
 189         return E_INVALIDARG;
 190
 191     SetupCloseInfFile(hInf);
 192     return S_OK;
 193 }
 194
 195 /***********************************************************************
 196  *              IsNTAdmin       (ADVPACK.@)
 197  *
 198  * Checks if the user has admin privileges.
 199  *
 200  * PARAMS
 201  *   reserved  [I] Reserved.  Must be 0.
 202  *   pReserved [I] Reserved.  Must be NULL.
 203  *
 204  * RETURNS
 205  *   TRUE if user has admin rights, FALSE otherwise.
 206  */
 207 BOOL WINAPI IsNTAdmin(DWORD reserved, LPDWORD pReserved)
 208 {
 209     SID_IDENTIFIER_AUTHORITY SidAuthority = {SECURITY_NT_AUTHORITY};
 210     PTOKEN_GROUPS pTokenGroups;
 211     BOOL bSidFound = FALSE;
 212     DWORD dwSize, i;
 213     HANDLE hToken;
 214     PSID pSid;
 215
 216     TRACE("(%ld, %p)\n", reserved, pReserved);
 217
 218     if (!OpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, &hToken))
 219         return FALSE;
 220
 221     if (!GetTokenInformation(hToken, TokenGroups, NULL, 0, &dwSize))
 222     {
 223         if (GetLastError() != ERROR_INSUFFICIENT_BUFFER)
 224         {
 225             CloseHandle(hToken);
 226             return FALSE;
 227         }
 228     }
 229
 230     pTokenGroups = HeapAlloc(GetProcessHeap(), 0, dwSize);
 231     if (!pTokenGroups)
 232     {
 233         CloseHandle(hToken);
 234         return FALSE;
 235     }
 236
 237     if (!GetTokenInformation(hToken, TokenGroups, pTokenGroups, dwSize, &dwSize))
 238     {
 239         HeapFree(GetProcessHeap(), 0, pTokenGroups);
 240         CloseHandle(hToken);
 241         return FALSE;
 242     }
 243
 244     CloseHandle(hToken);
 245
 246     if (!AllocateAndInitializeSid(&SidAuthority, 2, SECURITY_BUILTIN_DOMAIN_RID,
 247                                   DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, &pSid))
 248     {
 249         HeapFree(GetProcessHeap(), 0, pTokenGroups);
 250         return FALSE;
 251     }
 252
 253     for (i = 0; i < pTokenGroups->GroupCount; i++)
 254     {
 255         if (EqualSid(pSid, pTokenGroups->Groups[i].Sid))
 256         {
 257             bSidFound = TRUE;
 258             break;
 259         }
 260     }
 261
 262     HeapFree(GetProcessHeap(), 0, pTokenGroups);
 263     FreeSid(pSid);
 264
 265     return bSidFound;
 266 }
 267
 268 /***********************************************************************
 269  *             NeedRebootInit  (ADVPACK.@)
 270  *
 271  * Sets up conditions for reboot checking.
 272  *
 273  * RETURNS
 274  *   Value required by NeedReboot.
 275  */
 276 DWORD WINAPI NeedRebootInit(VOID)
 277 {
 278     FIXME("(VOID): stub\n");
 279     return 0;
 280 }
 281
 282 /***********************************************************************
 283  *             NeedReboot      (ADVPACK.@)
 284  *
 285  * Determines whether a reboot is required.
 286  *
 287  * PARAMS
 288  *   dwRebootCheck [I] Value from NeedRebootInit.
 289  *
 290  * RETURNS
 291  *   TRUE if a reboot is needed, FALSE otherwise.
 292  *
 293  * BUGS
 294  *   Unimplemented.
 295  */
 296 BOOL WINAPI NeedReboot(DWORD dwRebootCheck)
 297 {
 298     FIXME("(%ld): stub\n", dwRebootCheck);
 299     return FALSE;
 300 }
 301
 302 /***********************************************************************
 303  *             OpenINFEngineA   (ADVPACK.@)
 304  *
 305  * See OpenINFEngineW.
 306  */
 307 HRESULT WINAPI OpenINFEngineA(LPCSTR pszInfFilename, LPCSTR pszInstallSection,
 308                               DWORD dwFlags, HINF *phInf, PVOID pvReserved)
 309 {
 310     UNICODE_STRING filenameW, installW;
 311     HRESULT res;
 312
 313     TRACE("(%s, %s, %ld, %p, %p)\n", debugstr_a(pszInfFilename),
 314           debugstr_a(pszInstallSection), dwFlags, phInf, pvReserved);
 315
 316     if (!pszInfFilename || !phInf)
 317         return E_INVALIDARG;
 318
 319     RtlCreateUnicodeStringFromAsciiz(&filenameW, pszInfFilename);
 320     RtlCreateUnicodeStringFromAsciiz(&installW, pszInstallSection);
 321
 322     res = OpenINFEngineW(filenameW.Buffer, installW.Buffer,
 323                          dwFlags, phInf, pvReserved);
 324
 325     RtlFreeUnicodeString(&filenameW);
 326     RtlFreeUnicodeString(&installW);
 327
 328     return res;
 329 }
 330
 331 /***********************************************************************
 332  *             OpenINFEngineW   (ADVPACK.@)
 333  *
 334  * Opens and returns a handle to an INF file to be used by
 335  * TranslateInfStringEx to continuously translate the INF file.
 336  *
 337  * PARAMS
 338  *   pszInfFilename    [I] Filename of the INF to open.
 339  *   pszInstallSection [I] Name of the Install section in the INF.
 340  *   dwFlags           [I] See advpub.h.
 341  *   phInf             [O] Handle to the loaded INF file.
 342  *   pvReserved        [I] Reserved.  Must be NULL.
 343  *
 344  * RETURNS
 345  *   Success: S_OK.
 346  *   Failure: E_FAIL.
 347  */
 348 HRESULT WINAPI OpenINFEngineW(LPCWSTR pszInfFilename, LPCWSTR pszInstallSection,
 349                               DWORD dwFlags, HINF *phInf, PVOID pvReserved)
 350 {
 351     TRACE("(%s, %s, %ld, %p, %p)\n", debugstr_w(pszInfFilename),
 352           debugstr_w(pszInstallSection), dwFlags, phInf, pvReserved);
 353
 354     if (!pszInfFilename || !phInf)
 355         return E_INVALIDARG;
 356
 357     *phInf = SetupOpenInfFileW(pszInfFilename, NULL, INF_STYLE_WIN4, NULL);
 358     if (*phInf == INVALID_HANDLE_VALUE)
 359         return HRESULT_FROM_WIN32(ERROR_FILE_NOT_FOUND);
 360
 361     set_ldids(*phInf, pszInstallSection, NULL);
 362
 363     return S_OK;
 364 }
 365
 366 /***********************************************************************
 367  *             RebootCheckOnInstallA   (ADVPACK.@)
 368  *
 369  * See RebootCheckOnInstallW.
 370  */
 371 HRESULT WINAPI RebootCheckOnInstallA(HWND hWnd, LPCSTR pszINF,
 372                                      LPCSTR pszSec, DWORD dwReserved)
 373 {
 374     UNICODE_STRING infW, secW;
 375     HRESULT res;
 376
 377     TRACE("(%p, %s, %s, %ld)\n", hWnd, debugstr_a(pszINF),
 378           debugstr_a(pszSec), dwReserved);
 379
 380     if (!pszINF || !pszSec)
 381         return E_INVALIDARG;
 382
 383     RtlCreateUnicodeStringFromAsciiz(&infW, pszINF);
 384     RtlCreateUnicodeStringFromAsciiz(&secW, pszSec);
 385
 386     res = RebootCheckOnInstallW(hWnd, infW.Buffer, secW.Buffer, dwReserved);
 387
 388     RtlFreeUnicodeString(&infW);
 389     RtlFreeUnicodeString(&secW);
 390
 391     return res;
 392 }
 393
 394 /***********************************************************************
 395  *             RebootCheckOnInstallW   (ADVPACK.@)
 396  *
 397  * Checks if a reboot is required for an installed INF section.
 398  *
 399  * PARAMS
 400  *   hWnd       [I] Handle to the window used for messages.
 401  *   pszINF     [I] Filename of the INF file.
 402  *   pszSec     [I] INF section to check.
 403  *   dwReserved [I] Reserved.  Must be 0.
 404  *
 405  * RETURNS
 406  *   Success: S_OK - Reboot is needed if the INF section is installed.
 407  *            S_FALSE - Reboot is not needed.
 408  *   Failure: HRESULT of GetLastError().
 409  *
 410  * NOTES
 411  *   if pszSec is NULL, RebootCheckOnInstall checks the DefaultInstall
 412  *   or DefaultInstall.NT section.
 413  *
 414  * BUGS
 415  *   Unimplemented.
 416  */
 417 HRESULT WINAPI RebootCheckOnInstallW(HWND hWnd, LPCWSTR pszINF,
 418                                      LPCWSTR pszSec, DWORD dwReserved)
 419 {
 420     FIXME("(%p, %s, %s, %ld): stub\n", hWnd, debugstr_w(pszINF),
 421           debugstr_w(pszSec), dwReserved);
 422
 423     return E_FAIL;
 424 }
 425
 426 /* registers the OCX if do_reg is TRUE, unregisters it otherwise */
 427 HRESULT do_ocx_reg(HMODULE hocx, BOOL do_reg, const WCHAR *flags, const WCHAR *param)
 428 {
 429     DLLREGISTER reg_func;
 430
 431     if (do_reg)
 432         reg_func = (DLLREGISTER)GetProcAddress(hocx, "DllRegisterServer");
 433     else
 434         reg_func = (DLLREGISTER)GetProcAddress(hocx, "DllUnregisterServer");
 435
 436     if (!reg_func)
 437         return E_FAIL;
 438
 439     reg_func();
 440     return S_OK;
 441 }
 442
 443 /***********************************************************************
 444  *             RegisterOCX    (ADVPACK.@)
 445  *
 446  * Registers an OCX.
 447  *
 448  * PARAMS
 449  *   hWnd    [I] Handle to the window used for the display.
 450  *   hInst   [I] Instance of the process.
 451  *   cmdline [I] Contains parameters in the order OCX,flags,param.
 452  *   show    [I] How the window should be shown.
 453  *
 454  * RETURNS
 455  *   Success: S_OK.
 456  *   Failure: E_FAIL.
 457  *
 458  * NOTES
 459  *   OCX - Filename of the OCX to register.
 460  *   flags - Controls the operation of RegisterOCX.
 461  *    'I' Call DllRegisterServer and DllInstall.
 462  *    'N' Only call DllInstall.
 463  *   param - Command line passed to DllInstall.
 464  */
 465 HRESULT WINAPI RegisterOCX(HWND hWnd, HINSTANCE hInst, LPCSTR cmdline, INT show)
 466 {
 467     LPWSTR ocx_filename, str_flags, param;
 468     LPWSTR cmdline_copy, cmdline_ptr;
 469     UNICODE_STRING cmdlineW;
 470     HRESULT hr = E_FAIL;
 471     HMODULE hm = NULL;
 472     DWORD size;
 473
 474     TRACE("(%s)\n", debugstr_a(cmdline));
 475
 476     RtlCreateUnicodeStringFromAsciiz(&cmdlineW, cmdline);
 477
 478     size = (lstrlenW(cmdlineW.Buffer) + 1) * sizeof(WCHAR);
 479     cmdline_copy = HeapAlloc(GetProcessHeap(), 0, size);
 480     cmdline_ptr = cmdline_copy;
 481     lstrcpyW(cmdline_copy, cmdlineW.Buffer);
 482
 483     ocx_filename = get_parameter(&cmdline_ptr, ',', TRUE);
 484     if (!ocx_filename || !*ocx_filename)
 485         goto done;
 486
 487     str_flags = get_parameter(&cmdline_ptr, ',', TRUE);
 488     param = get_parameter(&cmdline_ptr, ',', TRUE);
 489
 490     hm = LoadLibraryExW(ocx_filename, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
 491     if (!hm)
 492         goto done;
 493
 494     hr = do_ocx_reg(hm, TRUE, str_flags, param);
 495
 496 done:
 497     FreeLibrary(hm);
 498     HeapFree(GetProcessHeap(), 0, cmdline_copy);
 499     RtlFreeUnicodeString(&cmdlineW);
 500
 501     return hr;
 502 }
 503
 504 /***********************************************************************
 505  *             SetPerUserSecValuesA   (ADVPACK.@)
 506  *
 507  * See SetPerUserSecValuesW.
 508  */
 509 HRESULT WINAPI SetPerUserSecValuesA(PERUSERSECTIONA* pPerUser)
 510 {
 511     PERUSERSECTIONW perUserW;
 512
 513     TRACE("(%p)\n", pPerUser);
 514
 515     if (!pPerUser)
 516         return E_INVALIDARG;
 517
 518     MultiByteToWideChar(CP_ACP, 0, pPerUser->szGUID, -1, perUserW.szGUID, ARRAY_SIZE(perUserW.szGUID));
 519     MultiByteToWideChar(CP_ACP, 0, pPerUser->szDispName, -1, perUserW.szDispName, ARRAY_SIZE(perUserW.szDispName));
 520     MultiByteToWideChar(CP_ACP, 0, pPerUser->szLocale, -1, perUserW.szLocale, ARRAY_SIZE(perUserW.szLocale));
 521     MultiByteToWideChar(CP_ACP, 0, pPerUser->szStub, -1, perUserW.szStub, ARRAY_SIZE(perUserW.szStub));
 522     MultiByteToWideChar(CP_ACP, 0, pPerUser->szVersion, -1, perUserW.szVersion, ARRAY_SIZE(perUserW.szVersion));
 523     MultiByteToWideChar(CP_ACP, 0, pPerUser->szCompID, -1, perUserW.szCompID, ARRAY_SIZE(perUserW.szCompID));
 524     perUserW.dwIsInstalled = pPerUser->dwIsInstalled;
 525     perUserW.bRollback = pPerUser->bRollback;
 526
 527     return SetPerUserSecValuesW(&perUserW);
 528 }
 529
 530 /***********************************************************************
 531  *             SetPerUserSecValuesW   (ADVPACK.@)
 532  *
 533  * Prepares the per-user stub values under IsInstalled\{GUID} that
 534  * control the per-user installation.
 535  *
 536  * PARAMS
 537  *   pPerUser [I] Per-user stub values.
 538  *
 539  * RETURNS
 540  *   Success: S_OK.
 541  *   Failure: E_FAIL.
 542  */
 543 HRESULT WINAPI SetPerUserSecValuesW(PERUSERSECTIONW* pPerUser)
 544 {
 545     HKEY setup, guid;
 546
 547     TRACE("(%p)\n", pPerUser);
 548
 549     if (!pPerUser || !*pPerUser->szGUID)
 550         return S_OK;
 551
 552     if (RegCreateKeyExW(HKEY_LOCAL_MACHINE, setup_key, 0, NULL, 0, KEY_WRITE,
 553                         NULL, &setup, NULL))
 554     {
 555         return E_FAIL;
 556     }
 557
 558     if (RegCreateKeyExW(setup, pPerUser->szGUID, 0, NULL, 0, KEY_ALL_ACCESS,
 559                         NULL, &guid, NULL))
 560     {
 561         RegCloseKey(setup);
 562         return E_FAIL;
 563     }
 564
 565     if (*pPerUser->szStub)
 566     {
 567         RegSetValueExW(guid, L"StubPath", 0, REG_SZ, (BYTE *)pPerUser->szStub,
 568                        (lstrlenW(pPerUser->szStub) + 1) * sizeof(WCHAR));
 569     }
 570
 571     if (*pPerUser->szVersion)
 572     {
 573         RegSetValueExW(guid, L"Version", 0, REG_SZ, (BYTE *)pPerUser->szVersion,
 574                        (lstrlenW(pPerUser->szVersion) + 1) * sizeof(WCHAR));
 575     }
 576
 577     if (*pPerUser->szLocale)
 578     {
 579         RegSetValueExW(guid, L"Locale", 0, REG_SZ, (BYTE *)pPerUser->szLocale,
 580                        (lstrlenW(pPerUser->szLocale) + 1) * sizeof(WCHAR));
 581     }
 582
 583     if (*pPerUser->szCompID)
 584     {
 585         RegSetValueExW(guid, L"ComponentID", 0, REG_SZ, (BYTE *)pPerUser->szCompID,
 586                        (lstrlenW(pPerUser->szCompID) + 1) * sizeof(WCHAR));
 587     }
 588
 589     if (*pPerUser->szDispName)
 590     {
 591         RegSetValueExW(guid, NULL, 0, REG_SZ, (LPBYTE)pPerUser->szDispName,
 592                        (lstrlenW(pPerUser->szDispName) + 1) * sizeof(WCHAR));
 593     }
 594
 595     RegSetValueExW(guid, L"IsInstalled", 0, REG_DWORD,
 596                    (LPBYTE)&pPerUser->dwIsInstalled, sizeof(DWORD));
 597
 598     RegCloseKey(guid);
 599     RegCloseKey(setup);
 600
 601     return S_OK;
 602 }
 603
 604 /***********************************************************************
 605  *             TranslateInfStringA   (ADVPACK.@)
 606  *
 607  * See TranslateInfStringW.
 608  */
 609 HRESULT WINAPI TranslateInfStringA(LPCSTR pszInfFilename, LPCSTR pszInstallSection,
 610                 LPCSTR pszTranslateSection, LPCSTR pszTranslateKey, LPSTR pszBuffer,
 611                 DWORD dwBufferSize, PDWORD pdwRequiredSize, PVOID pvReserved)
 612 {
 613     UNICODE_STRING filenameW, installW;
 614     UNICODE_STRING translateW, keyW;
 615     LPWSTR bufferW;
 616     HRESULT res;
 617     DWORD len = 0;
 618
 619     TRACE("(%s, %s, %s, %s, %p, %ld, %p, %p)\n",
 620           debugstr_a(pszInfFilename), debugstr_a(pszInstallSection),
 621           debugstr_a(pszTranslateSection), debugstr_a(pszTranslateKey),
 622           pszBuffer, dwBufferSize,pdwRequiredSize, pvReserved);
 623
 624     if (!pszInfFilename || !pszTranslateSection ||
 625         !pszTranslateKey || !pdwRequiredSize)
 626         return E_INVALIDARG;
 627
 628     RtlCreateUnicodeStringFromAsciiz(&filenameW, pszInfFilename);
 629     RtlCreateUnicodeStringFromAsciiz(&installW, pszInstallSection);
 630     RtlCreateUnicodeStringFromAsciiz(&translateW, pszTranslateSection);
 631     RtlCreateUnicodeStringFromAsciiz(&keyW, pszTranslateKey);
 632
 633     res = TranslateInfStringW(filenameW.Buffer, installW.Buffer,
 634                               translateW.Buffer, keyW.Buffer, NULL,
 635                               dwBufferSize, &len, NULL);
 636
 637     if (res == S_OK)
 638     {
 639         bufferW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 640
 641         res = TranslateInfStringW(filenameW.Buffer, installW.Buffer,
 642                                   translateW.Buffer, keyW.Buffer, bufferW,
 643                                   len, &len, NULL);
 644         if (res == S_OK)
 645         {
 646             *pdwRequiredSize = WideCharToMultiByte(CP_ACP, 0, bufferW, -1,
 647                                                    NULL, 0, NULL, NULL);
 648
 649             if (dwBufferSize >= *pdwRequiredSize)
 650             {
 651                 WideCharToMultiByte(CP_ACP, 0, bufferW, -1, pszBuffer,
 652                                     dwBufferSize, NULL, NULL);
 653             }
 654             else
 655                 res = E_NOT_SUFFICIENT_BUFFER;
 656         }
 657
 658         HeapFree(GetProcessHeap(), 0, bufferW);
 659     }
 660
 661     RtlFreeUnicodeString(&filenameW);
 662     RtlFreeUnicodeString(&installW);
 663     RtlFreeUnicodeString(&translateW);
 664     RtlFreeUnicodeString(&keyW);
 665
 666     return res;
 667 }
 668
 669 /***********************************************************************
 670  *             TranslateInfStringW   (ADVPACK.@)
 671  *
 672  * Translates the value of a specified key in an inf file into the
 673  * current locale by expanding string macros.
 674  *
 675  * PARAMS
 676  *   pszInfFilename      [I] Filename of the inf file.
 677  *   pszInstallSection   [I]
 678  *   pszTranslateSection [I] Inf section where the key exists.
 679  *   pszTranslateKey     [I] Key to translate.
 680  *   pszBuffer           [O] Contains the translated string on exit.
 681  *   dwBufferSize        [I] Size on input of pszBuffer.
 682  *   pdwRequiredSize     [O] Length of the translated key.
 683  *   pvReserved          [I] Reserved, must be NULL.
 684  *
 685  * RETURNS
 686  *   Success: S_OK.
 687  *   Failure: An hresult error code.
 688  */
 689 HRESULT WINAPI TranslateInfStringW(LPCWSTR pszInfFilename, LPCWSTR pszInstallSection,
 690                 LPCWSTR pszTranslateSection, LPCWSTR pszTranslateKey, LPWSTR pszBuffer,
 691                 DWORD dwBufferSize, PDWORD pdwRequiredSize, PVOID pvReserved)
 692 {
 693     HINF hInf;
 694     HRESULT hret = S_OK;
 695
 696     TRACE("(%s, %s, %s, %s, %p, %ld, %p, %p)\n",
 697           debugstr_w(pszInfFilename), debugstr_w(pszInstallSection),
 698           debugstr_w(pszTranslateSection), debugstr_w(pszTranslateKey),
 699           pszBuffer, dwBufferSize,pdwRequiredSize, pvReserved);
 700
 701     if (!pszInfFilename || !pszTranslateSection ||
 702         !pszTranslateKey || !pdwRequiredSize)
 703         return E_INVALIDARG;
 704
 705     hInf = SetupOpenInfFileW(pszInfFilename, NULL, INF_STYLE_WIN4, NULL);
 706     if (hInf == INVALID_HANDLE_VALUE)
 707         return HRESULT_FROM_WIN32(ERROR_FILE_NOT_FOUND);
 708
 709     set_ldids(hInf, pszInstallSection, NULL);
 710
 711     if (!SetupGetLineTextW(NULL, hInf, pszTranslateSection, pszTranslateKey,
 712                            pszBuffer, dwBufferSize, pdwRequiredSize))
 713     {
 714         if (dwBufferSize < *pdwRequiredSize)
 715             hret = E_NOT_SUFFICIENT_BUFFER;
 716         else
 717             hret = SPAPI_E_LINE_NOT_FOUND;
 718     }
 719
 720     SetupCloseInfFile(hInf);
 721     return hret;
 722 }
 723
 724 /***********************************************************************
 725  *             TranslateInfStringExA   (ADVPACK.@)
 726  *
 727  * See TranslateInfStringExW.
 728  */
 729 HRESULT WINAPI TranslateInfStringExA(HINF hInf, LPCSTR pszInfFilename,
 730                                     LPCSTR pszTranslateSection, LPCSTR pszTranslateKey,
 731                                     LPSTR pszBuffer, DWORD dwBufferSize,
 732                                     PDWORD pdwRequiredSize, PVOID pvReserved)
 733 {
 734     UNICODE_STRING filenameW, sectionW, keyW;
 735     LPWSTR bufferW;
 736     HRESULT res;
 737     DWORD len = 0;
 738
 739     TRACE("(%p, %s, %s, %s, %p, %ld, %p, %p)\n", hInf, debugstr_a(pszInfFilename),
 740           debugstr_a(pszTranslateSection), debugstr_a(pszTranslateKey),
 741           pszBuffer, dwBufferSize, pdwRequiredSize, pvReserved);
 742
 743     if (!pszInfFilename || !pszTranslateSection ||
 744         !pszTranslateKey || !pdwRequiredSize)
 745         return E_INVALIDARG;
 746
 747     RtlCreateUnicodeStringFromAsciiz(&filenameW, pszInfFilename);
 748     RtlCreateUnicodeStringFromAsciiz(&sectionW, pszTranslateSection);
 749     RtlCreateUnicodeStringFromAsciiz(&keyW, pszTranslateKey);
 750
 751     res = TranslateInfStringExW(hInf, filenameW.Buffer, sectionW.Buffer,
 752                                 keyW.Buffer, NULL, 0, &len, NULL);
 753
 754     if (res == S_OK)
 755     {
 756         bufferW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 757
 758         res = TranslateInfStringExW(hInf, filenameW.Buffer, sectionW.Buffer,
 759                                 keyW.Buffer, bufferW, len, &len, NULL);
 760
 761         if (res == S_OK)
 762         {
 763             *pdwRequiredSize = WideCharToMultiByte(CP_ACP, 0, bufferW, -1,
 764                                                    NULL, 0, NULL, NULL);
 765
 766             if (dwBufferSize >= *pdwRequiredSize)
 767             {
 768                 WideCharToMultiByte(CP_ACP, 0, bufferW, -1, pszBuffer,
 769                                     dwBufferSize, NULL, NULL);
 770             }
 771             else
 772                 res = E_NOT_SUFFICIENT_BUFFER;
 773         }
 774
 775         HeapFree(GetProcessHeap(), 0, bufferW);
 776     }
 777
 778     RtlFreeUnicodeString(&filenameW);
 779     RtlFreeUnicodeString(&sectionW);
 780     RtlFreeUnicodeString(&keyW);
 781
 782     return res;
 783 }
 784
 785 /***********************************************************************
 786  *             TranslateInfStringExW   (ADVPACK.@)
 787  *
 788  * Using a handle to an INF file opened with OpenINFEngine, translates
 789  * the value of a specified key in an inf file into the current locale
 790  * by expanding string macros.
 791  *
 792  * PARAMS
 793  *   hInf                [I] Handle to the INF file.
 794  *   pszInfFilename      [I] Filename of the INF file.
 795  *   pszTranslateSection [I] Inf section where the key exists.
 796  *   pszTranslateKey     [I] Key to translate.
 797  *   pszBuffer           [O] Contains the translated string on exit.
 798  *   dwBufferSize        [I] Size on input of pszBuffer.
 799  *   pdwRequiredSize     [O] Length of the translated key.
 800  *   pvReserved          [I] Reserved.  Must be NULL.
 801  *
 802  * RETURNS
 803  *   Success: S_OK.
 804  *   Failure: E_FAIL.
 805  *
 806  * NOTES
 807  *   To use TranslateInfStringEx to translate an INF file continuously,
 808  *   open the INF file with OpenINFEngine, call TranslateInfStringEx as
 809  *   many times as needed, then release the handle with CloseINFEngine.
 810  *   When translating more than one keys, this method is more efficient
 811  *   than calling TranslateInfString, because the INF file is only
 812  *   opened once.
 813  */
 814 HRESULT WINAPI TranslateInfStringExW(HINF hInf, LPCWSTR pszInfFilename,
 815                                      LPCWSTR pszTranslateSection, LPCWSTR pszTranslateKey,
 816                                      LPWSTR pszBuffer, DWORD dwBufferSize,
 817                                      PDWORD pdwRequiredSize, PVOID pvReserved)
 818 {
 819     TRACE("(%p, %s, %s, %s, %p, %ld, %p, %p)\n", hInf, debugstr_w(pszInfFilename),
 820           debugstr_w(pszTranslateSection), debugstr_w(pszTranslateKey),
 821           pszBuffer, dwBufferSize, pdwRequiredSize, pvReserved);
 822
 823     if (!hInf || !pszInfFilename || !pszTranslateSection || !pszTranslateKey)
 824         return E_INVALIDARG;
 825
 826     if (!SetupGetLineTextW(NULL, hInf, pszTranslateSection, pszTranslateKey,
 827                            pszBuffer, dwBufferSize, pdwRequiredSize))
 828     {
 829         if (dwBufferSize < *pdwRequiredSize)
 830             return E_NOT_SUFFICIENT_BUFFER;
 831
 832         return SPAPI_E_LINE_NOT_FOUND;
 833     }
 834
 835     return S_OK;
 836 }
 837
 838 /***********************************************************************
 839  *             UserInstStubWrapperA   (ADVPACK.@)
 840  *
 841  * See UserInstStubWrapperW.
 842  */
 843 HRESULT WINAPI UserInstStubWrapperA(HWND hWnd, HINSTANCE hInstance,
 844                                    LPSTR pszParms, INT nShow)
 845 {
 846     UNICODE_STRING parmsW;
 847     HRESULT res;
 848
 849     TRACE("(%p, %p, %s, %i)\n", hWnd, hInstance, debugstr_a(pszParms), nShow);
 850
 851     if (!pszParms)
 852         return E_INVALIDARG;
 853
 854     RtlCreateUnicodeStringFromAsciiz(&parmsW, pszParms);
 855
 856     res = UserInstStubWrapperW(hWnd, hInstance, parmsW.Buffer, nShow);
 857
 858     RtlFreeUnicodeString(&parmsW);
 859
 860     return res;
 861 }
 862
 863 /***********************************************************************
 864  *             UserInstStubWrapperW   (ADVPACK.@)
 865  *
 866  * Launches the user stub wrapper specified by the RealStubPath
 867  * registry value under Installed Components\szParms.
 868  *
 869  * PARAMS
 870  *   hWnd      [I] Handle to the window used for the display.
 871  *   hInstance [I] Instance of the process.
 872  *   szParms   [I] The GUID of the installation.
 873  *   show      [I] How the window should be shown.
 874  *
 875  * RETURNS
 876  *   Success: S_OK.
 877  *   Failure: E_FAIL.
 878  *
 879  * TODO
 880  *   If the type of the StubRealPath value is REG_EXPAND_SZ, then
 881  *   we should call ExpandEnvironmentStrings on the value and
 882  *   launch the result.
 883  */
 884 HRESULT WINAPI UserInstStubWrapperW(HWND hWnd, HINSTANCE hInstance,
 885                                     LPWSTR pszParms, INT nShow)
 886 {
 887     HKEY setup, guid;
 888     WCHAR stub[MAX_PATH];
 889     DWORD size = sizeof(stub);
 890     HRESULT hr = S_OK;
 891     BOOL res;
 892
 893     TRACE("(%p, %p, %s, %i)\n", hWnd, hInstance, debugstr_w(pszParms), nShow);
 894
 895     if (!pszParms || !*pszParms)
 896         return E_INVALIDARG;
 897
 898     if (RegOpenKeyExW(HKEY_LOCAL_MACHINE, setup_key, 0, KEY_READ, &setup))
 899     {
 900         return E_FAIL;
 901     }
 902
 903     if (RegOpenKeyExW(setup, pszParms, 0, KEY_READ, &guid))
 904     {
 905         RegCloseKey(setup);
 906         return E_FAIL;
 907     }
 908
 909     res = RegQueryValueExW(guid, L"RealStubPath", NULL, NULL, (BYTE *)stub, &size);
 910     if (res || !*stub)
 911         goto done;
 912
 913     /* launch the user stub wrapper */
 914     hr = launch_exe(stub, NULL, NULL);
 915
 916 done:
 917     RegCloseKey(setup);
 918     RegCloseKey(guid);
 919
 920     return hr;
 921 }
 922
 923 /***********************************************************************
 924  *             UserUnInstStubWrapperA   (ADVPACK.@)
 925  *
 926  * See UserUnInstStubWrapperW.
 927  */
 928 HRESULT WINAPI UserUnInstStubWrapperA(HWND hWnd, HINSTANCE hInstance,
 929                                       LPSTR pszParms, INT nShow)
 930 {
 931     UNICODE_STRING parmsW;
 932     HRESULT res;
 933
 934     TRACE("(%p, %p, %s, %i)\n", hWnd, hInstance, debugstr_a(pszParms), nShow);
 935
 936     if (!pszParms)
 937         return E_INVALIDARG;
 938
 939     RtlCreateUnicodeStringFromAsciiz(&parmsW, pszParms);
 940
 941     res = UserUnInstStubWrapperW(hWnd, hInstance, parmsW.Buffer, nShow);
 942
 943     RtlFreeUnicodeString(&parmsW);
 944
 945     return res;
 946 }
 947
 948 /***********************************************************************
 949  *             UserUnInstStubWrapperW   (ADVPACK.@)
 950  */
 951 HRESULT WINAPI UserUnInstStubWrapperW(HWND hWnd, HINSTANCE hInstance,
 952                                       LPWSTR pszParms, INT nShow)
 953 {
 954     FIXME("(%p, %p, %s, %i): stub\n", hWnd, hInstance, debugstr_w(pszParms), nShow);
 955
 956     return E_FAIL;
 957 }