home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS2.0 / WbStartup.p < prev   
Encoding:
Text File  |  1994-08-25  |  1.2 KB  |  50 lines
  1. { Programm:   WBStartup
  2.   ~~~~~~~~~
  3.   Sprache:    MaxonPASCAL 3 / KP 2.12 (OS2-Includes)
  4.   ~~~~~~~~
  5.   Sinn:       Abfangen der WBStartupMsg (siehe "DiskIcon.p")
  6.   ~~~~~
  7.   Autor:      PackMAN
  8.   ~~~~~~      c/o Falk Zühlsdorff
  9.               Lindenberg 66
  10.               D-98693 Ilmenau / Thüringen
  11.  
  12.   ©:          FREEWARE, wenn Autor in .dok / Infofenster des nicht-
  13.   ~~                    kommerziellen Progr. erwähnt wird.
  14.  
  15.   Kommentar:  Version für MAXON
  16.   ~~~~~~~~~~                                                             }
  17.  
  18. Program Paramtertest;
  19. {$incl 'dos.lib','workbench/startup.h'};
  20. VAR WBMsg   : p_WBStartup;
  21.     olddir  : BPTR;
  22.     numargs : long;
  23.     tx      : text;
  24.     i       : integer;
  25.     dir     : string[108];
  26.  
  27. BEGIN
  28.  IF FROMWB
  29.   THEN
  30.    BEGIN
  31.     reset(tx,'CON:50/50/200/150/WBStartup');
  32.     WBmsg:=StartupMessage;
  33.     numargs:=WBMsg^.sm_NumArgs;
  34.     writeln(tx,'NumArgs: ',numargs);
  35.     FOR i:=1  TO NumArgs DO
  36.      BEGIN
  37.       writeln(tx,'Name:',WBMsg^.sm_ArgList^[i].wa_name);
  38.       writeln(tx,'Lock:',WBMsg^.sm_ArgList^[i].wa_lock);
  39.      END;
  40.  
  41.     i:=NameFromLock(WBMsg^.sm_ArgList^[2].wa_lock,^dir,108);
  42.  
  43.     writeln(tx,'DIR: ',dir);
  44.     delay(200);
  45.     close(tx);
  46.    END;
  47. END.
  48.  
  49.  
  50.