XProfan

Español

Thomas
Freier

Gibt lo una Möglichkeit, esta Dialoge siempre en el Vordergrund a halten?

Gruß Thomas
Windows XP SP2, XProfan X2

28.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Vlt. hilft Usted el:
Kompilieren Marca Separación

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
def GetParent(1) ! "USER32.DLL","GetParent"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Datei (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    Return fle$

    proc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=$110 : return m&//wm_initDialog
        setWindowPos getParent(h&)=(%maxx2-215),(%maxy2-200) - width(getParent(h&))+6,height(getParent(h&))+%cyCaption+6;-1
        return 0

    endproc

ENDPROC

Und con NProc (absturzsicher):
Kompilieren Marca Separación

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
cls
Multiloadfile()
end

Proc Multiloadfile

    declarar title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Expediente (*.*)z*.*zz"
    Largo mem#,0=76,0,%hInstance,Addr(fmask$)
    Largo mem#,28=mem#+100,8000
    Largo mem#,44=Addr(drive$),Addr(title$)
    Largo mem#,52=( 4 | 2 | 32 | 524288 )
    Largo mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Disponer mem#
        volver 0

    endif

    fle$=String$(mem#,100)
    Disponer mem#
    Volver fle$

    nproc Multiloadfile.hookProc

        parámetros h&,m&,w&,l&
        casenot m&=wm_initDialog : volver m&
        setWindowPos(getParent(h&),hwnd_topmost,200,200,0,0,swp_nosize)
        volver 0

    ENDPROC

ENDPROC

31.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Mit eigenem LoadFile-Diálogo debería el ya ir, vlt. hilft [...]

[...]

28.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Bekannte Versionen. Löst aber ncht el problema.Alle Varianten bleiben sólo vorm Ventana principal y no vorm Crear("Window",N,S,X1,Y1,X2,Y2) o. Crear("Dialog",N,S,X1,Y1,X2,Y2) en el Vordergrund.

Gruß Thomas
Windows XP SP2, XProfan X2

31.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Vlt. hilft Usted el:
Kompilieren Marca Separación

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
def GetParent(1) ! "USER32.DLL","GetParent"
cls
Multiloadfile()
end

Proc Multiloadfile

    declare title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Datei (*.*)z*.*zz"
    Long mem#,0=76,0,%hInstance,Addr(fmask$)
    Long mem#,28=mem#+100,8000
    Long mem#,44=Addr(drive$),Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    Return fle$

    proc Multiloadfile.hookProc

        parameters h&,m&,w&,l&
        casenot m&=$110 : return m&//wm_initDialog
        setWindowPos getParent(h&)=(%maxx2-215),(%maxy2-200) - width(getParent(h&))+6,height(getParent(h&))+%cyCaption+6;-1
        return 0

    endproc

ENDPROC

Und con NProc (absturzsicher):
Kompilieren Marca Separación

def GetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"
def CommDlgExtendedError(0) ! "COMDLG32.DLL","CommDlgExtendedError"
cls
Multiloadfile()
end

Proc Multiloadfile

    declarar title$,fmask$,drive$,fle$,mem#
    Dim mem#,8100
    title$="Dateiwahl:"
    fmask$="Beliebige Expediente (*.*)z*.*zz"
    Largo mem#,0=76,0,%hInstance,Addr(fmask$)
    Largo mem#,28=mem#+100,8000
    Largo mem#,44=Addr(drive$),Addr(title$)
    Largo mem#,52=( 4 | 2 | 32 | 524288 )
    Largo mem#,68=procaddr(Multiloadfile.hookProc,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Disponer mem#
        volver 0

    endif

    fle$=String$(mem#,100)
    Disponer mem#
    Volver fle$

    nproc Multiloadfile.hookProc

        parámetros h&,m&,w&,l&
        casenot m&=wm_initDialog : volver m&
        setWindowPos(getParent(h&),hwnd_topmost,200,200,0,0,swp_nosize)
        volver 0

    ENDPROC

ENDPROC