如何在一个应用程序中调用另一个应用程序??

Question

winexec "程序名"
具体看帮助

Answer 1

你也可用shellexecute函数来实现.windows sdk 帮助里有说明.

Answer 2

UINT WinExec(LPCSTR lpCmdLine, // address of command line 
    UINT uCmdShow  // window style for new application );

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(LPCSTR lpCmdLine, // address of command line
    UINT uCmdShow  // window style for new application );
end;

Answer 4

使用外部调用shallexec函数，具体参数可以查delphi帮助

Answer 5

var
HWndCalculator : HWnd;
begin
// find the exist calculator window
HWndCalculator := FindWindow(nil, '计算器'); // close the exist Calculator
if HWndCalculator <> 0 then 
   SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
   ShellExecute(Handle,'Open','calc.exe','','',SW_SHOW);
end;
或
winexec（'C:\WINNT\system32\calc.exe',sw_show）