procedure RunSysExe(const exeprocessname: String;exeTitle:String);

var  //引用单元shellapi

  OFile:String;

  HWndCalculator:HWnd;

begin

  HWndCalculator:=FindWindow(nil,pwidechar(exeTitle));

  if (HWndCalculator=0) then

  begin

    OFile:=exeprocessname;

    Shellexecute(application.handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);

  end;

end;