TÉMA:

function SendMsgToDS ( hParentWindow : HWND; aMsg : PMSG ):boolean;
  var
   rc : TW_UINT16;
  begin
    twEvent.pEvent    := TW_MEMREF(aMsg);        // Message to be sent
    twEvent.TWMessage := MSG_NULL;
 
    rc := DSM_Entry( @AppId,         // Send Message for processing
                     @SourceId,
                     DG_CONTROL,
                     DAT_EVENT,
                     MSG_PROCESSEVENT,
                     @twEvent );
 
    case twEvent.TWMessage of           // Check return message
      MSG_XFERREADY  : begin
                         case twMode of
                           Native : TransferNativeImage( hParentWindow, hImage );
                           Disk   : ;  // ToDo: TransferDiskImage ( 'c:\temp\test.bmp' );
                           Memory : ;  // ToDo
                         end;
                         TWDisableDS( hParentWindow );
                         TWCloseDS( hParentWindow );
                       end;
      MSG_CLOSEDSREQ : begin
                         TWDisableDS( hParentWindow );
                         TWCloseDS( hParentWindow );
                       end;
      MSG_CLOSEDSOK  : begin
                         TWDisableDS( hParentWindow );
                         TWCloseDS( hParentWindow );
//                         GetCustomDsData();
                       end;
      MSG_NULL       : begin
                       end;
    end;
    SendMsgToDS := not (rc = TWRC_NOTDSEVENT);
  end;