请问获取和文件相关联的程序的函数FindExeCutable()的用法?(100分)

请问获取和文件相关联的程序的函数FindExeCutable()的用法?请给一个实例代码,谢谢....

uses ShellAPI;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp;Buff:array[0..1023]of Char;<br>begin<br>&nbsp;if FindExecutable('简介.doc','G:/My Documents/My Text',Buff)=42 then<br>&nbsp;ShowMessage(StrPas(@Buff));<br>end;<br><br>执行时，这个文件“简介.doc”必须已经由将要返回的程序( 名称在 Buff 中返回 )打开。

gz

小雨哥 真的很感谢你!!