csh
13be5ea0aa
Migrate reference pages to declaration-line storage and rebuild the 13-column index. Add qualified member lookup plus regression and end-to-end coverage.
960 lines
25 KiB
Markdown
960 lines
25 KiB
Markdown
# Builtin - 资源 / 进程
|
||
|
||
## `sleep(milliseconds)`
|
||
|
||
声明：function
|
||
|
||
暂停执行。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| -------------- | ------- | --------------------------------------------------- |
|
||
| `milliseconds` | integer | 整数，需要暂停的毫秒数。例如暂停一秒为Sleep(1000)。 |
|
||
|
||
返回：nil
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 以下代码先打印123，接着回暂停2S，然后接着打印456
|
||
echo 123;
|
||
sleep(2000);
|
||
echo 456;
|
||
```
|
||
|
||
## `sysParamStr(index)`
|
||
|
||
声明：function
|
||
|
||
获得命令行的指定索引的参数值。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------- | ---- | ---------------------------------------------------------------------------------------------------------------------- |
|
||
| `index` | | 整数，命令行参数的索引号。Index=0，返回值为当前天软脚本文件名称；Index>0，返回值为额外传入的命令行参数值（字符串类型） |
|
||
|
||
返回：string
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 本地test.tsl文件中代码如下：
|
||
test();
|
||
function test();
|
||
begin
|
||
r := array();
|
||
for i := 1 to sysParamcount() do
|
||
begin
|
||
echo sysParamStr(i), '\r\n';
|
||
end
|
||
end
|
||
// 在cmd中打开文件所在文件夹，输入命令：tsl test.tsl 1 2 3
|
||
```
|
||
|
||
## `sysReleaseMutex(mutex)`
|
||
|
||
声明：function
|
||
|
||
释放一个互斥锁。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------- | ------- | ---------------- |
|
||
| `mutex` | integer | 整数，互斥锁编号 |
|
||
|
||
返回：bool
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 释放互斥锁，参数为创建互斥锁时返回的互斥锁编号
|
||
ret := rdo2 sysCreateMutex("tinysoft");
|
||
ret1 := rdo2 sysReleaseMutex(ret);
|
||
return ret1;
|
||
// 输出：1
|
||
```
|
||
|
||
## `sysexecnewpipe(flag)`
|
||
|
||
声明：function
|
||
|
||
创建Sysexec进程的管道。参数缺省时，默认创建读写管道。创建之后会与第一次被用的进程进行绑定，当有多个Sysexec进程时，可以创建多个管道分别进行读写操作。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------ | ------- | ---------------------------------------------------------------------------------------------------- |
|
||
| `flag` | integer | 整数，可选参数，控制创建管道的读写属性。Flag转换为二进制时，第0位表示是否可读，第1位表示是否可写。即 |
|
||
|
||
返回：bool
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 创建读写管道
|
||
sysExecNewPipe(0);
|
||
path := "D:\\TinySoftNG\\AnalyseNG.NET\\TSL.exe";
|
||
// 非阻塞执行，返回进程句柄
|
||
hand := sysExec(path, "tsl", nil, 0, code);
|
||
// 获取SysExec进程所在管道的输出内容
|
||
t1 := "";
|
||
while t1="" do
|
||
begin
|
||
t1 := sysexecreadpipe(hand);
|
||
sleep(100); // 100毫秒读取一次
|
||
end
|
||
// 向SysExec进程所在管道写入内容
|
||
sysExecWritePipe(hand, "datetostr(today())\r\n");
|
||
sleep(500); // 等待写入的内容执行完成，也可写成上面的循环的方式获取
|
||
// 获取管道执行写入内容后的输出内容
|
||
t2 := sysexecreadpipe(hand);
|
||
t3 := sysTerminate(code, hand); // 终止进程
|
||
return array(hand, t1, t2);
|
||
// 输出：如下图：
|
||
```
|
||
|
||
## `sysexecdeletepipe(process_handle)`
|
||
|
||
声明：function
|
||
|
||
删除指定进程的管道。参数缺省时，删除默认管道。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ---------------- | ---- | -------------------------- |
|
||
| `process_handle` | | 数值，可选参数，进程句柄。 |
|
||
|
||
返回：bool
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 创建读写管道
|
||
sysExecNewPipe(0);
|
||
path := "D:\\Program Files\\Analyse.NET\\TSL.exe";
|
||
// 非阻塞执行，返回进程句柄
|
||
hand := sysExec(path, "tsl", nil, false, code);
|
||
// 获取SysExec进程所在管道的输出内容
|
||
t1 := "";
|
||
while t1="" do
|
||
begin
|
||
t1 := sysexecreadpipe(hand);
|
||
end
|
||
de_ret := sysExecDeletePipe(hand);
|
||
// 删除成功，尝试向指定进程所在管道写入内容
|
||
if de_ret then
|
||
begin
|
||
try
|
||
sysExecWritePipe(hand, " datetostr(20221130T)\r\n");
|
||
return false;
|
||
except
|
||
// 写入失败，管道删除成功
|
||
return true;
|
||
end;
|
||
end
|
||
sysTerminate(code, hand); // 终止进程
|
||
return false;
|
||
// 输出：
|
||
// 执行超时。
|
||
```
|
||
|
||
## `sysGetSubProcesses(pid)`
|
||
|
||
声明：function
|
||
|
||
获得进程的子进程列表
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | -------------------------------------------------------------- |
|
||
| `pid` | integer | 整数，可选参数，进程ID。未指定时默认获取当前进程内的子进程列表 |
|
||
|
||
返回：array,tablearray
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前进程的子进程列表
|
||
|
||
```tsl
|
||
ret := sysGetSubProcesses();
|
||
if istabel(ret) then
|
||
return ret;
|
||
else
|
||
return "获取进程的子进程列表失败！"
|
||
```
|
||
|
||
范例02：获取指定进程的子进程列表
|
||
|
||
```tsl
|
||
// 打开记事本，在任务管理器中查找对应进程ID：
|
||
ret := sysGetSubProcesses(2932);
|
||
if istabel(ret) then
|
||
return ret;
|
||
else
|
||
return "获取进程的子进程列表失败！"
|
||
```
|
||
|
||
## `sysputenv(env_value)`
|
||
|
||
声明：function
|
||
|
||
设置当前运行环境的指定环境变量的值。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----------- | ------ | --------------------------- |
|
||
| `env_value` | string | 字符串，环境变量名=变量值。 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 以笔者的电脑环境为例，来展示该函数的功能：
|
||
// 如图所示，本地现有名为OS的环境变量：
|
||
// 并且在powerShell等控制台中可以获取到：
|
||
// 在TSL执行环境中，我们可以使用SysGetenv函数获取指定环境变量，如下：
|
||
```
|
||
|
||
范例01：将原环境变量值替换为设置值。
|
||
|
||
```tsl
|
||
// 从下面的截图中，可以看出，SysPutenv只能设置当前TSL运行环境的环境变量。
|
||
// 在客户端中用代码实现如下：
|
||
res := sysgetenv("OS"); // 获取本地原有环境变量OS的值
|
||
echo res; // 打印原有环境变量OS的值
|
||
ret := sysputenv("OS=Test"); // 更改当前运行环境的环境变量OS的值
|
||
if ret=0 then return sysgetenv("OS"); // 更改成功，获取更改后的环境变量OS的值
|
||
// 返回字符串“Test”
|
||
```
|
||
|
||
范例02：将新增值添加到原有环境变量中
|
||
|
||
```tsl
|
||
// 在客户端中用代码实现如下：
|
||
res := sysgetenv("OS"); // 获取本地原有环境变量OS的值
|
||
echo res; // 打印原有环境变量OS的值
|
||
res := "OS="$res$";Test"; // 原有环境变量与设置值拼接
|
||
ret := sysputenv(res); // 更改当前运行环境的环境变量OS的值
|
||
if ret=0 then return sysgetenv("OS"); // 更改成功，获取更改后的环境变量OS的值
|
||
// 输出：返回字符串" Windows_NT;Test"
|
||
```
|
||
|
||
## `sysErrorMessage(code)`
|
||
|
||
声明：function
|
||
|
||
返回指定代码表示的系统错误信息。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------ | ------- | -------------- |
|
||
| `code` | integer | 整数，提示代码 |
|
||
|
||
返回：string
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
return rdo2 sysErrorMessage(200);
|
||
// 输出：代码段不可大于或等于 64K。
|
||
```
|
||
|
||
## `sysgetenv(name)`
|
||
|
||
声明：function
|
||
|
||
获取当前运行环境下指定环境变量的值。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------ | ------ | -------------------- |
|
||
| `name` | string | 字符串，环境变量名。 |
|
||
|
||
返回：string
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 读取本地已有系统环境变量OS的值
|
||
return sysgetenv("OS");
|
||
// 返回字符串“Windows_NT”
|
||
// 注：更具体的应用可参考Sysputenv中的范例。
|
||
```
|
||
|
||
## `sysWaitForMultipleObjects(objects, b_wait_all, wait_ms)`
|
||
|
||
声明：function
|
||
|
||
等待占有多个对象,例如互斥对象。支持windows和linux的进程
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------------ | ---------------- | -------------------------------------------------------------------------- |
|
||
| `objects` | array of integer | 一维数字数组，对象句柄数组 |
|
||
| `b_wait_all` | bool | 真假，是否等待所有的对象。为真等待所有的，为假则仅需任意一个对象等待成功。 |
|
||
| `wait_ms` | integer | 整数，等待的毫秒数，-1则为永远等待。 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
sysExecNewPipe(); // 创建管道
|
||
path := "D:\\TinySoftNG\\AnalyseNG.NET\\TSL.exe";
|
||
do_s1 := array('C:\\TinySoftNG\\AnalyseNG.NET\\tsl.exe', 'C:\\DoTSL\\otherTest\\TestEnv.tsl');
|
||
do_s2 := array('C:\\TinySoftNG\\AnalyseNG.NET\\tsl.exe', 'C:\\DoTSL\\otherTest\\TestEcho.tsf');
|
||
// 创建一个被挂起的进程，两个会返回的进程
|
||
hand1 := sysExec(path, 'TSL', nil, array('wait': false, 'in': 'c := "333"\r\n'), code);
|
||
hand2 := sysExec(path, do_s1, nil, false, code);
|
||
hand3 := sysExec(path, do_s2, nil, false, code);
|
||
r := sysWaitForMultipleObjects(array(hand1, hand2, hand3), 0, 10 * 1000); // 仅需任意一个对象等待成功
|
||
t := sysexecreadpipe(); // 读取管道内容
|
||
sysTerminate(code, hand1); // 终止进程
|
||
sysTerminate(code, hand2); // 终止进程
|
||
sysTerminate(code, hand3); // 终止进程
|
||
return array(r, t);
|
||
返回: 返回为1，说明hand1没有等待成功，而至少hand2是有等待成功了。注：其中的TestEnv.tsl与TestEcho.tsf实现分别如下：TestEnv.tsl: sleep(500);t := Sysgetenvs();echo "sys: ", tostn(t), '\r\n';return 1;
|
||
test_echo.tsf: sleep(2 * 1000); // 停2秒echo 'TestEchoIN\r\n';return 1;
|
||
```
|
||
|
||
## `sysCreateMutex(mutex_name)`
|
||
|
||
声明：function
|
||
|
||
创建一个互斥锁。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------------ | ------ | ------------------ |
|
||
| `mutex_name` | string | 字符串，互斥锁名称 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 创建一个名称为tinysoft的互斥锁
|
||
ret := rdo2 sysCreateMutex("tinysoft");
|
||
return ret;
|
||
// 输出：2632
|
||
```
|
||
|
||
## `sysProcessId()`
|
||
|
||
声明：function
|
||
|
||
获得运行的进程ID。
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
{获得天软客户端程序当前的进程ID，即在任务管理器中查看到的进程对应的PID。每个电脑的进程不一样}
|
||
return rdo2 sysProcessId();
|
||
```
|
||
|
||
## `sysParamcount()`
|
||
|
||
声明：function
|
||
|
||
获得命令行参数个数。（不包括执行的自身.TSL参数）
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 本地test.tsl文件中代码如下：
|
||
test();
|
||
function test();
|
||
begin
|
||
// 获取命令行传入参数个数
|
||
echo sysParamcount();
|
||
end
|
||
// 在cmd中打开文件所在文件夹，输入命令：tsl test.tsl 1 2 3
|
||
```
|
||
|
||
## `sysThreadId()`
|
||
|
||
声明：function
|
||
|
||
获得运行的线程ID。
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 获得天软客户端程序当前的进程运行的线程ID
|
||
return rdo2 sysThreadId();
|
||
```
|
||
|
||
## `sysWaitForSingleObject(object, wait_ms)`
|
||
|
||
声明：function
|
||
|
||
等待占有一个对象,例如互斥对象。支持windows和linux的进程
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| --------- | ------- | ------------------------------------ |
|
||
| `object` | integer | 整数，对象名柄 |
|
||
| `wait_ms` | integer | 整数，等待的毫秒数，-1则为永远等待。 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
sysExecNewPipe(); // 创建管道
|
||
path := "D:\\TinySoftNG\\AnalyseNG.NET\\TSL.exe";
|
||
do_s := array('C:\\TinySoftNG\\AnalyseNG.NET\\tsl.exe', 'C:\\DoTSL\\otherTest\\TestEnv.tsl');
|
||
hand1 := sysExec(path, do_s, nil, array('wait': false, 'in': 'd := "123"\r\n'), code);
|
||
r := sysWaitForSingleObject(hand1, 10 * 1000); // 等待线程的状态
|
||
t := sysexecreadpipe(); // 读取管道内容
|
||
return array(r, t);
|
||
返回: 其中，TestEnv.tsl文件的实现如下： // 当前sys的环境变量t := Sysgetenvs();echo "sys: ",tostn(t),'\r\n';s := Readln();//读取echo 'IN:',s,'\r\n';return 1;
|
||
```
|
||
|
||
## `sysGetenvs()`
|
||
|
||
声明：function
|
||
|
||
获取当前运行环境的全部环境变量串。
|
||
|
||
返回：array of string
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 读取当前运行环境的所有环境变量
|
||
return sysGetenvs();
|
||
// 部分结果截图：
|
||
```
|
||
|
||
## `sysexecGetenvs()`
|
||
|
||
声明：function
|
||
|
||
获取子进程的环境变量，应用于Sysexec创建的子进程。
|
||
|
||
返回：array of string
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
sysExecSetEnvs(array("test=test", "test1=test1"), 2);
|
||
return sysexecGetenvs();
|
||
// 输出：
|
||
// array("test=test","test1=test1","ALLUSERSPROFILE=C:\\ProgramData","APPDATA=C:\\Users\\cobia\\AppData\\Roaming","CODEX_CI=1","CODEX_MANAGED_BY_NPM=1","CODEX_MANAGED_PACKAGE_ROOT=...
|
||
// 注：更多应用可参考Sysexecsetenvs
|
||
```
|
||
|
||
## `dbglocalcancel(id)`
|
||
|
||
声明：function
|
||
|
||
注销任务。该功能可以用来终止运行的WEB任务。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ---- | ------- | ----------------------------------------------------------------- |
|
||
| `id` | integer | 为dbglocalrunning中返回信息中的id字段以十六进制模式转换为64位整数 |
|
||
|
||
返回：bool
|
||
|
||
## `sysThreadSelf()`
|
||
|
||
声明：function
|
||
|
||
获取当前程序的线程ID。
|
||
|
||
返回：integer|int64
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 在客户端中，本地执行如下代码：
|
||
return sysThreadSelf();
|
||
// 返回值：线程ID，如11000
|
||
// 通过cmd查看天软客户端进程与线程，结果如下：
|
||
```
|
||
|
||
## `syslinuxkrnlclosemutex(name, isprivate)`
|
||
|
||
声明：function
|
||
|
||
支持在LINUX上手动删除掉因互斥支持产生的系统信号量以及临时目录的文件
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----------- | ------ | ------------------ |
|
||
| `name` | string | 字符串，互斥锁名称 |
|
||
| `isprivate` | bool | 是否私有 |
|
||
|
||
返回：any
|
||
|
||
## `sysSetThreadPriority(pri, tid)`
|
||
|
||
声明：function
|
||
|
||
设置线程优先级
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ------------------------------------------------ |
|
||
| `pri` | integer | 线程优先级 |
|
||
| `tid` | integer | 可选参数，线程ID。未指定时默认设置当前线程优先级 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：设置当前线程优先级
|
||
|
||
```tsl
|
||
ret := sysSetThreadPriority(1);
|
||
if ret=0 then
|
||
return 1;
|
||
else
|
||
return "设置线程优先级失败！";
|
||
// 输出：返回1，设置成功。
|
||
```
|
||
|
||
范例02：设置指定线程优先级
|
||
|
||
```tsl
|
||
// 创建函数指针
|
||
c := makeinstance(thisfunction(func_pos), "cdecl", 1);
|
||
// 创建线程
|
||
handle := CreateThread(nil, 10240000, c, nil, 0, tid);
|
||
ret := sysSetThreadPriority(1, tid);
|
||
if ret=0 then
|
||
return 1;
|
||
else
|
||
return "设置线程优先级失败！";
|
||
// 定义WindowsAPI的CreateThread函数声明。
|
||
function CreateThread(attr: pointer;size: pointer;addr: pointer;p: pointer;flag: integer;var threadid: integer): pointer;external "kernel32.dll" name "CreateThread";
|
||
// 自定义函数，用于创建函数指针
|
||
function FuncPos(p: pointer): integer;
|
||
begin
|
||
sleep(random(3000));
|
||
return 1;
|
||
end;
|
||
// 输出：返回1，设置成功。
|
||
```
|
||
|
||
## `sysGetThreadPriority(pri, tid)`
|
||
|
||
声明：function
|
||
|
||
获取线程优先级
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ------------------------------------------------------ |
|
||
| `pri` | integer | 变参，整数，线程优先级 |
|
||
| `tid` | integer | 整数，可选参数，线程ID。未指定时默认获取当前线程优先级 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前线程优先级
|
||
|
||
```tsl
|
||
ret := sysGetThreadPriority(pri);
|
||
if ret=0 then
|
||
return pri;
|
||
else
|
||
return "获取线程优先级失败！";
|
||
```
|
||
|
||
范例02：获取指定线程优先级
|
||
|
||
```tsl
|
||
tid := 18024; // 指定线程ID
|
||
ret := sysGetThreadPriority(pri, tid);
|
||
if ret=0 then
|
||
return pri;
|
||
else
|
||
return "获取线程优先级失败！";
|
||
```
|
||
|
||
## `sysGetThreadName(tid)`
|
||
|
||
声明：function
|
||
|
||
获取线程名称
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ---------------------------------------------------- |
|
||
| `tid` | integer | 整数，可选参数，线程ID。未指定时默认获取当前线程名称 |
|
||
|
||
返回：string
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前线程名称
|
||
|
||
```tsl
|
||
ret := sysGetThreadName();
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "获取线程名称失败！";
|
||
```
|
||
|
||
范例02：获取指定线程名称
|
||
|
||
```tsl
|
||
tid := 18024; // 指定线程ID
|
||
ret := sysGetThreadName(tid);
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "获取线程名称失败！";
|
||
```
|
||
|
||
## `sysGetThreads(pid)`
|
||
|
||
声明：function
|
||
|
||
获取进程内的线程列表
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ------------------------------------------------------------ |
|
||
| `pid` | integer | 整数，可选参数，进程ID。未指定时默认获取当前进程内的线程列表 |
|
||
|
||
返回：array,tablearray
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前进程内的线程列表
|
||
|
||
```tsl
|
||
ret := sysGetThreads();
|
||
return ret;
|
||
// 输出：
|
||
// array(52412,37192,19952,47976,46252,25228,13360,24792,33176)
|
||
```
|
||
|
||
范例02：获取指定进程内的线程列表
|
||
|
||
```tsl
|
||
// 打开记事本，在任务管理器中查找对应进程ID：
|
||
ret := sysGetThreads(2932);
|
||
return ret;
|
||
// 输出：
|
||
// array()
|
||
```
|
||
|
||
## `sysPPid(pid)`
|
||
|
||
声明：function
|
||
|
||
获得进程的父进程ID
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ---------------------------------------------------------- |
|
||
| `pid` | integer | 整数，可选参数，进程ID。未指定时默认获取当前进程的父进程ID |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前进程的父进程ID
|
||
|
||
```tsl
|
||
ret := sysPPid();
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "获取进程的父进程ID失败！";
|
||
```
|
||
|
||
范例02：获取指定进程的父进程ID
|
||
|
||
```tsl
|
||
// 打开记事本，在任务管理器中查找对应进程ID：
|
||
ret := sysPPid(28848);
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "获取进程的父进程ID失败！";
|
||
// 输出：
|
||
// 无输出。
|
||
```
|
||
|
||
## `sysPidOfTid(tid)`
|
||
|
||
声明：function
|
||
|
||
获取线程所属进程ID
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----- | ------- | ------------ |
|
||
| `tid` | integer | 整数，线程ID |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：获取当前线程所属进程
|
||
|
||
```tsl
|
||
tid := sysThreadId(); // 获取当前线程ID
|
||
ret := sysPidOfTid(tid);
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "获取线程所属进程ID失败！"
|
||
```
|
||
|
||
## `sysPidOfHandle(handle)`
|
||
|
||
声明：function
|
||
|
||
根据进程句柄获取进程ID。在Linux上，返回和进程句柄值相同的整数
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| -------- | ------- | -------- |
|
||
| `handle` | integer | 进程句柄 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：根据进程句柄获取进程ID
|
||
|
||
```tsl
|
||
// TSL解析器路径
|
||
path := "D:\\Program Files\\AnalyseNG.NET\\TSL.exe";
|
||
// 创建管道
|
||
ret := sysExecNewPipe();
|
||
// 创建一个TSL解析器进程
|
||
if ret then
|
||
handle := sysExec(path, "TSL", nil, 0, code); // 返回进程句柄
|
||
ret := sysPidOfHandle(handle);
|
||
sysTerminate(rc, handle); // 关闭TSL解析器进程
|
||
if ret then
|
||
return ret;
|
||
else
|
||
return "根据进程句柄获取进程ID失败！"
|
||
```
|
||
|
||
## `sysHandleOfPid(pid, rights, inherithandle)`
|
||
|
||
声明：function
|
||
|
||
Windows上获取进程id对应的句柄，Linux上获取指定文件ID的复制ID。得到的句柄可用函数FAQ：SysCloseHandle进行关闭。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| --------------- | ------- | ----------------------------------------------------------------------- |
|
||
| `pid` | integer | 整数，进程ID |
|
||
| `rights` | integer | 整数，可选参数，设置进程句柄权限，Linux上无效。常见的权限设置值见下表。 |
|
||
| `inherithandle` | integer | 布尔值，可选参数，是否继承，Linux上无效 |
|
||
|
||
常见权限值：
|
||
|
||
| 值 | 十进制值 | 访问权限 | 可操作范围 |
|
||
| -------- | -------- | ------------------------------------------- | ------------------------------------- |
|
||
| `0x0010` | 16 | PROCESS_VM_READ | 读取进程内存内容 |
|
||
| `0x0400` | 1024 | PROCESS_QUERY_INFORMATION | 查询完整进程信息（令牌、优先级等） |
|
||
| `0x1000` | 4096 | PROCESS_QUERY_LIMITED_INFORMATION（缺省值） | 仅查询进程基础信息（PID、退出代码等） |
|
||
| `0xFFFF` | 65535 | PROCESS_ALL_ACCESS | 所有权限（包括终止、内存写入等） |
|
||
|
||
返回：integer
|
||
|
||
## `sysGetLastError()`
|
||
|
||
声明：function
|
||
|
||
获得系统操作的最后一个返回代码。
|
||
|
||
返回：integer
|
||
|
||
## `sysCmdLine()`
|
||
|
||
声明：function
|
||
|
||
获得解析器的真实命令行串。
|
||
|
||
返回：string
|
||
|
||
## `sysTerminate(ret_code, handle)`
|
||
|
||
声明：function
|
||
|
||
终止进程。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ---------- | ------- | ------------------------------------------ |
|
||
| `ret_code` | integer | 整数，终止进程返回的代码。 |
|
||
| `handle` | integer | 整数，终止进程的句柄。缺省为终止自身进程。 |
|
||
|
||
返回：any
|
||
|
||
## `sysCloseHandle(handle)`
|
||
|
||
声明：function
|
||
|
||
关闭一个句柄，如互斥锁，文件句柄等。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| -------- | ------- | -------------- |
|
||
| `handle` | integer | 整数，句柄编号 |
|
||
|
||
返回：bool
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 启动windows平台下的windows命令处理程序，然后关闭启动该程序时返回的句柄
|
||
tool_path := "C:\\Program Files\\Windows Media Player";
|
||
ret := rdo2 sysExec(tool_path+"\\wmplayer.exe", "D:\\test1\\when_ever.mp3", tool_path, 1, returncode);
|
||
ret1 := rdo2 sysCloseHandle(ret);
|
||
return ret1;
|
||
// 输出：1
|
||
```
|
||
|
||
## `dbglocalrunning()`
|
||
|
||
声明：function
|
||
|
||
获得当前所有的任务列表以及堆栈信息，主要用于web等检查在运行中的任务。
|
||
|
||
返回：array,tablearray
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 在本地脚本中运行下面代码：
|
||
t := dbglocalrunning();
|
||
echo toStn(t);
|
||
return 1;
|
||
// 打印信息如下：
|
||
array(
|
||
("StartInfo":
|
||
("id": "000001b9b8e30440", "info": "C:\\Users\\xxxxx\\Tinysoft\\Analyse.NET\\editer\\cmpCachesnewfile\\new12.tsl", "createtm": 45602.6995526042), "CallStack":
|
||
(
|
||
("NAME": "__main__", "USER": "local", "LINE": 3))))
|
||
```
|
||
|
||
## `sysGetProcessList()`
|
||
|
||
声明：function
|
||
|
||
获取当前进程列表信息
|
||
|
||
返回：array,tablearray
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
ret := sysGetProcessList();
|
||
if ret<>0 then
|
||
return ret;
|
||
else
|
||
return "当前进程列表信息失败！";
|
||
// 部分结果如下：
|
||
```
|
||
|
||
## `sysGetProcessListw()`
|
||
|
||
声明：function
|
||
|
||
获取当前进程列表信息，信息中字符串为宽字节字符串
|
||
|
||
返回：array,tablearray
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
ret := sysGetProcessListw();
|
||
if ret<>0 then
|
||
return ret;
|
||
else
|
||
return "当前进程列表信息失败！";
|
||
// 部分结果如下：
|
||
```
|
||
|
||
## `sysGetWndOfCaption(cap, is_contain_string)`
|
||
|
||
声明：function
|
||
|
||
获得所有标题窗口串包含或者等于指定串的所有窗口句柄。
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------------------- | ------ | ---------------------------------------------- |
|
||
| `cap` | string | 字符串，窗口的标题。 |
|
||
| `is_contain_string` | | 布尔类型，是否包含，可选参数参数，默认是包含。 |
|
||
|
||
返回：array of hwnd
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 获取标题是”test.docx”的窗口句柄。
|
||
v := sysGetWndOfCaption("test.docx");
|
||
echo v;
|
||
```
|
||
|
||
## `sysGetPidtidOfWnd(wnd, thread_id)`
|
||
|
||
声明：function
|
||
|
||
获得窗口句柄的进程ID, 通过ThreadId可输出线程id
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ----------- | ------- | ------------------------------------------------ |
|
||
| `wnd` | hwnd | 整型，窗口句柄。 |
|
||
| `thread_id` | integer | 输出值，整型，线程号，给定该参数可以获取线程ID。 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
```tsl
|
||
// 获取标题是”test.docx”的窗口的word的进程ID。
|
||
// 获取标题是”test.docx”的窗口句柄
|
||
wnd := sysGetWndOfCaption("test.docx");
|
||
// 通过窗口句柄获得进程ID
|
||
v := sysGetPidtidOfWnd(wnd[0]);
|
||
echo v;
|
||
```
|
||
|
||
## `sysSetThreadName(name, tid)`
|
||
|
||
声明：function
|
||
|
||
设置线程名称
|
||
|
||
| 参数 | 类型 | 说明 |
|
||
| ------ | ------- | ---------------------------------------------------- |
|
||
| `name` | string | 字符串，要设置的名称 |
|
||
| `tid` | integer | 整数，可选参数，线程ID。未指定时默认设置当前线程名称 |
|
||
|
||
返回：integer
|
||
|
||
### 示例
|
||
|
||
范例01：设置当前线程名称
|
||
|
||
```tsl
|
||
ret := sysSetThreadName("TinySoft");
|
||
if ret=0 then
|
||
return 1;
|
||
else
|
||
return "设置线程名称失败！";
|
||
// 输出：返回1，设置成功。
|
||
```
|
||
|
||
范例02：设置指定线程名称
|
||
|
||
```tsl
|
||
// 创建函数指针
|
||
c := makeinstance(thisfunction(func_pos), "cdecl", 1);
|
||
// 创建线程
|
||
handle := CreateThread(nil, 10240000, c, nil, 0, tid);
|
||
ret := sysSetThreadName("TinySoft", tid);
|
||
if ret=0 then
|
||
return 1;
|
||
else
|
||
return "设置线程名称失败！";
|
||
// 定义WindowsAPI的CreateThread函数声明。
|
||
function CreateThread(attr: pointer;size: pointer;addr: pointer;p: pointer;flag: integer;var threadid: integer): pointer;external "kernel32.dll" name "CreateThread";
|
||
// 自定义函数，用于创建函数指针
|
||
function FuncPos(p: pointer): integer;
|
||
begin
|
||
sleep(random(3000));
|
||
return 1;
|
||
end;
|
||
// 输出：返回1，设置成功。
|
||
```
|