XProfan

 {$cliq}
Declare DF_Erg&,DF_FileName$
Clear DF_Erg&,DF_FileName$
DF_FileName$ = "E:EIGENE DATEIENTEST.DAT"  Bitte "TEST.DAT" erzeugen und Pfad Anpassen!!!

ASMSTART DelFile

    PARAMETERS Addr(DF_FileName$)
    Invoke exist, para1
    JZ Ende
    Invoke SetFileAttributesA, para1, 32
    Invoke SetFileAttributesA, para1, 128
    Invoke DeleteFileA, para1
    Ende:
    Return DF_erg&
    ; Rückgabewerte
    ; 1 = Datei gelöscht
    ; 0 = Datei nicht gelöscht

ASMEND

Cls
Print "Datei " + DF_FileName$ + " :  < " + Str$(DF_Erg&) + " >      (0 = nicht gelöscht/1 = gelöscht)"
WaitInput
Fin

 {$cliq}
Declare z&,bereich#,afont&
Cls
===========================
Systemdialog Color aufrufen
===========================

AsmStart SysColor

    Parameters %hwnd,%hinstance
    invoke ColorDialog,para1,para2,0
    Return z&

AsmEnd

Print "RGB-Wert = "+Str$(z&)
==========================
Systemdialog Font aufrufen
==========================
Dim bereich#,1024
Clear bereich#

AsmStart SysFont

    Parameters %hwnd,bereich#
    invoke FontDialog,para1,para2,CF_SCREENFONTS or CF_EFFECTS

    .if eax

        invoke CreateFontIndirect,para2

    .endif

    Return afont&

AsmEnd

If afont&

    z&=@Create("Text",%hwnd,"Eine Schriftart wurde ausgewählt.",0,24,320,64)
    SetFont z&,afont&

Else

    Print "Kein Font ausgewählt."

EndIf

WaitInput
Case afont&:DeleteObject afont&
../funktionsreferenzen/XProfan/end/'>Fin

 {$cliq}
Declare GD_LB&,GD_Txt&
Cls
GD_LB&  = Create("SortedListBox",%HWnd,"",40,40,200,300)
GD_Txt& = Create("Text",%HWnd,"Gewählt:  ",40,360,200,20)

ASMSTART GetDrives

    PARAMETERS GD_LB&
    Invoke load_drives, para1        ; Listet alle vorhanden "fixen" Laufwerke in einer Listbox auf

ASMEND

WhileNot ((%Key = 2) Or (%MenuItem = -2))

    WaitInput
    SetText GD_Txt&,("Gewählt:  " + GetString$(GD_LB&,GetCurSel(GD_LB&)))

EndWhile

Fin

 {$Clq}
Declare FC_FileIn$,FC_FileOut$,FC_Erg&,FA_FileIn$,FA_FileOut$,FA_Erg&
FC_FileIn$  = "TEST1.DAT"
FC_FileOut$ = "TEST2.DAT"
FA_FileIn$  = FC_FileIn$
FA_FileOut$ = FC_FileOut$
Cls
Print ("Kopiere " + FC_FileIn$ + " nach " + FC_FileOut$ + ". Bitte Warten...")

ASMSTART fCopy

    Parameters Addr(FC_FileIn$),Addr(FC_FileOut$)
    Return FC_Erg&
    Local fHndl1  :DWORD
    Local fHndl2  :DWORD
    Local InCnt   :DWORD
    Local OutCnt  :DWORD
    Local Count   :DWORD
    Local GesCnt  :DWORD
    Local BuffAdd :DWORD
    Start:
    mov Count, 983040
    mov BuffAdd, alloc(Count)
    invoke exist, para1
    jz Ende
    invoke exist, para2
    jz Weiter1
    invoke SetFileAttributesA, para2, 32
    invoke SetFileAttributesA, para2, 128
    invoke DeleteFileA, para2
    Weiter1:
    mov GesCnt, 0
    mov fHndl1, fopen(para1)
    mov fHndl2, fcreate(para2)
    Weiter2:
    mov GesCnt, fseek(fHndl1,GesCnt,0)
    fseteof fHndl2
    mov InCnt, fread(fHndl1, BuffAdd, Count)
    mov OutCnt, fwrite(fHndl2, BuffAdd, InCnt)
    mov eax, GesCnt
    add eax, InCnt
    mov GesCnt, eax
    mov eax, OutCnt
    sub eax, Count
    jz Weiter2
    fclose fHndl1
    fclose fHndl2
    Ende:
    free BuffAdd
    Xor eax, eax

ASMEnd

Print
Print "Taste..."
WaitKey
Print ("Füge " + FC_FileIn$ + " zu " + FC_FileOut$ + " hinzu. Bitte Warten...")

ASMSTART fApp

    Parameters Addr(FA_FileIn$),Addr(FA_FileOut$)
    Return FA_Erg&
    Local fHndl1  :DWORD
    Local fHndl2  :DWORD
    Local InCnt   :DWORD
    Local OutCnt  :DWORD
    Local Count   :DWORD
    Local GesCnt  :DWORD
    Local GesCnt2 :DWORD
    Local BuffAdd :DWORD
    Start:
    mov Count, 983040
    mov BuffAdd, alloc(Count)
    invoke exist, para1
    jz Ende
    invoke exist, para2
    jz Ende
    mov GesCnt, 0
    mov GesCnt2, 0
    mov fHndl1, fopen(para1)
    mov fHndl2, fopen(para2)
    ;fseteof fHndl2
    mov GesCnt2, fseek(fHndl2,0,FILE_END)
    Weiter2:
    mov GesCnt, fseek(fHndl1,GesCnt,0)
    mov GesCnt2, fseek(fHndl2,GesCnt2,0)
    mov InCnt, fread(fHndl1, BuffAdd, Count)
    mov OutCnt, fwrite(fHndl2, BuffAdd, InCnt)
    mov eax, GesCnt
    add eax, InCnt
    mov GesCnt, eax
    mov eax, GesCnt2
    add eax, OutCnt
    mov GesCnt2, eax
    mov eax, OutCnt
    sub eax, Count
    jz Weiter2
    fclose fHndl1
    fclose fHndl2
    Ende:
    free BuffAdd
    Xor eax, eax

ASMEnd

Print
Print "Taste zum Beenden..."
WaitKey
Fin