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&
Declare Ofn#
Dim Ofn#,Tagofn
Struct _rect = Left&,
Top&,
Right&,
Bottom&
Declare Rect#
Dim Rect#,_rect
Declare Ergebnis&
Declare Icon&

Proc Iconload

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

Endproc

Proc Savedateihook

    Parameters Hdlg&,Umsg&,Wparam&,Lparam&
    Clear Rect#
    Declare Parent&
    Declare Fenster&
    Declare Text&
    Declare Weiter&
    Declare Neu&
    Declare Abbruch&
    Declare Static&
    Declare Raus&

    If Umsg& = 49265

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

            Parent& = @External("USER32","GetParent",Hdlg&)
            @External("USER32","GetWindowRect",Parent&,Rect#)
            Fenster& = @Create("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& = @Create("Text",Fenster&,"Folgende Aktion ausführen:",80,30,200,40)
            Usefont "Curier New",14,0,0,0,0
            Setdialogfont 1
            Weiter& = @Create("DefButton",Fenster&,"Anhängen",25,75,82,26)
            Neu& = @Create("Button",Fenster&,"Überschreiben",115,75,82,26)
            Abbruch& = @Create("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

            Whilenot 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&)
            Return 1

        Endif

    Endif

    Return 0

Endproc

Proc Savedatei

    Parameters Hwnd&,Titel$,Filespec$,Initialdir$,Filter$,Defext$
    Declare Customfilter$
    Declare Filetitle$
    Declare Rcode&
    Declare Auswahl$
    Clear Ofn#
    Titel$ = Make256string(Titel$)
    Filespec$ = Make256string(Filespec$)
    Initialdir$ = Make256string(Initialdir$)
    Filter$ = @Translate$(Filter$,"|",@Chr$(0)) + @Chr$(0)
    Filter$ = Make256string(Filter$)
    Defext$ = Make256string(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

    Else

        Auswahl$ = ""

    Endif

    @Procaddr(Savedateihook,-4)
    Return Auswahl$

Endproc

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

Whilenot Ende& = 1

    Waitinput

    If %Key = 2

        Ende& = 1

    Elseif @Clicked(Button&)

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

    Endif

Endwhile

Dispose Rect#
Dispose Ofn#
@External("USER32.DLL","DestroyIcon",Icon&)
End

declare text$
print Addr(text$)
let text$ = "Hallo"
print Addr(text$)
let text$ = ""
print Addr(text$)
waitkey