如何实现根据不同的文件后缀名，打开相对应的应用程序？？

Question

例如：111.doc文件，它就打开word应用程序。

Answer 1

uses
  ShellAPI;...
ShellExecute(Handle, 'open', 'c:\111.doc', '', '', SW_NORMAL);

Answer 2

引用shellapi单元，用shellexecute函数打开。
shellexecute(handle,nil,文件名,nil,nil,sw_shownormal);
其中“文件名”就有自己给出，如果是变量请用pchar函数：
shellexecute(handle,nil,pchar(变量),nil,nil,sw_shownormal);

Answer 3

ShellExecute(handle, 'Open', PCHar(FileName), '', '', SW_SHOWNORMAL);

Answer 4

除了SHELL，用OLE，WEBBROWSER也可以得到你要的结果

Answer 5

支持：ShellExecute(handle, 'Open', PCHar(FileName), '', '', SW_SHOWNORMAL);

Answer 6

谢谢大家！
我采用了 zzh54zzh的方法。
结案！