话说不知道楼主要实现这个有什么意义呢?
1.通过进程名获取路径:(QQ必须被打开,且不能改名字。)#Include <WinAPIEx.au3>
$Pid = ProcessExists("QQ.EXE")
MsgBox(0,0,_WinAPI_GetModuleFileNameEx($pid))
2.全盘搜索方法:QQ不能改名字 我的电脑6个盘符,320G,使用了60G,搜索花费时间:52秒)#include <File.au3>
$var = DriveGetDrive( "all" );所有盘符名称
If NOT @error Then
For $i = 1 to $var[0]
_Filefind($var[$i]);针对每个盘符进行搜索
Next
EndIf
Func _Filefind($_Path)
$folder = _FileListToArray($_Path, "*", 2);找文件夹
If Not IsArray($folder) Then Return 0
For $i = 1 To $folder[0]
$newPath = $_Path & "" & $folder[$i]
$file = _FileListToArray($newPath, "QQ.EXE", 1);找QQ.EXE
If @error = 0 Then
MsgBox(0,0,$newPath) ;满足条件的文件的路径
;ShellExecute($newPath&"\QQ.EXE",0);打开此文件
Else
_Filefind($newPath);当前目录下找不到再继续其它路径找
EndIf
Next
EndFunc
|