如何把不同的几个delphi程序合并为一个工具集？

如果仅仅是实现你所说的功能而没其他要求的话，还是比较简单的，只需要你在每个按钮下写几行几乎相同的代码就行了。如果定义一个过程，那么就更简单了。每个按钮下只需要一行代码。

关键是调用一个执行外部应用程序的函数：这样的函数比较多，你在搜索引擎里搜“Delphi 如何调用外部程序”会给你很多参考的。我这里用

WinExec()函数来实现。你也可以用其他的。

先定义一个过程:

procedure MyTools(ToolPathAndName: stringWindowState: string)

begin

WinExec(ToolPathAndName,WindowState)

end

然后在每个按钮下输入这行代码就可以了：

MyTool('（1）','(2)')

注：(1)处为该按钮要打开的你工具的路径和名称，可以用绝对和相对路径，如绝对路径：C:\我的记事本.exe,相对路径:mytools\我的记事本.exe(建议你用相对路径这样，你的整个程序放到别人的电脑上，只要相对路径不变几不会出问题)

(2)处为你想打开的程序的窗口状态你可以默认设置为:"SW_SHOWNORMAL"（普通大小)，也可源激以最大化，最小化，界于你是在程序里调用，我觉得就"SW_SHOWNORMAL"就行了。

如果还有什么问题的话，可以给我发消息。我第一时雹凯袜间回答你。

你甚至可以把你那些工具的名字给我，我给你做一演示程序都行。

【补充】：演示程序我已经做好了，如果你愿意孙昌的话，你把你的邮箱给我，我给你发过来。

把想要添加的Unit从原来的工程中移出：步骤是Project-Romove from Project选中局闷Unit点击OK.打开另一个工程：步骤是Project-Add from Project.选中Unit点击OK就行了~

但是我不明白桐雹弯这个是否能帮到你。 这个只是将功能模块合并。 如果是两个delphi工程。 简单的就是外部调用，就是调用别人的程序一样。这种是两个程序完全不搭界只是相当于一个简单的点击调用。若是整合，相互之间有肆轮数据等传输的话，你就需要将他们的功能模块拿过来 自己再写接口了。。

行了~ 我明白你的意思了~ 你的意思是把多个工程浓缩成一个可用的工程~ 这应该重新编译~ 其实 ~ 你可以新建一个工程~ 然后把其他所有工程的 文件放在一个目录下~ 然后用 工程-添加到工程 将其他工程里的文件全部添加到 你现在的工程中~ 新建一御桥晌个窗体~ 成为你当前的主窗体~ 因为，你事先已经设置好了其他的工程~ 那么~ 你就在把 新的主窗体设计好了后~ 用Create的办法镇锋打开 以前的那些工程中的主窗体~ 这样所有消备的文件就成了一个Exe了吗？

---