讨 讨饭秀才 Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #1 如何在程序中启动一个外部程序,如 a.exe,如a.exe已启动，就不再启动它
S shanys Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #2 用ShellExcute函数可执行外部程序。 ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL)
讨 讨饭秀才 Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #3 问题是如a.exe已启动，就不再启动它,how to do?
W weihang Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #4 深度历险好象有例子 http://vcl.vclxx.com
W wangjerry Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #5 var handle: integer; begin handle := FindWindow(nil,'无标题 - 记事本'); if handle <> 0 then begin messagebox(0, '该程序已经有一个在运行中！', '运行', 0); {提示程序已运行} end else WinExec('notepad.exe', SW_SHOW);
var handle: integer; begin handle := FindWindow(nil,'无标题 - 记事本'); if handle <> 0 then begin messagebox(0, '该程序已经有一个在运行中！', '运行', 0); {提示程序已运行} end else WinExec('notepad.exe', SW_SHOW);
