程序_延时_内核

乐易论坛

程序_延时_内核

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 程序_延时_内核 <公开 静态 类型 = 逻辑型 注释 = "不占用cpu，窗口不卡死，不影响其它代码执行" @禁止流程检查 = 真 @输出名 = "SleepByNt">
   
4. 参数 参_延时间隔 <类型 = 整数 注释 = "1000毫秒 = 1秒  留空为不等待" @默认值 = -1>
   
5. {
   
6.     变量 局_真实时间 <类型 = 长整数 @输出名 = "dwMilliseconds">
   
7.     @ typedef INT_P (WINAPI* ZwDelayExecution)(
   
8.     @ BOOL  bAlertable,
   
9.     @ PLARGE_INTEGER dwMilliseconds
   
10.     @ );
    
11.     @ HMODULE timeNTDLL = GetModuleHandle(L"ntdll"); //取出NTDLL的句柄
    
12.     @ ZwDelayExecution pZwDelayExecution = (ZwDelayExecution)::GetProcAddress(timeNTDLL, "ZwDelayExecution");
    
13.     局_真实时间 = -参_延时间隔 * 10000
    
14.     @ return pZwDelayExecution(false,(PLARGE_INTEGER)&dwMilliseconds) == 0;
    
15. 
    
16. }
    

复制代码

yuangao

程序_延时_内核 (5000)
// 界面延时 (5000)
标签1.标题 = "不卡死"

貌似窗口也卡住的， 新手还请谅解。

Xelloss0618

yuangao 发表于 2024-9-15 22:28
程序_延时_内核 (5000)
// 界面延时 (5000)
标签1.标题 = "不卡死"

Sleep （普通延时）函数的实现会调用到 ZwDelayExecution，所以这玩意的作用根本不是界面延时。

yuangao

Xelloss0618 发表于 2024-9-15 22:37
Sleep （普通延时）函数的实现会调用到 ZwDelayExecution，所以这玩意的作用根本不是界面延时。 ...

感谢，大佬的解释。

乐易论坛

yuangao 发表于 2024-9-15 22:28
程序_延时_内核 (5000)
// 界面延时 (5000)
标签1.标题 = "不卡死"

这个不卡死的的说法 是从易语言的延时 延伸过来的 主要指的是 不暂停程序运行..:噜阿噜 备注啥的 直接复制的 懒得改了...

yuangao

乐易论坛 发表于 2024-9-15 23:48
这个不卡死的的说法 是从易语言的延时 延伸过来的 主要指的是 不暂停程序运行..:噜阿噜 备注啥的 直接复 ...

好，好，明白

ziyoulang168

论坛里的这个复制代码不能用,请后台调配下@飞翔的企鹅