5
是否有任何函數(在Delphi中)可以給出環境變量Path中某個路徑中文件的完整路徑和名稱,例如:環境變量路徑中的文件搜索「路徑」
Fn: = FindFileEnv ('my.dll', EnvPath);
返回例如
Fn = 'c:\windows\system32\my.dll'
是否有任何函數(在Delphi中)可以給出環境變量Path中某個路徑中文件的完整路徑和名稱,例如:環境變量路徑中的文件搜索「路徑」
Fn: = FindFileEnv ('my.dll', EnvPath);
返回例如
Fn = 'c:\windows\system32\my.dll'
呼叫SearchPath。
謝謝,都賺了!函數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