XProfan

Italia

Konnte es leider unter XP noch nicht testen. Hoffe aber, das es auch da klappt:
Für Windows2000 und XP nutzer => ein Linkes Programm.
Meine Rätselfrage: Wie geht das?

Viel Divertimento

Andreas

Linkes_Programm.exe	606 kB

Kurzbeschreibung:	Ein "Linkes" Programm

Hochgeladen:	01.10.2006

Downloadcounter:
		Download

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Du darfst den Link behalten

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Klappts?

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[quote:434aeede5e=Andreas Hötker]Klappts?[/quote:434aeede5e]

<offtopic>Sonst hätte ich die Frage Deines Programmi wohl kaum beantworten können

</offtopic>

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Schön...

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jetzt habe ich mir so ein schones Programmierrätsel gesucht und keiner macht sic h die Mühe zu raten, wie das geht

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Du hast entschieden zuviel Zeit zur verfügung scheint mir. Diese ganzen linken Meldungen...

Verrätst Du denn auch wie Du es gemacht hast? Wieder irgendwelche Schäferhunde und Dackls bemüht oder schlichter?

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

01.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Oh.. die Meldungen habe ich mit der Tastatur geschrieben - aber die Frage ist - wie erkennt das Programm, das es aus einer LNK-File heraus gestartet wurde? Jemand eine Idee?

02.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

[quote:d93b3b5bc0=Andreas Hötker]Oh.. die Meldungen habe ich mit der Tastatur geschrieben - [/quote:d93b3b5bc0]
Witzbold!

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

02.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[quote:b6ee121cf1=Jörg Sellmeyer]
Verrätst Du denn auch wie Du es gemacht hast? Wieder irgendwelche Schäferhunde und Dackls bemüht oder schlichter?

[/quote:b6ee121cf1]
Ach so - erst raten, dann ja (wenn es keiner rausbekommt

02.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Dell

Vielleicht so:
Kompilieren Markieren Separieren

!Def GetStartupInfo(1) !"KERNEL32.DLL","GetStartupInfoA"  lpStartupInfo# als STARTUPINFO

Proc gfInfo

    Declare gfI_stInf#,gfI_Erg&
    Dim gfI_stInf#,68
    Clear gfI_stInf#,gfI_Erg&
    GetStartupInfo(gfI_stInf#)
    gfI_Erg& = Val(Int(Left$(Str$(Long(gfI_stInf#,44)),1)))
    Dispose gfI_stInf#
    Return gfI_Erg&

EndProc

Proc StartArt$

    Parameters SA_Info&
    Declare SA_Erg$
    SA_Erg$ = " < Unbekannt > "
    Case (SA_Info& = 1): SA_Erg$ = " < direkt > "
    Case (SA_Info& = 2): SA_Erg$ = " < Schnellstartleiste > "
    Case (SA_Info& = 3): SA_Erg$ = " < Link > "
    Return SA_Erg$

EndProc

cls
Print (Par$(0) + "  wurde über" + StartArt$(gfInfo()) + "gestarted.")
WaitInput
End