{ Programm:   WBStartup
  ~~~~~~~~~
  Sprache:    MaxonPASCAL 3 / KP 2.12 (OS2-Includes)
  ~~~~~~~~
  Sinn:       Abfangen der WBStartupMsg (siehe "DiskIcon.p")
  ~~~~~
  Autor:      PackMAN
  ~~~~~~      c/o Falk Zühlsdorff
              Lindenberg 66
              D-98693 Ilmenau / Thüringen

  ©:          FREEWARE, wenn Autor in .dok / Infofenster des nicht-
  ~~                    kommerziellen Progr. erwähnt wird.

  Kommentar:  Version für MAXON
  ~~~~~~~~~~                                                             }

Program Paramtertest;
{$incl 'dos.lib','workbench/startup.h'};
VAR WBMsg   : p_WBStartup;
    olddir  : BPTR;
    numargs : long;
    tx      : text;
    i       : integer;
    dir     : string[108];

BEGIN
 IF FROMWB
  THEN
   BEGIN
    reset(tx,'CON:50/50/200/150/WBStartup');
    WBmsg:=StartupMessage;
    numargs:=WBMsg^.sm_NumArgs;
    writeln(tx,'NumArgs: ',numargs);
    FOR i:=1  TO NumArgs DO
     BEGIN
      writeln(tx,'Name:',WBMsg^.sm_ArgList^[i].wa_name);
      writeln(tx,'Lock:',WBMsg^.sm_ArgList^[i].wa_lock);
     END;

    i:=NameFromLock(WBMsg^.sm_ArgList^[2].wa_lock,^dir,108);

    writeln(tx,'DIR: ',dir);
    delay(200);
    close(tx);
   END;
END.