请问在一个工程button中怎么调用另工程

[maledi]

请说的详细些,我是初学,谢谢!

[creternal]

问题说清楚一些！
工程名是button还是工程中有一个button控件.

[ayukowa]

procedure Tform1.gongchengclick(Send:Tobject);
begin
shellexecute(handle,'open','文件名'，nil,nil,sw_shownormal);
end;
或者

procedure Tform1.gongchengclick(Send:Tobject);
begin
winexec('文件名',sw_show)
end;