XProfan

Def Getsavefilename(1) !"COMDLG32.DLL","GetSaveFileNameA"
Def Make256string(1) ((@$(1) + @Chr$(0)) + @Space$(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&
Déclarer Ofn#
Faible Ofn#,Tagofn
Struct _rect = Left&,
Top&,
Right&,
Bottom&
Déclarer Rect#
Faible Rect#,_rect
Déclarer Ergebnis&
Déclarer Icon&

Proc Iconload

    Déclarer nom$
    Déclarer Dll&
    nom$ = "#1001" + @Chr$(0)
    Dll& = @Usedll("SHELL32.DLL")
    Icon& = @Externe("User32.DLL","LoadImageA",Dll&,@Addr(nom$),1,48,48,0)
    Freedll Dll&

ENDPROC

Proc Savedateihook

    Paramètres Hdlg&,Umsg&,Wparam&,Lparam&
    Claire Rect#
    Déclarer Parent&
    Déclarer Fenster&
    Déclarer Text&
    Déclarer Weiter&
    Déclarer Neu&
    Déclarer Abbruch&
    Déclarer Static&
    Déclarer Raus&

    Si Umsg& = 49265

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

            Parent& = @Externe("User32","GetParent",Hdlg&)
            @Externe("User32","GetWindowRect",Parent&,Rect#)
            Fenster& = @Créer("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& = @Créer("Text",Fenster&,"Folgende Aktion effectuer:",80,30,200,40)
            Usefont "Curier New",14,0,0,0,0
            Setdialogfont 1
            Weiter& = @Créer("DefButton",Fenster&,"Anhängen",25,75,82,26)
            Neu& = @Créer("Button",Fenster&,"Überschreiben",115,75,82,26)
            Abbruch& = @Créer("Button",Fenster&,"Abbruch",205,75,82,26)
            Static& = @Contrôle("Static",»,$54000103,10,10,48,48,Fenster&,0,%Hinstance,$0)
            @SendMessage(Static&,$170,Icon&,0)
            Setdialogfont 0
            Raus& = 0

            Whilenot Raus& = 1

                Waitinput

                Si @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&)
            Retour 1

        Endif

    Endif

    Retour 0

ENDPROC

Proc Savedatei

    Paramètres Hwnd&,Titel$,Filespec$,Initialdir$,filtre$,Defext$
    Déclarer Customfilter$
    Déclarer Filetitle$
    Déclarer Rcode&
    Déclarer sélection$
    Claire Ofn#
    Titel$ = Make256string(Titel$)
    Filespec$ = Make256string(Filespec$)
    Initialdir$ = Make256string(Initialdir$)
    filtre$ = @Translate$(filtre$,"|",@Chr$(0)) + @Chr$(0)
    filtre$ = Make256string(filtre$)
    Defext$ = Make256string(Defext$)

    With Ofn#

        .Lstructsize&       = @Sizeof(Ofn#)
        .Hwndowner&         = Hwnd&
        .Hinstance&         = %Hinstance
        .Lpstrfilter&       = @Addr(filtre$)
        .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#)

    Si Rcode& = 1

        Si Ergebnis& <> 0

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

        Elseif Ergebnis& = 0

            sélection$ = »

        Endif

    D'autre

        sélection$ = »

    Endif

    @Procaddr(Savedateihook,-4)
    Retour sélection$

ENDPROC

#######################
Windowstyle 8 + 16 + 512 + 1024
Fenêtre 100,100-300,300
Déclarer Ende&
Déclarer Button&
Button& = @Créer("Button",%Hwnd,"Button",10,10,100,40)
Iconload

Whilenot Ende& = 1

    Waitinput

    Si %Key = 2

        Ende& = 1

    Elseif @Clicked(Button&)

        Savedatei(%Hwnd,"Ausgabe qui Ergebnisse pour:","DLQueue",$Progdir,"DAT File (*.dat)|*.dat|Textfile (*.txt)|*.txt","*.dat")

    Endif

Endwhile

Dispose Rect#
Dispose Ofn#
@Externe("User32.DLL","DestroyIcon",Icon&)
Fin

declare text$
imprimer Addr(text$)
let text$ = "Hallo"
imprimer Addr(text$)
let text$ = »
imprimer Addr(text$)
waitkey