| |
|
|
- page 1 - |
|
| Konnte es malheureusement sous XP encore pas testen. Hoffe mais, cela es aussi là klappt: Pour Windows2000 et XP nutzer => un Linkes Programme. mon Rätselfrage: comment allez cela?
Viel Amusement
Andreas |
|
|
| |
|
|
|
| |
|
- page 1 - |
|
| très bien!
c'est es déjà presque... |
|
|
| |
|
|
| |
|
- page 2 - |
|
|
Jörg Sellmeyer | |
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 02.10.2006 ▲ |
|
|
|
|
| |
|
| |
|
|
|
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 ... | 02.10.2006 ▲ |
|
|
|
|
| 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!): KompilierenMarqueSé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! | 03.10.2006 ▲ |
|
|
|
|
| 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: KompilierenMarqueSéparationDef @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! | 03.10.2006 ▲ |
|
|
|
|
| dans StartupInfo gibt es weitere, très interessante et undokumentierte Sachen dans Bezug sur CreateProcess... |
|
|
| |
|
|
|
Michael Dell | allô Andreas,
avec CreateProcess doit je mich la fois ganauer befassen!
Habe mach langem chercher pour folgende Konstanten trouvé: KompilierenMarqueSéparation$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é. |
|
|
| 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é. |
|
|
| |
|
|