Question

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

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

比如说 我有个写好的记事本，计算器，时钟，我怎么才能把他们集成在一个新创建的Mainform里面，可以点新创建的 主界面上的 不同按钮 就可以进入相应的小程序？
谢谢~ 请尽量说的详细一些~

我才刚刚入门，记事本之类的小程序是我下载的。

若哪位大侠帮我解决了，再追加50分，以示诚意~
再次谢过！！！！！！！！
太谢谢了~ 我的邮箱是 xly603@163.com~

Answer 1

如果仅仅是实现你所说的功能而没其他要求的话，还是比较简单的，只需要你在每个按钮下写几行几乎相同的代码就行了。如果定义一个过程，那么就更简单了。每个按钮下只需要一行代码。
关键是调用一个执行外部应用程序的函数：这样的函数比较多，你在搜索引擎里搜“Delphi 如何调用外部程序”会给你很多参考的。我这里用
WinExec()函数来实现。你也可以用其他的。
先定义一个过程:
procedure MyTools(ToolPathAndName: string;WindowState: string);
begin
WinExec(ToolPathAndName,WindowState);
end;
然后在每个按钮下输入这行代码就可以了：
MyTool('（1）','(2)');
注：(1)处为该按钮要打开的你工具的路径和名称，可以用绝对和相对路径，如绝对路径：C:\我的记事本.exe,相对路径:mytools\我的记事本.exe(建议你用相对路径这样，你的整个程序放到别人的电脑上，只要相对路径不变几不会出问题)
(2)处为你想打开的程序的窗口状态你可以默认设置为:"SW_SHOWNORMAL"（普通大小)，也可以最大化，最小化，界于你是在程序里调用，我觉得就"SW_SHOWNORMAL"就行了。
如果还有什么问题的话，可以给我发消息。我第一时间回答你。
你甚至可以把你那些工具的名字给我，我给你做一演示程序都行。
【补充】：演示程序我已经做好了，如果你愿意的话，你把你的邮箱给我，我给你发过来。

Answer 2

Function File_ShellOpen(Const aFile: String): Boolean;
Var
Tmp: Array[0..100] Of char;
Begin
Result := ShellExecute(Application.Handle,
'open', StrPCopy(Tmp, aFile), Nil, Nil, SW_NORMAL) > 32;
End;

你可以放按钮,通过调用上面函数实现你需要的功能
函数的参数是你存放的工具的路径.