XProfan

- page 2 -

Alfred
Wagner

allô
Hatte qui ganze Zeit Probleme avec dem LoadDialog

Hab den Dialog aus qui Profanhilfe quelque chose umgeschrieben,eh bien pouvoir il quoi il soll ! (Anregung de Jörg et IF)

qui aus qui Profanhilfe scheint pas richtig trop marcher (est la fois angepasst)

ici qui Code pour alle
Kompilieren Marque Séparation

 $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

Zum Prog_Loader

Werde bientôt un Update hochladen

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

très joli - allerdings peux Du Dir cela GetMessage am Anfang qui Procédure sparen.
pourquoi prends Du eigentlich pas simple den LoadFile-Dialog?
Kompilieren Marque Séparation

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

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

pourquoi prends Du eigentlich pas simple den LoadFile-Dialog?

Demandez à je mich aussi...

chez meinem Quickstart sieht cela so aus:
Kompilieren Marque Séparation

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

IF (%Button=3)

    RETURN

ELSE

    usw,,,,

Alfred
Wagner

allô Jörg

weil on avec dem LoadFile-Dialog toujours im Dossier landet de wohin aus cela dernier Programme aufgerufen wurde ,et je voudrais qui qui Dialog toujours sur dem Desktop fonctionnement wird.

ou bien hat quelqu'un une Alternative trop dem Dialog(qui ist nämlich un peu long)

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

@allô Alfred
Kompilieren Marque Séparation

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

pre>

Bevor Du LoadFile$(.... aufrufst CHDIR desk$ et Du startest toujours aus dem Desktop (naturellement peux Du qui Declaration desk$ aussi anders appeler

Jörg
Sellmeyer

Du brauchst nichtmal qui Variable desk$, là DeskTop() oui toujours den Pfad dorthin liefert.
alors
Kompilieren Marque Séparation

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

reicht.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Alfred
Wagner

merci euch beiden

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

ne...aucune Problem - je serait mais chez so einem Programme empfehlen, qui qui Dialog toujours im letzten aufgerufenen Verzeichnis ouvert wird.
alors, beim ersten la fois Dektop() est un bon Start. si on sich ensuite zum Startmenü durchgeklickt hat, et là encore plus Programme auswählen veux, peux es très embêtant son, toujours wiederneu rumzuklicken.

ici aussi encore qui Definitionen, um den Startordner ou bien Eigene Fichiers direct anzusteuern:
Kompilieren Marque Séparation

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

/pre>

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

@Jörg

alors, beim ersten la fois Dektop() est un bon Start. si on sich ensuite zum Startmenü durchgeklickt hat, et là encore plus Programme auswählen veux, peux es très embêtant son, toujours wiederneu rumzuklicken.

cela peux on so ou bien so voyons. dans meiner ersten Version (Quickstart) suis je de C: gestartet, weil c'est toujours vorhanden. dans einer späteren Version suis je ensuite, (dank Deiner Aider) vom Desktop gestartet, weil oui eh bien mon Programme alle Icônes erkannte et je aussi lnk-Fichiers représenter konnte. - je muss mich oui pas zum Startmenu durcklicken, je peux oui aussi dans den verschiedenen Partionen (chez mir 4) qui Programmdateien direct auswählen.

Frage à qui Anwender:
quoi ist bequemer - toujours aus dem gleichen Verzeichnis (Desktop ou bien aussi C: meinetwegen) ou bien aus dem zuletzt benutzten Verzeichnis starten ?

RGH

Horst Horn

Frage à qui Anwender:
quoi ist bequemer - toujours aus dem gleichen Verzeichnis (Desktop ou bien aussi C: meinetwegen) ou bien aus dem zuletzt benutzten Verzeichnis starten ?

Dem Anwender dans einem Optionsdialog qui l'élection laisser:

( ) zuletzt gewähltes Verzeichnis
( ) toujours folgendes Verzeichnis ... [sélection]
Voreingestellt beim ersten Programmstart ist qui Desktop.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

@Roland

qui attitude suis je aussi et bastel déjà à dem Menueintrag

Frank
Abbing

quoi ist bequemer - toujours aus dem gleichen Verzeichnis (Desktop ou bien aussi C: meinetwegen) ou bien aus dem zuletzt benutzten Verzeichnis starten ?

je suis prêt, mon Progs toujours dans dem Dossier starten trop laisser, dans dem qui Anwender comme letztes gearbeitet hat. Beim Programmende speichere je cette lieu, et cela pour chacun einzelne sélection.