XProfan

- Página 1 -

Sehr bien!

Es lo ya fast...

- Página 2 -

Jörg
Sellmeyer

Hm, sieht interessant de aber por qué esta Konstruktion??
Kompilieren Marca Separación

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

Wäre el no sinniger?
Kompilieren Marca Separación

gfI_Erg& = byte(gfI_stInf#,44)

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

Kompilieren Marca Separación

Gfi_erg& = Byte(Gfi_stinf#,44)

...así tener ego auch gemacht.
Yo voluntad todavía el genauen Link wissen, de el comenzó wurde...

Jörg
Sellmeyer

Komisch, el Yo ahora gerade probiert. Dann kommt aber siempre sólo 1 como Ergebnis fuera.

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

Hubs tener mich versehen => Flagabfrage verwende, d.h. LONG y | .
Jetzt fragt se todavía: Como lautet el Flag, el como abgefragt voluntad muß?

Michael
Dell

Yo handele heut scheinbar después de el Motto por qué simplemente wenns auch kompliziert va!

Kenne el Flag por desgracia, no, va aber auch anders (Komplizierter!):
Kompilieren Marca Separación

!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

Leider va el en Win98.

Apéndice: algo vereinfacht!

Salu Michael...

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

Ha! Er hats! OK, el lasse Yo gelten. Der Flag ließe se nebenbeigesagt de deinem ersten Code berechnen.

Hier mein Code dazu:
Kompilieren Marca Separación

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

Disponer STARTUPINFO#

Saludo

Andreas

¡Hola Michael...

Der Flag para el Starten de el Schnellstartleiste heraus scheint $A00 a ser. Leider hay esta Flag bajo Windows2000 todavía no - puede also no überprüfen. Der Flag para una Start encima Link es $800. Diesen Flag hay sólo bajo NT-basierenden Systemen.

Michael
Dell

Klasse,

danke Andreas!

Werd mich todavía una bisschen umsehn como gibts sicher todavía irgendwo qué a erfahren.

Salu Michael...

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

In StartupInfo hay weitere, muy interessante y undokumentierte Sachen en Bezug en CreateProcess...

$0A00 es ne Kombination de (&STARTF_TITLESHORTCUT | &STARTF_USEHOTKEY).

&STARTF_USEHOTKEY se pero no gesetzt si (en me) de el zugeklappten Zona el Schnellstartleiste oder beim Systemstart de el Autostart Ordner comenzó se.

@IF: Wärs no bien si wir nen Hilo hätten en el todos Encabezamiento- Archivos stecken y el entonces regelmäßig Aktuallisiert voluntad. Dann könnten auch neu entdeckte Konstanten como hier hinzugefügt voluntad.

Michael
Dell

¡Hola Andreas,

con CreateProcess muß Yo mich veces ganauer befassen!

Posesiones mach langem suchen después de folgende Konstanten gefunden:
Kompilieren Marca Separación

!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!

04.10.2006 ▲

[quote:606202988e=Michael Dell]@IF: Wärs no bien si wir nen Hilo hätten en el todos Encabezamiento- Archivos stecken y el entonces regelmäßig Aktuallisiert voluntad. Dann könnten auch neu entdeckte Konstanten como hier hinzugefügt voluntad.

[/quote:606202988e]
Klar - una Sistema hierzu existiert sí ya - el ODoku.

Yo werds veces vormachen ya en a schauen si el Sistema dafür geeignet es.

So - habs getestet. Lo va todavía no - como Yo el ODoku sólo beibringen muss con derart vielen Daten umzugehen.

Wenn dies geschehen es Puse el Headerfiles simplemente veces rein. Dort puede el Files entonces sí de cada bearbeitet voluntad.

04.10.2006 ▲