XProfan

- Page 1 -

very well!

this is it already almost...

- Page 2 -

Jörg
Sellmeyer

Hm, sees interestingly from but Why these structure??
Compile Mark Separation

gfI_Erg& = Val(Int(Left$(Str$(Long(gfI_stInf#,44)),1)))

would be not sinniger?
Compile Mark Separation

gfI_Erg& = byte(gfI_stInf#,44)

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

Compile Mark Separation

Gfi_erg& = Byte(Gfi_stinf#,44)

...so Have ichs too made.
i will yet whom detailed Link know, from the launched watts...

Jörg
Sellmeyer

comic, the have I now straight probiert. then comes but always only 1 as Result out.

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

Hubs Have me slip => Flagabfrage use, d.h. LONG and | .
now asks itself yet: How sounds the Flag, the there quizzed go must?

Michael
Dell

I deal today apparently to the Motto Why simply ifs too tricky goes!

know the Flag unfortunately not, goes but too differently (Komplizierter!):
Compile Mark Separation

!Def GetStartupInfo(1) !"KERNEL32.DLL","GetStartupInfoA"   lpStartupInfo# als STARTUPINFO
Struct STARTUPINFO = cb&,lpReserved&,lpDesktop&,lpTitle&,dwX&,dwY&,dwXSize&,dwYSize&,dwXCountChars&,dwYCountChars&,dwFillAttribute&,dwFlags&,wShowWindow#(2),cbReserved2#(2),lpReserved2&,hStdInput&,hStdOutput&,hStdError&

Proc gfInfo

    Declare gfI_stInf#,gfI_Erg&,gfI_Erg$
    Dim gfI_stInf#,STARTUPINFO
    Clear gfI_stInf#,gfI_Erg&,gfI_Erg$
    GetStartupInfo(gfI_stInf#)
    Case (gfI_stInf#.lpTitle& > 0): gfI_Erg$ = String$(gfI_stInf#.lpTitle&,0)
    Case (InStr(".LNK",Upper$(gfI_Erg$)) = 0): gfI_Erg$ = Par$(0)
    Dispose gfI_stInf#
    Return gfI_Erg$

EndProc

cls
Print
Print gfInfo()
WaitInput
End

unfortunately does it on Win98.

Nachtrag: something vereinfacht!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Ha! it hats! OK, the let I count. The Flag ließe itself nebenbeigesagt from your first code to charge.

here my code moreover:
Compile Mark Separation

Def @GetStartupInfo(1) !"KERNEL32","GetStartupInfoA"
Def @lstrcpy(2) !"KERNEL32","lstrcpyA"
Declare Startup&,Fehler&,STARTUPINFO#,Link#,Antwort$[15],Antwort%

IF @VAL($WINVER)<5

    @Messagebox("Aua! Auf deinem System will ich nicht laufen!","Info",64)
    end

endif

Struct STARTUPINFO=cb&,lpReserved&,lpDesktop&,lpTitle&,dwX&,dwY&,dwXSize&,dwYSize&,dwXCountChars&,dwYCountChars&,dwFillAttribute&,dwFlags&,wShowWindow%,cbReserved2%,lpReserved2&,hStdInput&,hStdOutput&,hStdError&
DIM STARTUPINFO#,STARTUPINFO
Clear STARTUPINFO#
STARTUPINFO#.cb&=@SizeOf(STARTUPINFO#)
LET FEHLER&=@GetStartupInfo(STARTUPINFO#)

IF STARTUPINFO#.dwFlags& | $800 = STARTUPINFO#.dwFlags&

    Windowstyle 31
    Windowtitle "Über Link gestartet"
    Window 0,0-640,440
    DIM Link#,5000
    @lstrcpy(Link#,STARTUPINFO#.lpTitle&)
    Print "Gestartet über den Link:"
    Print @STRING$(LINK#,0)
    Dispose Link#
    color 12,15
    Print "Netter Link, darf ich den behalten?"

    WHile 0=0

        Waitinput

    wend

Else

    LET Antwort$[0]="Ohne einen Link starte ich nicht!"
    LET Antwort$[1]="ICH WILL VERLINKT WERDEN!"
    LET Antwort$[2]="Erstelle bitte einen Startmenüeintrag für mich!"
    LET Antwort$[3]="Ich will ein LNK!"
    LET Antwort$[4]="Verlink mich bitte."
    LET Antwort$[5]="So will ich nicht laufen! Bitte in einen Link!"
    LET Antwort$[6]="Ich will verlinkt werden!"
    LET Antwort$[7]="Einen Link auf dem Desktop bitte..."
    LET Antwort$[8]="Ich möchte ins Startmenü!"
    LET Antwort$[9]="Sei nicht so link und verlink mich endlich!"
    LET Antwort$[10]="Bau mir sofort einen Startmenüeintrag!"
    LET Antwort$[11]="Ich will nur aus einem Link gestartet werden!"
    Randomize
    LET Antwort%=@RND(12)
    @Messagebox(Antwort$[Antwort%],"Nöööö!",64)

endif

Dispose STARTUPINFO#

Greeting

Andreas

Hello Michael...

The Flag for the started from the Schnellstartleiste out shining $A00 To his. unfortunately there this Flag under windows2000 not yet - can the means not to check on. The Flag for a Start over Link is $800. Diesen Flag there only NT-based Systemen.

Michael
Dell

class,

thanks Andreas!

Werd me another bisschen umsehn there Gibts sure yet somewhere what To experienced.

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

In StartupInfo there further, very interesting and undokumentierte things in reference on CreateProcess...

$0A00 is ne combination from (&STARTF_TITLESHORTCUT | &STARTF_USEHOTKEY).

&STARTF_USEHOTKEY becomes but not staid if (by me) from the zugeklappten area the Schnellstartleiste or at Systemstart from the Autostart Ordner launched becomes.

@iF: Wärs not well we're NEN Thread hätten in the any Header- Files stick and the then regularly Aktuallisiert go. then could too new discovered Konstanten as here added.

Michael
Dell

Hello Andreas,

with CreateProcess must I time ganauer befassen!

have mach long search to following Konstanten found:
Compile Mark Separation

!Def &STARTF_MONITOR           $0400  Use the HMONITOR handle specified in the hStdOutput member.
Def &STARTF_ICON              $0400  Use the HICON specified in the hStdOutput member (incompatible with STARTF_MONITOR).
Def &STARTF_TITLESHORTCUT     $0800  Program was started through a shortcut. The lpTitle contains the shortcut path.
Def &STARTF_SCREENSAVER   $80000000  Start the program with NORMAL_PRIORITY, then drop to IDLE_PRIORITY<

pre>

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

10/04/06 ▲

[quote:606202988e=Michael Dell]@iF: Wärs not well we're NEN Thread hätten in the any Header- Files stick and the then regularly Aktuallisiert go. then could too new discovered Konstanten as here added.

[/quote:606202988e]
clear - one system to existing Yes already - The ODoku.

I werds time vormachen already in order to look whether the system for suitable is.

so - habs tested. It's all right not yet - I the ODoku first procure must with so many data umzugehen.

If this happen is set I The Headerfiles simply time mere. there can The Files then Yes of each machine go.

10/04/06 ▲