XProfan

DECLARE but&,programm$,EE%,aus&
EE%=0
programm$=NOTEPAD.EXE
CLS
but&=CREATE(BUTTON,%HWND,Start,50,50,100,25)
aus&=CREATE(BUTTON,%HWND,ESC  Ende,300,50,100,25)

WHILENOT EE%

    WAITINPUT
    CASE CLICKED(but&):SHELL programm$
    CASE CLICKED(but&):Shell rundll32.exe url.dll,FileProtocolHandler +programm$
    Case Scankey(27) | CLICKED(aus&):EE%=1

ENDWHILE

end

DECLARE but&,programm$,EE%,aus&
EE%=0
programm$=FIXSTERN2.EXE
CLS
but&=CREATE(BUTTON,%HWND,Start,50,50,100,25)
aus&=CREATE(BUTTON,%HWND,ESC Ende,300,50,100,25)

WHILENOT EE%

    WAITINPUT
    CASE CLICKED(but&):SHELL programm$
    CASE CLICKED(but&):Shell rundll32.exe url.dll,FileProtocolHandler +programm$
    Case Scankey(27) | CLICKED(aus&):EE%=1

ENDWHILE

end

programm$ = q+programm$+q

DECLARE but&,programm$,EE%,aus&
EE%=0
programm$=2windows4you.exe
CLS
but&=CREATE(BUTTON,%HWND,Start,50,50,100,25)
aus&=CREATE(BUTTON,%HWND,ESC  Ende,300,50,100,25)

WHILENOT EE%

    WAITINPUT

    IF CLICKED(but&)

        CHDIR C:2windows4you CHDIR...  muss gemacht werden. Dann klappts auch mit dem Aufruf :o)
        Shell rundll32.exe url.dll,FileProtocolHandler +programm$

    ENDIF

    Case Scankey(27) | CLICKED(aus&):EE%=1

ENDWHILE

end

Habe festgestellt, wenn ich beim Aufruf zuerst mit CHDIR in den Ordner schalte, funktioniert der Aufruf auch bei XProfan-Programmen

programm$=C:Programme2windows4you2windows4you.exe

DECLARE programm$,prog_pfad$,anzahl%,programm_lg%,prog_lg%
DEF LESE_SLASH(1) (LEN($(1))-LEN(TRANSLATE$($(1),,)))
prog_pfad$=C:2windows4you2windows4you.exe
anzahl%=LESE_SLASH(prog_pfad$)
programm$=SUBSTR$(prog_pfad$,Anzahl%+1,)
prog_lg%=LEN(prog_pfad$)
programm_lg%=LEN(programm$)
prog_pfad$=LEFT$(prog_pfad$,(prog_lg%-programm_lg%))