XProfan

- page 1 -

très bien!

c'est es déjà presque...

- page 2 -

Jörg
Sellmeyer

Hm, sieht intéressant aus mais pourquoi cet Konstruktion??
Kompilieren Marque Séparation

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

Wäre cela pas sinniger?
Kompilieren Marque Séparation

gfI_Erg& = byte(gfI_stInf#,44)

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

Kompilieren Marque Séparation

Gfi_erg& = Byte(Gfi_stinf#,44)

...so hab ego aussi gemacht.
je veux encore den genauen Link savons, aus dem gestartet wurde...

Jörg
Sellmeyer

Komisch, cela habe je maintenant justement probiert. ensuite venez mais toujours seulement 1 comme Ergebnis raus.

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

Hubs hab mich versehen => Flagabfrage verwende, d.h. LONG et | .
maintenant fragt sich encore: comment lautet qui Flag, qui là abgefragt volonté doit?

Michael
Dell

je handele heut scheinbar pour dem Motto pourquoi simple wenns aussi compliqué allez!

Kenne cela Flag malheureusement pas, allez mais aussi anders (Komplizierter!):
Kompilieren Marque Séparation

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

malheureusement allez cela sur Win98.

Nachtrag: quelque chose vereinfacht!

Salu Michael...

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

Ha! il hats! OK, cela lasse je gelten. qui Flag ließe sich nebenbeigesagt aus deinem ersten Code berechnen.

ici mon Code en supplément:
Kompilieren Marque Séparation

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#

Salut

Andreas

allô Michael...

qui Flag pour cela Starten aus qui Schnellstartleiste heraus scheint $A00 trop son. malheureusement gibt es cette Flag sous Windows2000 encore pas - peux cela alors pas überprüfen. qui Flag pour une Start sur Link ist $800. Diesen Flag gibt es seulement sous NT-basierenden Systemen.

Michael
Dell

super,

merci Andreas!

Werd mich encore un bisschen umsehn là gibts sûrement encore irgendwo quoi trop erfahren.

Salu Michael...

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

dans StartupInfo gibt es weitere, très interessante et undokumentierte Sachen dans Bezug sur CreateProcess...

$0A00 ist ne Kombination aus (&STARTF_TITLESHORTCUT | &STARTF_USEHOTKEY).

&STARTF_USEHOTKEY wird mais pas gesetzt si (chez mir) aus dem zugeklappten Bereich qui Schnellstartleiste ou bien beim Systemstart aus dem Autostart Dossier gestartet wird.

@iF: Wärs pas bien si wir nen Fil hätten dans dem alle En-tête- Fichiers stecken et qui ensuite régulier Aktuallisiert volonté. ensuite könnten aussi récente entdeckte Konstanten comment ici hinzugefügt volonté.

Michael
Dell

allô Andreas,

avec CreateProcess doit je mich la fois ganauer befassen!

Habe mach langem chercher pour folgende Konstanten trouvé:
Kompilieren Marque Séparation

!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-part:606202988e=Michael Dell]@iF: Wärs pas bien si wir nen Fil hätten dans dem alle En-tête- Fichiers stecken et qui ensuite régulier Aktuallisiert volonté. ensuite könnten aussi récente entdeckte Konstanten comment ici hinzugefügt volonté.

[/quote-part:606202988e]
bien sûr - un System hierzu existiert oui bereits - qui ODoku.

je werds la fois vormachen déjà afin de regarder si cela System pour approprié ist.

So - habs getestet. und dir encore pas - là je qui ODoku seulement beibringen muss avec derart vielen données umzugehen.

si ca geschehen ist mets je qui Headerfiles simple la fois rein. là peut qui Files ensuite oui de chaque bearbeitet volonté.

04.10.2006 ▲