用WMI很简单的。
这是VBS的脚本。。。。在BCB里用WMISET控件很容易实现的。
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("select * from CIM_DataFile where drive = 'D:' and Extension = 'exe'")
For Each objItem in colItems
Wscript.Echo "FileName: " & objitem.Name
Next