XProfan

- Page 2 -

Alfred
Wagner

Hello
having The whole Time Problems with the LoadDialog

Have whom dialog from the Profanhilfe something rewritten,now power it what it should ! (Why stay of Jörg and IF)

The from the Profanhilfe shining not correctly. To functions (heard time adjusted)

here the code for all
Compile Mark Separation

 $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

to that Prog_Loader

will be soon one Update Upload

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

Very beautiful - though can You you the GetMessage at the beginning the procedure save.
Why take You really not simply whom LoadFile-dialog?
Compile Mark Separation

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

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

Why take You really not simply whom LoadFile-dialog?

Frag I too...

with my Quick Start sees the so from:
Compile Mark Separation

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

IF (%Button=3)

    RETURN

ELSE

    usw,,,,

Alfred
Wagner

Hello Jörg

because one with the LoadFile-dialog always in the Ordner alights of where from the latest Program called watts ,what about me would like that the dialog always on the desktop carryed out becomes.

or has someone a alternative to the dialog(the is namely a little bit long)

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

@Hello Alfred
Compile Mark Separation

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

pre>

before You LoadFile$(.... aufrufst CHDIR desk$ and You launch always from the Desktop (naturally can You The Declaration desk$ too differently name

Jörg
Sellmeyer

You need not even The Variable desk$, there DeskTop() Yes always whom way there supply.
means
Compile Mark Separation

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

thanks you both

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jörg
Sellmeyer

no trouble - i'd but with so one Program recommend, that the dialog always in the last aufgerufenen directory opened becomes.
means, at first time Dektop() is a guter Start. If one itself then to Startmenü durchgeklickt has, and there yet More programs select wants, can it very onerous his, always wiederneu rumzuklicken.

here too yet The Definitionen, around the Startordner or WhileLoop & directly anzusteuern:
Compile Mark Separation

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

means, at first time Dektop() is a guter Start. If one itself then to Startmenü durchgeklickt has, and there yet More programs select wants, can it very onerous his, always wiederneu rumzuklicken.

the can so or so see. In of my first Version (Quick Start) be I of C: launched, because this is always present. In of/ one later Version be I then, (dank your Help) of Desktop launched, because Yes now my Program any Icons erkannte what about me too lnk-Files present could. - I must me Yes not to that Startmenu durcklicken, I can indeed into different Partionen (by me 4) The Programmdateien directly select.

question on The users:
What is bequemer - always from the equal directory (Desktop or C: for may part) or from the lastly used directory started ?

RGH

Horst horn

question on The users:
What is bequemer - always from the equal directory (Desktop or C: for may part) or from the lastly used directory started ?

the users in a Options Dialog The electoral let:

( ) lastly gewähltes directory
( ) always the following directory ... [selection]
Voreingestellt at first Program Start is the Desktop.

Greeting
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

the users in a Options Dialog The electoral let:

( ) lastly gewähltes directory
( ) always the following directory ... [selection]
Voreingestellt at first Program Start is the Desktop.

The opinion be so did i and bastel already on the Menueintrag

Frank
Abbing

What is bequemer - always from the equal directory (Desktop or C: for may part) or from the lastly used directory started ?

i'm ready, my Progs always in the Ordner started To let, in the the users as a last worked has. at that End of program save I this place, and the for each single selection.