MSI.ProcessMessage Examples

OverviewExamples

number MSI.ProcessMessage (

number hInstall,

number Message,

number hRecord,

table DialogInfo = nil )

Example 1

hError = MSI.CreateRecord(2);

error = Application.GetLastError();

if (error ~= 0) then

Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);

else

bSet1 = MSI.RecordSetString(hError, 0, "");

bSet2 = MSI.RecordSetInteger(hError, 1, 1304);

bSet3 = MSI.RecordSetString(hError, 2, "MyFile.txt");

if (bSet1 and bSet2 and bSet3) then

tbDialog = {MB_ABORTRETRYIGNORE,MB_ICONWARNING};

nMessageResult = MSI.ProcessMessage(_hInstall, INSTALLMESSAGE_ERROR, hError, tbDialog);

end

MSI.CloseHandle(hError);

end

Creates an error record and uses the MSI.ProcessMessage action to show an error dialog containing the text "Error 1304. Error writing to file: Myfile.txt. Verify that you have access to that directory."