⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unitmain.pas

📁 支持库类 / 模块控件 / 支持库类 eLIB++支持库 源代码 Delphi
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
      m_shtCategory:=3;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  6:// 第6个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('取低字值');
        m_szEGName:=PChar('LoWord');
        m_szExplain:=PChar('取一个整数的低16位字节所代表的值。');
      {$ENDIF}

      m_shtCategory:=3;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  7:// 第7个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('合并为整数');
        m_szEGName:=PChar('MakeInt');
        m_szExplain:=PChar('把代表一个整数高16位（高字）和低16位（低字）的值合并为一个整数。');
      {$ENDIF}

      m_shtCategory:=3;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  8:// 第8个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('发送消息');
        m_szEGName:=PChar('SendMessage');
        m_szExplain:=PChar('发送特定的消息到一个或多个窗口。该命令不会立即返回，只有在消息被处理完毕后才返回结果。返回值的具体含义随消息的不同而不同。');
      {$ENDIF}

      m_shtCategory:=1;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
   9:// 第9个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('投递消息');
        m_szEGName:=PChar('PostMessage');
        m_szExplain:=PChar('投递特定的消息到一个或多个窗口。该命令会立即返回，成功投递返回真，失败返回假。');
      {$ENDIF}

      m_shtCategory:=1;
      m_wState:=0;
      m_dtRetType:=SDT_BOOL;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  10:// 第10个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('搜索目录');
        m_szEGName:=PChar('SearchDir');
        m_szExplain:=PChar('搜索指定目录，列举其所有文件和子目录并依次调用指定的回调子程序。成功返回真，失败返回假。当搜索完毕或回调子程序返回假时，该命令返回。');
      {$ENDIF}

      m_shtCategory:=3;
      m_wState:=CT_IS_ERROR;
      m_dtRetType:=SDT_BOOL;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  11:// 第11个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('注册热键');
        m_szEGName:=PChar('RegHotKey');
        m_szExplain:=PChar('指定一个系统范围的热键。成功返回其热键号，失败返回0。注意：★必须在程序结束前用“撤销热键”命令撤销成功注册的热键。');
      {$ENDIF}

      m_shtCategory:=4;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  12:// 第12个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('撤销热键');
        m_szEGName:=PChar('UnRegHotKey');
        m_szExplain:=PChar('撤销由“注册热键”命令成功注册的热键。成功返回真，失败返回假。该命令和“注册热键”命令配合使用。');
      {$ENDIF}

      m_shtCategory:=4;
      m_wState:=0;
      m_dtRetType:=SDT_BOOL;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //ShiftL
  13:// 第13个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('左移位');
        m_szEGName:=PChar('ShiftL');
        m_szExplain:=PChar('把一个整数值的各个二进制位（bit）依次向左移动指定位数后返回。');
      {$ENDIF}

      m_shtCategory:=3;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //ShiftR
  14:// 第14个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('右移位');
        m_szEGName:=PChar('ShiftR');
        m_szExplain:=PChar('把一个整数值的各个二进制位（bit）依次向右移动指定位数后返回。');
      {$ENDIF}

      m_shtCategory:=3;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //GetClpData
  15:// 第15个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('取剪辑板数据');
        m_szEGName:=PChar('GetClipBoardData');
        m_szExplain:=PChar('返回存放于当前 Windows 系统剪辑板中的数据。失败返回空字节集。');
      {$ENDIF}

      m_shtCategory:=5;
      m_wState:=0;
      m_dtRetType:=SDT_BIN;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //SetClpData
  16:// 第16个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('置剪辑板数据');
        m_szEGName:=PChar('SetClipBoardData');
        m_szExplain:=PChar('将指定数据存放到当前 Windows 系统剪辑板中去，剪辑板中的原有内容被覆盖。成功返回真，失败返回假。');
      {$ENDIF}

      m_shtCategory:=5;
      m_wState:=0;
      m_dtRetType:=SDT_BOOL;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //GetClpFormats
  17:// 第17个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('取可用剪辑板格式');
        m_szEGName:=PChar('GetClpFormats');
        m_szExplain:=PChar('取出当前剪辑板数据的所有可用格式。返回第一个可用格式。失败返回0。');
      {$ENDIF}

      m_shtCategory:=5;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //RegClpFormat
  18:// 第18个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('注册剪辑板格式');
        m_szEGName:=PChar('RegClpFormat');
        m_szExplain:=PChar('注册一个新的剪辑板格式。成功返回该格式的整数值，失败返回0。');
      {$ENDIF}

      m_shtCategory:=5;
      m_wState:=0;
      m_dtRetType:=SDT_INT;
      m_wReserved:=0;
      m_shtUserLevel:=LVL_HIGH;
      m_shtBitmapIndex:=0;
      m_shtBitmapCount:=0;
      m_nArgCount:=High(ArgumentsInfo[i])+1;
      m_pBeginArgInfo:=pARG_INFO(ArgumentsInfo[i]);
    end;
  //GetClpFormatName
  19:// 第19个命令的信息---------------------------------------------------------
    with CommandsInfo[i] do begin
      {$IFDEF __ELIB_FNR}
        m_szName:=nil;
        m_szEGName:=nil;
        m_szExplain:=nil;
      {$ELSE}
        m_szName:=PChar('取剪辑板格式名称');
        m_szEGName:=PChar('GetClpFormatName');
        m_szExplain:=PChar('返回指定的剪辑板数据格式值的名称文本，失败返回空文本。');
      {$ENDIF}

      m_shtCategory:=5;
      m_wState:=0;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -