怎么在DELPHI程序中执行其它程序？
我想在DELPHI中通过单击按钮，能够执行如记事本之类的window应用程序。不知该如何做，最好有简单例子？ 问题点数：100、回复次数：9Top
1 楼cndebug（A-wu）回复于 2002-05-21 08:53:10 得分 30
WinExec('path/filename');
记得uses 里加上shellapi单元就可以了！Top
2 楼kesa（凯萨）回复于 2002-05-21 08:54:01 得分 30
var
NowHandle:HWND;
winTitle:array [0..255] of char;
nowPos:integer;
begin
winexec(你想打开的应用程序,SW_NORMAL);
Nowhandle:=Getwindow(handle, GW_HWNDFIRST);
while NowHandle<>0 do begin
GetwindowText(Nowhandle,winTitle,255);
nowpos:=pos('',trim(string(wintitle)));
if NowPos<>0 then begin
setwindowpos(Nowhandle,HWND_TOP,0,0,500,500, SWP_SHOWWINDOW );
exit;
end
else begin
NowHandle:=GetWindow(NowHandle,GW_HWNDNEXT);
end;
end;
end;
Top
3 楼dancemaple（枫之舞）回复于 2002-05-21 08:54:26 得分 0
ShellExcuteTop
4 楼nne998（☆☆☆☆☆☆☆伴月）回复于 2002-05-21 08:54:44 得分 10
WinExec('NotePad.exe',1);Top
5 楼cndebug（A-wu）回复于 2002-05-21 08:54:59 得分 0
WinExec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);
注意对应参数Top
6 楼wolfAone（30，奋斗成男人）回复于 2002-05-21 08:56:26 得分 10
ShellExecute(Handle,'Open','Notepad.exe',Nil,NIl,SW_ShowNormal);
同样别忘了ShellAPI单元Top
7 楼lyq（阿飞）回复于 2002-05-21 08:57:29 得分 10
winexec('路径\NotePad.exe',SW_SHOWNORMAL);
Top
8 楼nclgh（南飞）回复于 2002-05-21 08:57:34 得分 0
调用API函数：winexec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);Top
9 楼cndebug（A-wu）回复于 2002-05-21 08:57:41 得分 10
例如 winexec('C:\windows\Notepad.exe',SW_MAXIMIZE);
我试了不用加shellapi单元了着是WINDOWS单元的一个函数！Top
