XProfan

- Página 2 -

Alfred
Wagner

¡Hola
Hatte el todo Tiempo Problemas con el LoadDialog

Hab el Diálogo de el Profanhilfe algo umgeschrieben,nun macht él qué él se ! (Anregung de Jörg y IF)

Der de el Profanhilfe scheint no correcto a trabajo (gehört veces adaptado)

Hier el Code para todos
Kompilieren Marca Separación

 $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 demnächst una Actualización hochladen

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

Sehr schön - allerdings kannst Usted Usted el GetMessage al Anfang el Procedimiento sparen.
¿Por qué nimmst Usted eigentlich no simplemente el LoadFile-Diálogo?
Kompilieren Marca Separación

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

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

¿Por qué nimmst Usted eigentlich no simplemente el LoadFile-Diálogo?

Frag Yo mich auch...

En mi Quickstart sieht el así de:
Kompilieren Marca Separación

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

IF (%Button=3)

    RETURN

ELSE

    usw,,,,

Alfred
Wagner

hallo Jörg

porque uno con el LoadFile-Diálogo siempre en el Ordner landet de wo de el letzte Programa aufgerufen wurde ,y yo möchte daß el Diálogo siempre en el Desktop ausgeführt se.

Oder ha alguien una Alternative a el Diálogo(el es nämlich una wenig lang)

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

@¡Hola Alfred
Kompilieren Marca Separación

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

pre>

Antes Usted LoadFile$(.... aufrufst CHDIR desk$ y Usted startest siempre de el Desktop (natürlich kannst Usted el Declaration desk$ auch anders nennen

Jörg
Sellmeyer

Usted necesidad nichtmal el Variable desk$, como DeskTop() sí siempre el Pfad dorthin liefert.
Also
Kompilieren Marca Separación

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

danke euch beiden

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

Kein Problema - Yo sería pero en así una Programa empfehlen, daß el Diálogo siempre en el letzten aufgerufenen Directorio geöffnet se.
Also, beim ersten Tiempo Dektop() es una guter Start. Wenn uno se entonces para Startmenü durchgeklickt ha, y hay todavía mehr Programas auswählen voluntad, kann lo muy lästig ser, siempre wiederneu rumzuklicken.

Hier auch todavía el Definitionen, en el Startordner oder Eigene Archivos direkt anzusteuern:
Kompilieren Marca Separación

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

Also, beim ersten Tiempo Dektop() es una guter Start. Wenn uno se entonces para Startmenü durchgeklickt ha, y hay todavía mehr Programas auswählen voluntad, kann lo muy lästig ser, siempre wiederneu rumzuklicken.

Das puede ser así más o menos sehen. In meiner ersten Versión (Quickstart) bin Yo de C: comenzó, porque el es siempre disponible. In uno späteren Versión bin Yo entonces, (dank Deiner Ayuda) vom Desktop comenzó, porque sí nun mein Programa todos Icons erkannte y yo auch lnk-Archivos darstellen podría. - Yo muss mich sí no para Startmenu durcklicken, Yo de hecho puede auch en el verschiedenen Partionen (en me 4) el Programmdateien direkt auswählen.

Cuestión a el Anwender:
Was es bequemer - Immer de el gleichen Directorio (Desktop oder auch C: meinetwegen) oder de el zuletzt benutzten Directorio starten ?

RGH

Horst Horn

Cuestión a el Anwender:
Was es bequemer - Immer de el gleichen Directorio (Desktop oder auch C: meinetwegen) oder de el zuletzt benutzten Directorio starten ?

Dem Anwender en un Optionsdialog el Wahl dejar:

( ) zuletzt gewähltes Directorio
( ) siempre folgendes Directorio ... [Auswahl]
Voreingestellt beim ersten Programmstart es el Desktop.

Saludo
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

Dem Anwender en un Optionsdialog el Wahl dejar:

( ) zuletzt gewähltes Directorio
( ) siempre folgendes Directorio ... [Auswahl]
Voreingestellt beim ersten Programmstart es el Desktop.

Der Meinung bin Yo auch y bastel ya a el Menueintrag

Frank
Abbing

Was es bequemer - Immer de el gleichen Directorio (Desktop oder auch C: meinetwegen) oder de el zuletzt benutzten Directorio starten ?

Yo bin bemüht, mi Progs siempre en el Ordner starten que se, en el el Anwender como letztes gearbeitet ha. Beim Programmende speichere Yo esta Ort, y el para jede einzelne Auswahl.