请问：打开一个程序和关闭一个程序的API函数是什么？(50分)

delpher2003 · 2004-04-01

或用Delphi怎样实现？

_delphi · 2004-04-01

winexec('abc.exe', SW_SHOWNORMAL); //启动指定的可执行程序

_delphi · 2004-04-01

//关闭应用程序 procedure TMainForm.FormDestroy(Sender: TObject); var   str: string;   hWndClose: HWnd; //存储指定的外部应用程序窗口句柄 begin   str := '应用程序窗口名';       if str <> '' then       begin         //根据窗口名查找要关闭的窗口句柄         hWndClose := FindWindow(nil, PChar(str));         if hWndClose <> 0 then //如果查找成功，则发送消息，关闭指定的窗口           SendMessage(hWndClose, WM_CLOSE, 0, 0)         else //否则，给出提示信息           ShowMessage('没找到指定的应用程序，所以无法关闭！');       end; end;

dywapple · 2004-04-01

shellexecute(); 具体请查看delphi的帮助

app2001 · 2004-04-01

打开程序用ShellExecute更好,在USES段加入SHELLAPI,使用时如:    执行"c:/myapp/myapp.exe"参数为"-s"    ShellExecute(handle,'open','c:/myapp/myapp.exe','-s','',SW_SHOWNORMAL);    第一个参数为父窗口句柄;    第二个参数为打开方式(OPEN,PRINT两种);    第三个参数为执行文件全路径;    第四个参数为执行文件参数;    第五个参数为执行文件开始运行时的初始目录;    第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE, SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL);    具体请看帮助。另外,如果为字符串参数,其中包含变量或运算的必需用PCHAR()函数 关闭程序 procedure TForm1.Button36Click(Sender: TObject); const   PROCESS_TERMINATE=$0001; var   ExeFileName: String;   ContinueLoop: BOOL;   FSnapshotHandle: THandle;   FProcessEntry32: TProcessEntry32; begin   ExeFileName := 'program.exe';//你要结束的程序名称！   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);   ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);   while integer(ContinueLoop) &lt;&gt; 0 do     begin     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =          UpperCase(ExeFileName))      or (UpperCase(FProcessEntry32.szExeFile) =          UpperCase(ExeFileName))) then       TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),                         FProcessEntry32.th32ProcessID), 0);     ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);     end; end;

怡.梦 · 2004-04-01

http://www.yesky.com/20010913/196451.shtml

风易 · 2004-04-01

如:       // 运行记事本。      WinExec('NotePad',SW_RESTORE);        // 获取“记事本”窗口句柄。     HWndCalc:= FindWindow(nil, '未定标题 - 记事本');       if HWndCalc <> 0 then          SendMessage(HWndCalc, WM_CLOSE, 0, 0);

boy_505 · 2004-04-02

在Delphi打开外部文档 //================================ 先引用(Uses)ShellApi procedure TForm_main.dxBarButton41Click(Sender: TObject); var   Sfilename : string; begin     //取得文件路径   Sfilename := ExtractFilePath(paramstr(0)) + 'hr.chm' ;    // 调用Window的一个API函数（ShellExecute），最大化（SW_MAXIMIZE）打开hr.chm   ShellExecute(Handle,'open', PChar(Sfilename), '','',SW_MAXIMIZE); end;

boy_505 · 2004-04-02

[

][

] 关闭就按三楼的做：——）

xuhao1 · 2004-04-02

打开程序使用ShellExecute，具体用法见Delphi帮助或MSDN，例如： ShellExecute(handle,'open','c:/a.exe','','',SW_SHOWNORMAL); 关闭程序使用： SendMessage(handle, WM_CLOSE, 0, 0);  //Handle 为窗口句柄

zhaohui2003xian · 2004-04-02

打开可用winexec / shellexecute / createprocess 关闭可用findwindow /EnumWindows找到handle,再sendmessage发送 wm_close给handle

请问：打开一个程序和关闭一个程序的API函数是什么？(50分)

delpher2003

Unregistered / Unconfirmed

_delphi

Unregistered / Unconfirmed

_delphi

Unregistered / Unconfirmed

dywapple

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

怡.梦

Unregistered / Unconfirmed

风易

Unregistered / Unconfirmed

boy_505

Unregistered / Unconfirmed

boy_505

Unregistered / Unconfirmed

xuhao1

Unregistered / Unconfirmed

zhaohui2003xian

Unregistered / Unconfirmed

Similar threads