XProfan

English

could it unfortunately XP not yet testing. hope but, the it too there works:
for windows2000 and XP User => one Linkes Program.
my Rätselfrage: How are the?

plenty Fun

Andreas

Linkes_Programm.exe	606 kB

Kurzbeschreibung:	One "Linkes" Program

Hochgeladen:	10/01/06

Downloadcounter:
		Download

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

You must whom Link keep

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Klappts?

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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

<offtopic>Sonst had I The question Your Program well hardly answer can

</offtopic>

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Beautiful...

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

now have I me so one schones Programmierrätsel sought and none power sic h The trouble To guess, How the goes

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

you have decided too much Time available shining me. These whole left informations...

Verrätst Thou too How You it made have? again any german shepherds and Dackls ready or schlichter?

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

10/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Oh.. The informations have I with the keyboard written - but the question is - How recognize the program, the it a LNK-File out launched watts? someone a idea?

10/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

[quote:d93b3b5bc0=Andreas Hötker]Oh.. The informations have I with the keyboard written - [/quote:d93b3b5bc0]
joker!

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

10/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:b6ee121cf1=Jörg Sellmeyer]
Verrätst Thou too How You it made have? again any german shepherds and Dackls ready or schlichter?

[/quote:b6ee121cf1]
I see - first guess, then Yes (if it none rausbekommt

10/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

Perhaps so:
Compile Mark Separation

!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