fill a combo box during installation?

Use the following code. PROPNAME is the property associated with the combo and StringList the List holding the values to be populated.

Code Sample

function PopulateCombo(hMSI)
LIST StringList, DatabaseList;
STRING svString;
NUMBER nResult;
NUMBER hDatabase, hCBOView, hView, hRec;
STRING szText;
number index, nCount;
STRING sQuery;
begin
index=0;
hDatabase=MsiGetActiveDatabase(hMSI);

sQuery="SELECT * FROM ComboBox WHERE Property='PROPNAME'";
nResult = MsiDatabaseOpenView(hDatabase,sQuery,hCBOView);

// Allocate space to hold the four properties of a combobox row...
hRec=MsiCreateRecord(4);

ServerList = ListCreate (STRINGLIST);
nResult = GetStringList(StringList);
nResult = ListGetFirstString (StringList, svString);

MsiRecordSetString(hRec,1,'PROPNAME'); // Combobox name. Must be unique with MSI
MsiRecordSetInteger(hRec,2,index); // Position of the line in the combo
MsiRecordSetString(hRec,3,svString); // Key String - a string related to the line
MsiRecordSetString(hRec,4,svString); // String to be displayed

MsiViewModify(hCBOView,MSIMODIFY_INSERT_TEMPORARY,hRec);
nResult = ListGetNextString (StringList, svString);

// Loop while list items continue to be retrieved.
while (nResult != END_OF_LIST)
// Display the current element.
index=index+1;
MsiRecordSetString(hRec,1,'PROPNAME'); // Combobox name. Must be unique with MSI
MsiRecordSetInteger(hRec,2,index); // Position of the line in the combo
MsiRecordSetString(hRec,3,svString); // Key String - a string related to the line
MsiRecordSetString(hRec,4,svString); // String to be displayed
// Write the updated row
MsiViewModify(hCBOView,MSIMODIFY_INSERT_TEMPORARY,hRec);
nResult = ListGetNextString (StringList, svString);
endwhile;

// Close handle
MsiCloseHandle(hRec);
MsiViewClose (hView);
end;

function GetStringList(StringList)
begin
//populate StringList here
end;

mat

gunavelu

mat

ShelleyO

daniel.bila

Glytzhkof