📄 unitmain.pas
字号:
{$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 of case j+1 and for
end; // end of case i+1
6://以下是第6个命令的参数信息================================================
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:=PChar('');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end; // end of case j+1 and for
end; // end of case i+1
7://以下是第7个命令的参数信息================================================
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:=PChar('本参数指定返回值的高16位（高字）的值。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
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:=PChar('本参数指定返回值的低16位（低字）的值。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end; // end of case j+1 and for
end; // end of case i+1
8://以下是第8个命令的参数信息================================================
begin
count:=4; //!!! 本命令的参数个数
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: //第一个参数----------------------------------------------------------
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;
3: //第3个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('消息参数1');
m_szExplain:=PChar('本参数指定消息的第一个参数。具体含义随消息的不同而不同。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
4: //第4个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('消息参数2');
m_szExplain:=PChar('本参数指定消息的第二个参数。具体含义随消息的不同而不同。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end; // end of case j+1 and for
end; // end of case i+1
9://以下是第9个命令的参数信息================================================
begin
count:=4; //!!! 本命令的参数个数
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: //第一个参数----------------------------------------------------------
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;
3: //第3个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('消息参数1');
m_szExplain:=PChar('本参数指定消息的第一个参数。具体含义随消息的不同而不同。'+
'*注意：如果<参数2>指点的消息号小于1024，则该参数不能是容器地址，否则该命令失败！');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
4: //第4个参数----------------------------------------------------------
with ArgumentsInfo[i][j] do begin
{$IFDEF __ELIB_FNR}
m_szName:=nil;
m_szExplain:=nil;
{$ELSE}
m_szName:=PChar('消息参数2');
m_szExplain:=PChar('本参数指定消息的第二个参数。具体含义随消息的不同而不同。'+
'*注意：如果<参数2>指点的消息号小于1024，则该参数不能是容器地址，否则该命令失败！');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_INT;
m_nDefault:=0;
m_dwState:=0;
end;
end; // end of case j+1 and for
end; // end of case i+1
10://以下是第10个命令的参数信息================================================
begin
count:=3; //!!! 本命令的参数个数
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_TEXT;
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('本参数指定是否依次搜索<参数1>的所有自目录。');
{$ENDIF}
m_shtBitmapIndex:=0;
m_shtBitmapCount:=0;
m_dtDataType:=SDT_BOOL;
m_nDefault:=1;
m_dwState:=AS_HAS_DEFAULT_VALUE;
end;
3: //第3个参数----------------------------------------------------------
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_SUB_PTR;
m_nDefault:=0;
m_dwState:=0;
end;
end; // end of case j+1 and for
end; // end of case i+1
11://以下是第11个命令的参数信息================================================
begin
count:=3; //!!! 本命令的参数个数
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('指定接收“窗口_热键”消息的窗口。这个消息在参数<2>、参数<3>所指定的热键被按下时被发送到该窗口。关于该消息的说明详见本支持库的“常量”部分。');
{$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;
3: //第3个参数----------------------------------------------------------
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 of case j+1 and for
end; // end of case i+1
12://以下是第12个命令的参数信息================================================
begin
count:=2; //!!! 本命令的参数个数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -