XProfan

 $P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
 $H Windows.ph
-ExternalFunctions---------------------------------------------------
Def @GetOpenFileName(1) !ComDlg32.Dll, GetOpenFileNameA
Struct OFN = lStructSize&,
hWndOwner&,
hInstance&,
lpstrFilter&,
lpstrCustomFilter&,
nMaxCustFilter&,
nFilterIndex&,
lpstrFile&,
nMaxFile&,
lpstrFileTitle&,
nMaxFileTitle&,
lpstrInitialDir&,
lpstrTitle&,
Flags&,
nFileOffset%,
nFileExtension%,
lpstrDefExt&,
lCustData&,
lpfnHook&,
lpTemplateName&
-GlobalVariables-----------------------------------------------------
Def &OFN_PATHMUSTEXIST $800
Def &OFN_FILEMUSTEXIST $1000
Declare CommDlgError& -Zur Auswertung bei Abbruch oder Fehler
-  Ordner vorgeben --------------
Def Desk(0) ReadIni$(Hkey_1, SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Desktop)

PROC BUTTON1_ONCLICK

    GETMESSAGE
    Parameters Title$, FileMask$
    -VariablesDeclaration--------------------------------------------
    Declare OFN#
    Dim OFN#, OFN
    Declare PathFileName#
    Dim PathFileName#, ~MAX_PATH
    Declare FileName#
    Dim FileName#, ~MAX_PATH
    Declare Filter#
    Dim Filter#, 1024
    Declare InitialDir$, Datei1$, PathDatei1$
    -----------------------------------------------------------------
    Title$= Datei suchen ...- Überschrift --------------
    InitialDir$ = Desk(0)- Vorgegebener Ordner --------------
    CaseNot Len(FileMask$):FileMask$=Programme|*.Exe|Alle|*.*
    FileMask$=Translate$(FileMask$,|,z)+zz
    Clear PathFileName#, FileName#, Filter#, CommDlgError&
    String Filter#, 0 = FileMask$

    With OFN#

        .lStructSize& = @SizeOf(OFN#)
        .Flags& = &OFN_PATHMUSTEXIST | &OFN_FILEMUSTEXIST
        -Filter-
        .lpstrFilter& = Filter#
        .nFilterIndex& = 0
        -Dateiname mit Pfad-
        .lpstrFile& = PathFileName#
        .nMaxFile& = ~MAX_PATH
        -Dateiname-
        .lpstrFileTitle& = FileName#
        .nMaxFileTitle& = ~MAX_PATH
        -Dialogtitel-
        .lpstrTitle& = @Addr(Title$)
        -Initialverzeichnis-
        .lpstrInitialDir& = @Addr(InitialDir$)

    EndWith

    If @GetOpenFileName(OFN#)

        PathDatei1$ = @String$(PathFileName#, 0)
        Datei1$ = @String$(FileName#, 0)

    Else

        Clear PathDatei1$
        Clear Datei1$

    EndIf

    Dispose OFN#
    Dispose PathFileName#
    Dispose FileName#
    Dispose Filter#
    Print
    Print Datei1$
    Print PathDatei1$
    Return PathDatei1$  -Pfad und Dateiname
    Return Datei1$     -Dateiname

ENDPROC

WINDOWSTYLE 63
WINDOWTITLE Datei Laden Dialog ...
WINDOW 243,208-476,268
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE(BUTTON,%HWND,Suchen ...,0336,0170,0070,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ENDIF

ENDWHILE

LoadFile$(laden...,Programme|*.exe;*.bat;*.com;*.lnk|Alle|*.*)

prog$=LOADFILE$(Auswahl der Startdatei,Exe, Pif, Bat, Com, Lnk |*.EXE;*.PIF;*.BAT;*.COM;*.LNK)

IF (%Button=3)

    RETURN

ELSE

    usw,,,,

ENDIF

Def Desktop(0) readini$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Desktop)
DECLARE desk$
desk$=DESKTOP()
CHDIR desk$

Def Desktop(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Desktop)
ChDir DeskTop()

Def StartMenueAutostart(0) readini$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Startup)
Def EigeneDateien(0) ReadIni$(Hkey_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Personal)
Print StartMenueAutostart()
Print EigeneDateien()
WaitInput