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

发布网友发布时间：2022-05-18 08:44

共2个回答

热心网友时间：2023-10-12 17:06

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

热心网友时间：2023-10-12 17:07

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;

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