📄 unitmain.pas
字号:
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('窗口句柄');
m_szExplain:=PChar('见“注册热键”命令。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
2: //第2个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('热键号');
m_szExplain:=PChar('该参数指定欲撤销的热键的唯一标识。由“注册热键”命令返回。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//ShiftL
13://以下是第13个命令的参数信息================================================
begin
count:=2; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲左移位的整数');
m_szExplain:=nil;
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
2: //第2个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('左移的位数');
m_szExplain:=nil;
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//ShiftR
14://以下是第14个命令的参数信息================================================
begin
count:=2; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲右移位的整数');
m_szExplain:=nil;
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
2: //第2个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('右移的位数');
m_szExplain:=nil;
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//GetClpData
15://以下是第15个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('剪辑板数据格式');
m_szExplain:='即“剪辑板_文本”。指定欲取的剪辑板数据的格式。可以是本支持库常量中以“剪辑板_”开头的标准剪辑板常量，或“注册剪辑板格式”命令的返回值。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=1;
m_dwState:=AS_HAS_DEFAULT_VALUE;
end;
end;
end;
//SetClpData
16://以下是第16个命令的参数信息================================================
begin
count:=2; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('准备置入剪辑板的数据');
m_szExplain:=nil;
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_BIN;
m_nDefault:=0;
m_dwState:=0;
end;
2: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('剪辑板数据格式');
m_szExplain:='即“剪辑板_文本”。指定欲置入剪辑板的数据格式。可以是本支持库常量中以“剪辑板_”开头的标准剪辑板格式常量，或“注册剪辑板格式”命令的返回值。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=1;
m_dwState:=AS_HAS_DEFAULT_VALUE;
end;
end;
end;
//GetClpFormats
17://以下是第17个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('存放所有剪辑板数据格式的数组');
m_szExplain:='在命令执行完毕后，本容器数组内被顺序填入可用于当前剪辑板内容的所有格式值。容器数组内原有数据被全部销毁，容器数组的维数被自动调整为一维,并根据可用格式的数目自动调整所数组成员数。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=AS_RECEIVE_VAR_ARRAY;
end;
end;
end;
//RegClpFormat
18://以下是第18个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('新格式名称');
m_szExplain:='指定欲注册的剪辑板格式的名称。如果指定的格式已经注册，则直接返回该格式的值而不注册新的格式。'+
'因此该命令也可以用来查询指定的剪辑板格式的值。注意：*该参数大小写不敏感，即“ClpFmt1”与“clpfMt1”等被认为是同一格式。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_TEXT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//GetClpFormatName
19://以下是第19个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲取其名称的剪辑板格式');
m_szExplain:='注意：*该参数不能为本支持库定义的以“剪辑板_”开头的标准剪辑板格式值。否则命令失败。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//WatchClp
20://以下是第20个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲添加到剪辑板监视链的窗口的句柄');
m_szExplain:='该窗口在系统剪辑板内容改变后会收到“窗口_剪辑板内容已改变”消息。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//UnWatchClp
21://以下是第21个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲从剪辑板监视链中移除的窗口的句柄');
m_szExplain:='移除后该窗口将不再接收到“窗口_剪辑板内容已改变”消息。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//RegWndMsg
22://以下是第22个命令的参数信息================================================
begin
count:=1; //!!! 本命令的参数个数
SetLength(ArgumentsInfo[i],count);
for j:=0 to High(ArgumentsInfo[i]) do case j+1 of
1: //第一个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('欲注册的消息文本');
m_szExplain:='如果该消息已经被其他程序注册，则直接返回该消息的消息号而不注册新消息。';
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_TEXT;
m_nDefault:=0;
m_dwState:=0;
end;
end;
end;
//ExecuteSub
23://以下是第23个命令的参数信息================================================
begin
count:=2; //!!! 本命令的参数个数
SetLength⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -