如何在delphi中用程序运行其他程序？ (50分)

如：按一个按钮运行notepad

use shellapi

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open',pchar('c:/windows/notepad.exe'),nil,nil,sw_shownormal)
end;

function ExecuteCommand(CommandStr, ExecDir: string; ShowWindow: boolean): THandle;
var
proc: PROCESS_INFORMATION;
Start: STARTUPINFO;
begin
//Initialize the STARTUPINFO structure:
FillChar(Start,SizeOf(Start),0);
Start.cb := SizeOf(Start);
Start.dwFlags := STARTF_USESHOWWINDOW;
if ShowWindow then Start.wShowWindow := SW_SHOW else Start.wShowWindow := SW_HIDE;
//Start the shelled application:
Win32Check(CreateProcessA(nil, PChar(CommandStr), nil, nil, True,
NORMAL_PRIORITY_CLASS, nil, PChar(ExecDir), Start, proc));
Result := proc.hProcess;
end;

2楼说的对.也可以用winexec

是啊，最简单还是一句： WinExec('notepad',SW_NORMAL);

WinExec是Win31中的吧。还是用ShellExecute吧

谢谢啦

用winexec简单方便