procedure TForm1.Button1Click(Sender: TObject);
var
Filename:String;
begin
opendialog1.filter:='所有文件(*.*)|*.*';
Opendialog1.InitialDir:=extractfilepath(application.exename);
if Opendialog1.Execute then
begin
FileName:=OpenDialog1.FileName;
OleContainer1.CreateObjectFromFile(FileName,False);
OleContainer1.Run;
end;
end;