{ REM
 Testet uber den DOS-Befehl tasklist ob die ME10F.exe beim Start schon einmal vorhanden ist
 und bricht den Start einer 2.Instanz ab. 
 Empfohlener Input + Macrostart in der startup.m
 Erforderliches Verzeichnis 'c:\tmp' oder im Macro aendern.
  END_REM}    
DEFINE fk_drafting_aktiv
  LOCAL Check1
  RUN GRAPHIC 'tasklist /v | find "ME10F.exe" > c:\tmp\tasklister.m'
  OPEN_INFILE 1 'c:\tmp\tasklister.m'
  READ_FILE 1 Check1  { 1x muss ja duerfen ;-}
  READ_FILE 1 Check1
  CLOSE_FILE 1
{ PURGE_FILE 'c:\tmp\tasklister.m' CONFIRM }
  IF ( Check1 <> 'END-OF-FILE')
    IGNORE_BREAK   {**!!!!!***}
    BEEP WAIT .3 BEEP WAIT .3 BEEP
    DISPLAY_NO_WAIT 'Drafting bereits einmal gestartet, das ist genug und tschuess' WAIT 1
    EXIT CONFIRM 
  END_IF
END_DEFINE