XProfan

Def Getsavefilename(1) !"COMDLG32.DLL","GetSaveFileNameA"
Def Make256cadena(1) ((@$(1) + @Chr$(0)) + @Espacio$(256 - @Len(@$(1))))
Struct Tagofn = Lstructsize&,
Hwndowner&,
Hinstance&,
Lpstrfilter&,
Lpstrcustomfilter&,
Nmaxcustfilter&,
Nfilterindex&,
Lpstrfile&,
Nmaxfile&,
Lpstrfiletitle&,
Nmaxfiletitle&,
Lpstrinitialdir&,
Lpstrtitle&,
Flags&,
Nfileoffset%,
Nfileextension%,
Lpstrdefext&,
Lcustdata&,
Lpfnhook&,
Lptemplatename&,
Pvreserved&,
Dwreserved&,
Flagsex&
Declarar Ofn#
Dim Ofn#,Tagofn
Struct _rect = Left&,
Top&,
Right&,
Bottom&
Declarar Rect#
Dim Rect#,_rect
Declarar Ergebnis&
Declarar Icon&

Proc Iconload

    Declarar Name$
    Declarar Dll&
    Name$ = "#1001" + @Chr$(0)
    Dll& = @Usedll("SHELL32.DLL")
    Icon& = @Externo("USER32.DLL","LoadImageA",Dll&,@Addr(Name$),1,48,48,0)
    Freedll Dll&

ENDPROC

Proc Savedateihook

    Parámetros Hdlg&,Umsg&,Wparam&,Lparam&
    Claro Rect#
    Declarar Parent&
    Declarar Fenster&
    Declarar Text&
    Declarar Weiter&
    Declarar Neu&
    Declarar Abbruch&
    Declarar Static&
    Declarar Raus&

    If Umsg& = 49265

        If @Fileexists(@String$(Ofn#.Lpstrfile&,0)) = 1

            Parent& = @Externo("USER32","GetParent",Hdlg&)
            @Externo("USER32","GetWindowRect",Parent&,Rect#)
            Fenster& = @Crear("Dialog",%Hwnd,"Datei existiert",-1,-1,-1,0)
            Setwindowpos Fenster& = (Rect#.Left& + (((Rect#.Right& - Rect#.Left&) / 2) - 160)),(Rect#.Top& + (((Rect#.Bottom& - Rect#.Top&) / 2) - 75))- 320,150
            Text& = @Crear("Text",Fenster&,"Folgende Aktion ausführen:",80,30,200,40)
            Usefont "Curier New",14,0,0,0,0
            Setdialogfont 1
            Weiter& = @Crear("DefButton",Fenster&,"Anhängen",25,75,82,26)
            Neu& = @Crear("Button",Fenster&,"Überschreiben",115,75,82,26)
            Abbruch& = @Crear("Button",Fenster&,"Abbruch",205,75,82,26)
            Static& = @Control("Static","",$54000103,10,10,48,48,Fenster&,0,%Hinstance,$0)
            @SendMessage(Static&,$170,Icon&,0)
            Setdialogfont 0
            Raus& = 0

            Sinestar encargado Raus& = 1

                Waitinput

                If @Clicked(Weiter&)

                    Ergebnis& = 1
                    Raus& = 1

                Elseif @Clicked(Neu&)

                    Ergebnis& = 2
                    Raus& = 1

                Elseif (@Clicked(Abbruch&) Or (%Key = 2))

                    Ergebnis& = 0
                    Raus& = 1

                Endif

            Endwhile

            @Destroywindow(Fenster&)
            Volver 1

        Endif

    Endif

    Volver 0

ENDPROC

Proc Savedatei

    Parámetros Hwnd&,Titel$,Filespec$,Initialdir$,Filter$,Defext$
    Declarar Customfilter$
    Declarar Filetitle$
    Declarar Rcode&
    Declarar Auswahl$
    Claro Ofn#
    Titel$ = Make256cadena(Titel$)
    Filespec$ = Make256cadena(Filespec$)
    Initialdir$ = Make256cadena(Initialdir$)
    Filter$ = @Translate$(Filter$,"|",@Chr$(0)) + @Chr$(0)
    Filter$ = Make256cadena(Filter$)
    Defext$ = Make256cadena(Defext$)

    With Ofn#

        .Lstructsize&       = @Sizeof(Ofn#)
        .Hwndowner&         = Hwnd&
        .Hinstance&         = %Hinstance
        .Lpstrfilter&       = @Addr(Filter$)
        .Lpstrcustomfilter& = @Addr(Customfilter$)
        .Nmaxcustfilter&    = 0
        .Nfilterindex&      = 1
        .Lpstrfile&         = @Addr(Filespec$)
        .Nmaxfile&          = 256
        .Lpstrfiletitle&    = @Addr(Filetitle$)
        .Nmaxfiletitle&     = 256
        .Lpstrinitialdir&   = @Addr(Initialdir$)
        .Lpstrtitle&        = @Addr(Titel$)
        .Flags&             = ($4 | $20 | $80000 | $800)
        .Nfileoffset% = 0
        .Nfileextension% = 0
        .Lpstrdefext&       = @Addr(Defext$)
        .Lcustdata& = 0
        .Lpfnhook& = @Procaddr(Savedateihook,4)
        .Lptemplatename& = 0
        .Pvreserved& = 0
        .Dwreserved& = 0
        .Flagsex& = 0

    Endwith

    Ergebnis& = 2
    Rcode& = Getsavefilename(Ofn#)

    If Rcode& = 1

        If Ergebnis& <> 0

            Auswahl$ = @Str$(Ergebnis&) + "|" + @String$(Ofn#.Lpstrfile&,0)

        Elseif Ergebnis& = 0

            Auswahl$ = ""

        Endif

    Más

        Auswahl$ = ""

    Endif

    @Procaddr(Savedateihook,-4)
    Volver Auswahl$

ENDPROC

#######################
Windowstyle 8 + 16 + 512 + 1024
Ventana 100,100-300,300
Declarar Ende&
Declarar Button&
Button& = @Crear("Button",%Hwnd,"Button",10,10,100,40)
Iconload

Sinestar encargado Ende& = 1

    Waitinput

    If %Key = 2

        Ende& = 1

    Elseif @Clicked(Button&)

        Savedatei(%Hwnd,"Ausgabe el Ergebnisse después de:","DLQueue",$Progdir,"DAT File (*.dat)|*.dat|Textfile (*.txt)|*.txt","*.dat")

    Endif

Endwhile

Disponer Rect#
Disponer Ofn#
@Externo("USER32.DLL","DestroyIcon",Icon&)
End

declarar texto$
imprimir Addr(texto$)
let texto$ = "Hallo"
imprimir Addr(texto$)
let texto$ = ""
imprimir Addr(texto$)
waitkey