如何在delphi中调用系统的计算器和记事本?

Question

procedure TForm27.N48Click(Sender: TObject);
var
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
//计算器调用
     FillChar(StartupInfo,Sizeof(StartupInfo),#0);
     StartupInfo.cb := Sizeof(StartupInfo);     StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
     CreateProcess(nil,
        'Calc',
        nil,
        nil,
        false,
        CREATE_NEW_CONSOLE or
        NORMAL_PRIORITY_CLASS,
        nil,
        nil,
        StartupInfo,
        ProcessInfo);
end;

Answer 1

winexec('calc',sw_normal);
winexec('notepad',sw_noraml);

Answer 2

WINEXEC('calc.exe',Sw_SHOW);//计算器;
WINEXEC('notepad.exe',SW_SHOW);//记事本;