hapon 发表于 2009-12-11 10:41:48

如何得到进程文件EXE的目录路径？

本帖最后由 hapon 于 2009-12-11 10:57 编辑

才学习AU3，请高手勿笑。
如题，是目录路径，非全路径。如c:\install\setup.exe，要得到c:\install\这个目录路径。
另外本论坛的QQ群号是多少呢，想讨教学习。

;检测插件安装目录
$var_rzxsurename = ProcessList("rzxsurename.exe")
for $i = 1 to $var_rzxsurename
      ;MsgBox(64,"进程信息(API)","进程路径是："&Processpath($var_rzxsurename[$i]))
$var_rzxsurename2=Processpath($var_rzxsurename[$i])               
        next

Func Processpath($iPID)
;通过API获取指定PID的进程路径
    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If $aProc = 0 Then Return SetError(1, 0, '')
    Local $vStruct = DllStructCreate('int')
    DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc, 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
    Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc, 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
    If StringLen($aReturn) = 0 Then Return SetError(2, 0, '')
    Return $aReturn
EndFunc

;删除卡数据库
If FileExists("&$变量\alllostinfo.dat") Then
        FileDelete("&$变量\alllostinfo.dat")
        MsgBox(48,"卡解封","解封成功。如再提示被禁用，请再运行此程序。",20)
        Exit
EndIf

顽固不化 发表于 2009-12-11 11:00:02

http://www.autoitx.com/forum.php?mod=viewthread&tid=3899&highlight=%BD%F8%B3%CC

hapon 发表于 2009-12-11 11:19:39

谢谢。
但是我不是要的这种全路径呢，只要目录名。

ajian55 发表于 2009-12-11 19:46:35

本帖最后由 ajian55 于 2009-12-11 19:50 编辑

如果是自身的目录名，同样有一个宏，去宏那里找找。而且你已经获取了全名，用一个字符串函数也可以得到目录名啊。

afan 发表于 2009-12-11 21:30:07

$a = 'c:\install\setup.exe'
Msgbox(0, 0, StringRegExpReplace($a, '(.+\\)[^\\]+', '\1'))

hapon 发表于 2009-12-12 01:48:02

收到，谢谢，好多函数都不知道。
页: [1]
查看完整版本: 如何得到进程文件EXE的目录路径？