2011-05-07 176 views
5

是否有任何函数(在Delphi中)可以给出环境变量Path中某个路径中文件的完整路径和名称,例如:环境变量路径中的文件搜索“路径”

Fn: = FindFileEnv ('my.dll', EnvPath); 

返回例如

Fn = 'c:\windows\system32\my.dll' 

回答

5

呼叫SearchPath

+0

谢谢,都赚了!函数EnvFNS(Fn:string):string; var SPPath:字符数组[0..255]; PathPtr:PChar;如果SearchPath(nil,PChar(Fn),nil,255,SPPath,PathPtr)> 0,则结​​果:= StrPas(SPPath)else结果:= Fn; 结束; ////使用:Showmessage(EnvFNS('notepad.exe')); – 2011-05-08 01:40:15