/*
** ImageToDPaint5.asrx
**
** $VER: ImageToDPaint5 V1.0.0 (20.05.95)
**
** (c) by MotionStudios
**        Wildermuthplatz 3
**        28211 Bremen
**        Tel.: 0421/249966
**
*/

ADDRESS "DPAINT.1"
OPTIONS RESULTS

PARSE ARG Path

/*
** Testen ob DPaint schon gestartet, wenn nicht DPaint starten.
** 5 Sekunden warten, bis DPaint geladen wurde. Falls Zeit nicht reicht
** kann man beliebig Variieren.
*/

IF ~SHOW('P','DPAINT.1') THEN
DO
 ADDRESS COMMAND 'run >NIL: <NIL: DPaint:DPaint'
 ADDRESS COMMAND Wait 5
END

LOCKGUI
LOADPIC Path
UNLOCKGUI