Français
Stammtisch & le café

Rätsel: un "Linkes" Programme

 
- 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

606 kB
Kurzbeschreibung: un "Linkes" Programme
Hochgeladen:01.10.2006
Downloadcounter100
Download
 
01.10.2006  
 



 
- page 1 -


très bien!

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



 
- page 2 -



Jörg
Sellmeyer
Hm, sieht intéressant aus mais pourquoi cet Konstruktion??
KompilierenMarqueSéparation
gfI_Erg& = Val(Int(Left$(Str$(Long(gfI_stInf#,44)),1)))
>

Wäre cela pas sinniger?
KompilierenMarqueSéparation
gfI_Erg& = byte(gfI_stInf#,44)
>
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
02.10.2006  
 




KompilierenMarqueSéparation
Gfi_erg& = Byte(Gfi_stinf#,44)
>

...so hab ego aussi gemacht.
je veux encore den genauen Link savons, aus dem gestartet wurde...
 
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?
 
02.10.2006  
 




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é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
 
03.10.2006  
 



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.
 
03.10.2006  
 




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...
 
03.10.2006  
 




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é.
 
04.10.2006  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

4.252 Views

Untitledvor 0 min.
Uwe Lang10.08.2013
Julian Schmidt25.07.2011

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie