TWBHandlerMessage

type TWBHandlerMessage = record

  wbhm_Message: TMessage;

  wbhm_type: TWBHM_type;

  case Integer of

    0: (

        Open: record

          OpenName: PChar;

        end;

      );

    1: (

        Update: record

          UpdateName: PChar;

          Updatetype: LongInt;

        end;

      );

end;