论坛 › 『 软件安装 』 › 注册表立即刷新工具AU3

5238869 发表于 2011-11-10 14:28:04

注册表立即刷新工具AU3

Func _ProcessGetName( $i_PID )
If Not ProcessExists($i_PID) Then
   SetError(1)
   Return ''
EndIf
Local $a_Processes = ProcessList()
If Not @error Then
   For $i = 1 To $a_Processes
   If $a_Processes[$i] = $i_PID Then Return $a_Processes[$i]
   Next
EndIf
SetError(1)
Return ''
EndFunc
Func _ProcessGetPriority($vProcess)
    Local $i_PID = ProcessExists($vProcess)
    If Not $i_PID Then
          SetError(1)
          Return -1
    EndIf
    Local $hDLL = DllOpen('kernel32.dll')
    Local $aProcessHandle = DllCall($hDLL, 'int', 'OpenProcess', 'int', 0x0400, 'int', False, 'int', $i_PID)
    Local $aPriority = DllCall($hDLL, 'int', 'GetPriorityClass', 'int', $aProcessHandle)
    DllCall($hDLL, 'int', 'CloseHandle', 'int', $aProcessHandle)
    DllClose($hDLL)
    Switch $aPriority
          Case 0x00000040
               Return 0
          Case 0x00004000
               Return 1
          Case 0x00000020
               Return 2
          Case 0x00008000
               Return 3
          Case 0x00000080
               Return 4
          Case 0x00000100
               Return 5
          Case Else
               SetError(1)
               Return -1
    EndSwitch

EndFunc
Func _RunDOS($sCommand)
Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc
$rc = _RunDos("gpupdate /force /wait:100")
Exit

uxuuexqyxwk 发表于 2011-11-10 15:47:39

有人用过嘛,试试效果.....................

sxs2 发表于 2011-11-28 14:24:05

真的吗？试一下

au3x 发表于 2011-12-5 16:03:14

等我有空就 试一下，

pingfan5888 发表于 2011-12-13 03:09:20

不管用。。

yorker0503 发表于 2012-7-28 01:15:48

试一下！！！

5209520 发表于 2012-8-2 09:46:47

谢谢分享学习一下

qdhjysd 发表于 2018-11-4 07:21:16

谢谢分享学习一下

查看完整版本: 注册表立即刷新工具AU3