如何调用一个自己写的程序(50分)

gutian · 2001-12-30

我想在程序中把另外一各程序运行，同时把自己关闭。该如何做

coolbaby · 2001-12-30

ShellExcute(other app...); application.terminate;

卷起千堆雪tyn · 2001-12-30

uses ShellAPI; ShellExecute(GetDesktopWindow, 'open', '调用的程序路径', nil, nil, 0);

gutian · 2001-12-30

ShellExecute(GetDesktopWindow, 'open', pchar(FileName), nil, nil, 0); 一点效果都没有。 我的程序是一个用于通过网络自动升级的，在download完新程序后，在升级程序中运行我的 程序，然后把升级程序关闭。 但是无论如何都不能把我的程序运行起来，直接双击是可以的。

free_knight · 2001-12-30

uses WinProcs;    .....   begin     WinExec(......);   ..........   end.   和调用Pascal库函数没什么两样。     例如： WinExec('c:/windows/calc.exe',SW_SHOWNORMAL); //启动计算器 函数原型为: UINT WinExec( LPCSTR lpCmdLine, // address of command line UINT uCmdShow // window style for new application );

gutian · 2001-12-30

WinExec 绝对是不行的，没有反应

gutian · 2001-12-30

不对，我刚才实验过，好像我用以上的函数调用外部程序是可以的，就是调用这个程序不行 而我通过双击又是可以的

gutian · 2001-12-30

发现一个更奇怪的问题了，只要是我通过网络下载的话，程序就不能自动运行起来，而 文件的大小没有变化

zlt · 2001-12-30

你DownLoad下来的Program是否完整，有没奖以前的程序防到另一路径！

gutian · 2001-12-30

文件大小是一样的亚

gutian · 2001-12-30

包括字节数

iseek · 2001-12-30

实现打开文件 打开Windows已经注册的文件其实很简单，根据以下代码定义一个过程： procedure URLink(URL

Char); begin ShellExecute(0, nil, URL, nil, nil, SW_NORMAL); end; 在要调用的地方使用 URLink('Readme.txt'); 如果是链接主页的话，那么改用 URLink('http://gui.yeah.net');

gutian · 2001-12-30

iseek看看前面的回答，不要乱说。呵呵

iseek · 2002-01-01

gutian,我这样做行啊，当你运行了一个程序后，再close自己怎么不行？ 那一段只是我从硬盘上拽的一个例子。 不过，我的确没有看清楚是要启动一个不带参数的exe。URLink是启动一个默认打开某类 文件的关联程序。你完全可以把它仅仅看作一个思路，你说对么。 呵呵，不要轻易说人乱说，我也可以说你乱说啊。 关键看答题的人是真心还是捣乱。难道这儿不允许答错么？ 其实你提的这些问题以前肯定有答案，就不能自个儿去找找么？ 我再贴一帖： ======================================================== 执行外部程序 var    pWindowsList: pointer;    hActiveWindow: HWnd;    hExeHandle: THandle; begin    pWindowsList := DisableTaskWindows(0);    hActiveWindow := GetActiveWindow;    try       hExeHandle := WinExec('arj.exe /?',SW_SHOWNORMAL);       while GetModuleUsage(hExeHandle) <> 0 do       Application.ProcessMessages;    finally       EnableTaskWindows(pWindowsList);       SetActiveWindow(hActiveWindow);    end; end; ================================================ 但愿你不要再说我乱说。呵呵。

影 子 · 2002-01-01

似乎在WIN2000上调用DOS命令得不到结果。 例如COPY命令，除非生成一个批处理的文件并执行它，再删除该批处理文件。 关闭程序(没测试过，应该可以的吧)： halt(要注意资源释放) Application.Terminate 向主窗口发送WM_CLOSE消息

power_alan · 2002-01-02

应该是WINDOWS有问题，换台机子试试吧!

gutian · 2002-01-03

谢谢各位，这两天不在单位，回去试一试告诉各位结果，祝各位节日快乐

gutian · 2002-01-04

各位都错了，不行！！！！！！！

iseek · 2002-01-04

不会吧，我的程序里就有调用外部程序的片断呀。 关掉一个知道文件名也知道路径的程序应该是很简单的。 即使不知道，也可能杀掉线程。 楼上的DFW要不来段完整的例子？

gutian · 2002-01-04

如果仅仅是调用的话就没有这么多烦恼了，问题是我是用indy先下载（从iis），然后再 调用就不行了呀

如何调用一个自己写的程序(50分)

gutian

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

free_knight

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

zlt

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

影 子

Unregistered / Unconfirmed

power_alan

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

gutian

Unregistered / Unconfirmed

Similar threads

影子