XProfan

Deutsch

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 Spaß

Andreas

Linkes_Programm.exe	606 kB

Kurzbeschreibung:	Ein "Linkes" Programm

Hochgeladen:	01.10.2006

Ladeanzahl:
		Herunterladen

01.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Du darfst den Link behalten

01.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Klappts?

01.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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

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

</offtopic>

01.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Schön...

01.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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

02.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

[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 zitieren Zeilenweise zitieren

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