<html>

  <head>

    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">

  </head>

  <body text="#000000" bgcolor="#FFFFFF">

    <div class="moz-text-flowed" style="font-family: -moz-fixed;

      font-size: 14px;" lang="x-unicode">Hi Dieter

      <br>

      <br>

      the corresponding module in A2 looks like the following (below my

      signature). It should be widely applicable to ETHOberon for

      Windows because lot of Kernel32 is shared.

      <br>

      <br>

      Aside: Command.Context is the current's thread context. You don't

      have this in Oberon -- that should be the greatest difference. [In

      the current version of A2, the command context is stored

      Thread-locally and does not have to be explicitly coded, cf.

      module In or Out in the current version of A2].

      <br>

      <br>

      Rgds

      <br>

      Felix

      <br>

      <br>

      <br>

      <br>

      MODULE WinApplications;Â  (* ll, fof : call windows applications

      from within WinAos *)

      <br>

      Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  (*ll, add statements for waiting

      process terminate in procedure Callprocess, 23.11.2007*)

      <br>

      Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  Â Â Â  (*ll, add return result of CallProcess

      Procedure. IF resturn result = 0 THEN execution success END,

      28.11.2007*)

      <br>

      <br>

      IMPORT Kernel32, KernelLog, Commands, Strings, SYSTEM, Options;

      <br>

      <br>

      Â Â Â  PROCEDURE CallProcess( par: ARRAY OF CHAR; visible: BOOLEAN ):

      LONGINT;

      <br>

      Â Â Â  VAR bool: LONGINT;Â  start: Kernel32.StartupInfo;Â  pi:

      Kernel32.ProcessInformation;Â  result: LONGINT;

      <br>

      Â Â Â  BEGIN

      <br>

      Â Â Â  Â Â Â  result := -1;

      <br>

      Â Â Â  Â Â Â  start.cb := SIZEOF( Kernel32.StartupInfo );

      <br>

      Â Â Â  Â Â Â  start.dwFlags := {Kernel32.StartFUseShowWindow};

      <br>

      Â Â Â  Â Â Â  IF visible THEN start.wShowWindow := 1; ELSE

      start.wShowWindow := 0; END;

      <br>

      <br>

      Â Â Â  Â Â Â  KernelLog.String( "Calling Windows Application: " );

      KernelLog.String( par );Â  KernelLog.Ln;

      <br>

      <br>

      Â Â Â  Â Â Â  bool := Kernel32.CreateProcess( NIL , par, NIL , NIL ,

      Kernel32.False, 0, NIL , NIL , start, pi );

      <br>

      Â Â Â  Â Â Â  result := Kernel32.WaitForSingleObject(pi.hProcess,

      Kernel32.Infinite);

      <br>

      Â Â Â  Â Â Â  bool := Kernel32. GetExitCodeProcess(pi.hProcess, result);

      <br>

      <br>

      Â Â Â  Â Â Â  RETURN result

      <br>

      Â Â Â  END CallProcess;

      <br>

      <br>

      Â Â Â  PROCEDURE Call*( CONST proc, par: ARRAY OF CHAR): LONGINT;

      <br>

      Â Â Â  VAR call: ARRAY 1024 OF CHAR;

      <br>

      Â Â Â  BEGIN

      <br>

      Â Â Â  Â Â Â  call := '"'; Strings.Append (call, proc); Strings.Append

      (call, '" '); Strings.Append (call, par);

      <br>

      Â Â Â  Â Â Â  RETURN CallProcess (call, TRUE);

      <br>

      Â Â Â  END Call;

      <br>

      <br>

      Â Â Â  PROCEDURE Run*(context : Commands.Context);

      <br>

      Â Â Â  VAR options: Options.Options; visible: BOOLEAN; cmdpar: ARRAY

      256 OF CHAR;Â  res: LONGINT;

      <br>

      Â Â Â  BEGIN

      <br>

      Â Â Â  Â Â Â  NEW (options);

      <br>

      Â Â Â  Â Â Â  options.Add("h", "hide", Options.Flag);

      <br>

      Â Â Â  Â Â Â  IF options.Parse(context.arg,context.error) THEN

      <br>

      Â Â Â  Â Â Â  Â Â Â  visible := ~options.GetFlag ("h");

      <br>

      Â Â Â  Â Â Â  ELSE

      <br>

      Â Â Â  Â Â Â  Â Â Â  visible := TRUE;

      <br>

      Â Â Â  Â Â Â  END;

      <br>

      Â Â Â  Â Â Â  context.arg.Ln (cmdpar);

      <br>

      Â Â Â  Â Â Â  res := CallProcess (cmdpar, visible);

      <br>

      Â Â Â  Â Â Â  IF res =Â  0 THEN KernelLog.String( "should have worked

      fine .... " );Â Â  KernelLog.Ln;

      <br>

      Â Â Â  Â Â Â  ELSE KernelLog.String( "ERROR: " ); res:=

      Kernel32.GetLastError();Â  KernelLog.Int(res, 1 );Â  KernelLog.Ln;

      <br>

      Â Â Â  Â Â Â  END;

      <br>

      Â Â Â  Â Â Â  context.result := res;

      <br>

      Â Â Â  END Run;

      <br>

      <br>

      END WinApplications.

      <br>

      <br>

      SystemTools.Free WinApplications ~

      <br>

      System.Free WinApplications ~

      <br>

      <br>

      ~

      <br>

      WinApplications.Run avrdude -help ~

      <br>

      <br>

      Aos.Call WinApplications.Run avrdude -p m128 -c avrisp -P com1 -e

      ~

      <br>

      Aos.Call WinApplications.Run Notepad Test.bat ~

      <br>

      Aos.Call WinApplications.Run Test.batÂ  ~

      <br>

      ~

      <br>

      <br>

      EditTools.OpenAscii Test.Bat ~

      <br>

      <br>

      <br>

      <br>

      <br>

      <br>

      <blockquote type="cite" style="color: #000000;">Short question:

        <br>

        <br>

        has anybody got an idea, how I could accomplish this?

        <br>

        <br>

        Thanks and regards,

        <br>

        Dieter

        <br>

        <br>

      </blockquote>

      <br>

    </div>

  </body>

</html>